THE WELCH COMPANY
440 Davis Court #1602
San Francisco, CA 94111-2496
415 781 5700
rodwelch@pacbell.net


S U M M A R Y


DIARY: February 22, 2004 05:30 PM Sunday; Rod Welch

SDS function to set flag in contacts to suppress from publication.

1...Summary/Objective
2...Confidentiality Flag Support Added for Entering Contacts to SDS
3...000009 Macro 1305 Transfer Confidentiality Flag to SDS Records


..............
Click here to comment!

CONTACTS 

SUBJECTS
Suppression Flag to Automatically Flag Contacts for Supporession to P
Flag Contact in SDS Records for Supporession to Prevent Publicaton on

0604 -
0604 -    ..
0605 - Summary/Objective
0606 -
060601 - Follow up ref SDS 5 0000, ref SDS 3 0000.
060602 -
060603 - Strengthened confidentiality by making assignment of flags to
060604 - suppress publication of company names and contacts more automatic.
060605 -
060606 -
060607 -
060608 -
060610 -  ..
0607 -
0608 -
0609 - Problem
0610 -
061001 - Want to modify Contact records to use a new flag that automatically
061002 - identifies a contact for suppression in SDS records to support
061003 - confidentiality.
061005 -  ..
061006 - This occurs because in the case of working with Gary, there is strong
061007 - sensitivity about the company and the project being associated with
061008 - Communication Metrics, POIMS, command and control, intelligence,
061009 - analysis, SDS, Welch et al.  Since contacts are a primary criteria for
061010 - finding relevant details quickly and easily, noted by Eric Armstrong
061011 - on 010916, ref SDS 2 0001, every time a new record is created,
061012 - contacts are entered.  The current system of adding a flag to suppress
061013 - publication is fast and easy, but it is also easy to forget to enter
061014 - flags because entering a contact in SDS is so fast and easy that the
061015 - process becomes transparent to the User.  This creates conditions that
061016 - cause the requirement to scroll up and enter the confidentiality flags
061017 - to fall off the radar, outside span of attention, which is another way
061018 - for inadvertantly creating a confidential association on the Internet,
061019 - which in turn causes emotional trauma, when discovered by others, as
061020 - reported on 040203 explaining the exigencies of bureaucracy.
061021 - ref SDS 4 E44K
061022 -
061024 -  ..
0611 -
0612 -
0613 - Planning
0614 -
061401 - There are two levels of suppression that might be supported....
061402 -
061403 -    1.  Suppress the entire record, which is the most evident solution
061404 -        to the situation with Gary.
061406 -         ..
061407 -        This requires a flag, which, if pressent, causes the entire
061408 -        record to always be removed from records published on the
061409 -        Internet.
061411 -         ..
061412 -        A simple solution is to put an "s" on line 1 column 9, just in
061413 -        front of the record ID.  When the record is opened and the op
061414 -        begins to enter a contact into an SDS record, the "s" is read
061415 -        and, if there, a flag is set that controls the process to
061416 -        identify the entire record in the SDS record as confidential.
061418 -         ..
061419 -    2.  Suppress individual names within a record, so that a company
061420 -        name need not be confidential, but certain individuals within
061421 -        the company want their names suppressed from the Internet.
061423 -         ..
061424 -        This would be similar to the organization.  If the entire
061425 -        record is flagged, per para 1, ref SDS 0 0083, then that flag
061426 -        takes precedence, otherwise flags are checked for individuals,
061427 -        and, if present, then lines for that contact person are
061428 -        suppressed within the lins for the Contact record entered into
061429 -        an SDS record, and others lines for the Contact record,
061430 -        including lines for the names of other people who are not
061431 -        flagged for suppression in the Contact record, are not
061432 -        suppressed in the SDS record.
061434 -  ..
061435 - For immediate purposes, decided to start simple by implementing a
061436 - flag for the entire record.
061437 -
061438 -
061439 -
061440 -
061441 -
061442 -
061443 -
0615 -

SUBJECTS
Functions, Profile

0703 -
070401 -  ..
070402 - Confidentiality Flag Support Added for Entering Contacts to SDS
070403 -
070404 - Follow up ref SDS 1 4015.
070405 -
070407 -  ..
070408 - Line 450, ref OF 1 8352, -label xx7 in 0470410
070409 -
070410 -    pfent macro 1305
070411 -
070412 -        macro 1305 executes Enter and double click
070413 -
070414 -
070415 -
070417 -  ..
070418 - 000009  Macro 1305 Transfer Confidentiality Flag to SDS Records
070419 -
070420 -
070421 - Line 40, ref OF 2 2460, macro 1305 in 000009
070422 -
070424 -  ..
070425 - Line 1300, ref OF 2 TP4O, -label 0472N in 000009
070426 -
070427 -    -label 0472N
070428 -    -label 0472N
070429 -    setcnt 124 0
070430 -    top
070431 -    loc_cur 0 9
070432 -    chrcnt 278 0
070433 -    setcnt 278 0
070434 -    loc_cur 3 1
070435 -
070436 -        Added code loc_cur 0 9 to check for new "confidentiality" flag,
070437 -        if there is an "s" mark the entire contact confidential, so
070438 -        that the name of the organization and all people associated
070439 -        with the organization in the Contacts field will be suppressed
070440 -        from publication on the Internet.  chrcnt 278 0 gets the flag,
070441 -        and loc_cur 3 1, puts everything back where it was.
070442 -
070444 -  ..
070445 - Line 1700, ref OF 2 KG4M, -label 0012x in 000009
070446 -
070447 -    -label 0012x
070448 -    -if @278 = 115 setgbl 0 9201
070449 -    setcnt 278 0
070450 -    ecur 31
070451 -
070452 -        Before opening the SDS record to start entering the contact,
070453 -        -if @278 = 115 setgbl 0 9201 (were 278 is set above,
070454 -        ref SDS 0 IX67) creates a confidentiality flag that is
070455 -        evaluated in the code that enters the line number format in the
070456 -        SDS record. ref SDS 0 GF5U  sectn 278 0 resets the flag, so
070457 -        this op does not occur on all of the lines for the contact
070458 -        record format entered in SDS, since we only need on the first
070459 -        and the last one.
070460 -
070461 -
070463 -  ..
070464 - Line 1730, ref OF 2 K56L, -label athere in 000009
070465 -
070466 -    -label athere
070467 -    immed a
070468 -    up
070469 -    -gosub conF1................................. ref SDS 0 PQ4P
070470 -    macro 1189
070471 -
070472 -        Control has opened the SDS record, and is ready to enter the
070473 -        line number field.  -gosub conF1 calls the routine.  There is
070474 -        no change to this code.
070475 -
070476 -
070478 -  ..
070479 - Line 3690, ref OF 2 T54G, -label SDSz1 in 000009 about 30 lines below
070480 -
070481 -    -label SDSz1
070482 -    ......
070483 -    ecur 31
070484 -    loc_cur 0 7
070485 -    -if @106 = 9749 ic 115
070486 -    setcnt 106 0
070487 -
070488 -        Code has determined all all contact lines have been entered,
070489 -        ecur 31 returns to SDS, cursor is at end of last contact line,
070490 -        loc_cur 0 7 moves to highlight flag field; -if @106 = 9749 ic
070491 -        115 enters "s" to finish confidential process.  setcnt 106 0
070492 -        resets confidential status ready to process next record.
070493 -
070494 -
070496 -  ..
070497 - Line 4420, ref OF 2 P53H, -label conF1 in 000009
070498 -
070499 -    -label conF1
070500 -    ic 48
070501 -    ic 48
070502 -    ic 48
070503 -    ic 48
070504 -    getgbl 0 0
070505 -    setgbl 0 0
070506 -    -if @0 = 9201 ic 115
070507 -    -if @0 = 9201 setcnt 106 9749
070508 -    -if @0 < 9201 rel_cur 0 1
070509 -    ic 45
070510 -
070511 -        This code enters the line number field for contacts, starting
070512 -        with 0000.  After this string is entered, added code today
070513 -        getgbl 0 0 and setgbl 0 0 to get the confidentiality flag, and
070514 -        then reset it each pass.  -if @0 = 9201 ic 115, enters an "s"
070515 -        and moves the cursor ahead.  -if @0 != 9201 rel_cur 0 1 moves
070516 -        the cursor ahead to the dash field, and ic 45 completes the
070517 -        line number format.
070518 -
070519 -
070520 -
070521 -
070522 -
070523 -
070524 -
070525 -
070526 -
0706 -