CONTACTS 

SUBJECTS
Load Letterhead to 0450431
Address - SDS
Load CNS records to SDS, 910312
Memory Management

0806 -    ..
0807 - Summary/Objective
0808 -
080801 - Follow up ref SDS 11 0000, ref SDS 10 0000.
080802 -
080803 - Consolidated code for Doc Log and regular code that captures the
080804 - Contact name, title and Dep for the Complimentary close.
080805 -
080806 -
080807 -
080808 -
0809 -
0810 -

SUBJECTS
Load Letterhead to 0450431
Contacts, Menu

1205 -
120501 -  ..
120502 - 000009  Add Entry 1820 Load Letterhead Macro from Contact Record
120503 -
120504 - Follow up ref SDS 11 0436, ref SDS 10 582.
120505 -
120506 -
120507 - Enter in a Contact Summary
120508 -
120509 -     Line 20, ref OF 4 2460, -entry 1305.
120510 -
120511 -
120512 -     If cursor is on column 1 or 2, pressing Enter will...
120513 -
120514 -        1.  Load an address into an Editor file if the Contact Summary
120515 -            was opened from an Editor file.
120516 -
120517 -        2.  Load contact identification into an SDS record, if the
120518 -            Contact Summary was opend from an SDS record.
120519 -
120520 -        3.  Load contact identification for a document if the Contact
120521 -            Summary was opened from an SDS record with the screen
120522 -            offset for to the secondary doc log fields, and the cursor
120523 -            started in either a "From" or a "Received" field.
120524 -
120525 -     -entry 1305, ref OF 4 2460, line 30
120526 -
120527 -        Launches processing when Enter is pressed in a Contact Summary
120528 -
120529 -        -gosub aMTrnsfr
120530 -
120531 -     -label aMTrnsfr, ref OF 4 3286, 970
120532 -
120533 -        Called by...
120534 -
120535 -           -entry 1305, ref OF 4 2460, line 30
120536 -
120537 -        -gosub aMSet-Up
120538 -
120539 -     -label aMSet-Up, ref OF 4 3521, line 780
120540 -
120541 -        Called by...
120542 -
120543 -           -label aMTrnsfr, ref OF 4 3286, 970
120544 -
120545 -           -label aMld_Rcd, ref OF 4 5460, 3120
120546 -
120547 -        Assigns Summary to markcur 32
120548 -
120549 -        Reads Contact record spec from column 80
120550 -
120551 -     -label aMGooD, ref OF 4 5615, 990
120552 -
120553 -        -if @47 = 2 -goto aMSDS_F_t
120554 -
120555 -
120556 -     -label aMrTn_a, ref OF 4 3607, 1040
120557 -
120558 -        -if @107 != 5991 -gosub oPenit
120559 -
120560 -        -label aoRecrd, is sublevel
120561 -
120562 -        moves profile ID from target record to Contact record, so if
120563 -        the thing started from an Editor file, counter 47 1 is set in
120564 -        the Contact record to control process branching.
120565 -
120566 -
120567 -     -label oPenit, ref OF 4 8604, 3250
120568 -
120569 -        Opens record and assigns Indv or orgz type
120570 -
120571 -        If a record exists, calls modify record function keys.
120572 -
120573 -        If there is no record, it opens a new record template and
120574 -        calls functions to create a new record.
120575 -
120576 -     -label modrec, ref OF 4 4731, line 330
120577 -
120578 -        Called by
120579 -
120580 -          -label oPenit, ref OF 4 8604, 3250
120581 -
120582 -
120583 -
120584 - Line 160, ref OF 4 2828, -entry 1807 this code executes the "Enter"
120585 - key in a Contact record.
120586 -
120587 -     Global 122 sets doc log operation.
120588 -
120589 -
120590 - Line 320, ref OF 4 2432, -label lRec_z is the code that loads a
120591 - Contact to an Editor file when Enter is called on a Contact person's
120592 - name from within an Editor file.
120593 -
120594 -     This is where the code needs to cycle back from the an operation
120595 -     in the Contact Summary to load a contact record into an Editor
120596 -     file. ref SDS 10 1293
120597 -
120598 -
120599 - Line 440, ref OF 4 3046, -label 026011z, added code to move the system
120600 - profile identifier, counter 47 into globla 143 so that it this
120601 - operation can determine when the call started from SDS or from the
120602 - Editor.
120603 -
120604 - Line 460, ref OF 4 2444, -label lodIt9 this is the call from within a
120605 - Contact record to make entries directly into an SDS record or an
120606 - Editor file.
120607 -
120608 -
120609 - Line 1110, ref OF 4 2638, -label aoRecrd added code setcnt 126 99, as
120610 - an alternate flag from 127 11, so that the code can cycle back to
120611 - -label lRec_z  when loading a contact record to an Editor file from
120612 - the Contact Summary. ref SDS 10 1210
120613 -
120614 - The flag 126 99 is applied at -label aM_sDs_c, as explained below at
120615 - ref SDS 10 7746.
120616 -
120617 - Flag 126 99 is also applied to cycle back to the Summary to look for a
120618 - muliple-contact spec at ref SDS 10 3024
120619 -
120620 -                125 = Flag for counter 126
120621 -                126 = Editor begin CNS op
120622 -                127 = Contact Summary or Record, begin op
120623 -                128 = Org or Invidual record
120624 -                129 = Doc Log control
120625 -
120626 -
120627 -     When 127 11 is set it identifies when Enter is used within a
120628 -     Contact record.  We set 127 12 to initially slip past this
120629 -     condition in order to open the Contact record from the Summary and
120630 -     to find the specified Contact person in the Contact record, they
120631 -     we cycle back and set 127 11 in order to execute all of the code
120632 -     that loads the record.
120633 -
120634 -
120635 - Line 1150, ref OF 4 3412, -label cName, changed to call 000901 that
120636 -
120637 - Line 1120, ref OF 4 4504, -label 04702N created new code to load an
120638 - Organization contact directly to an SDS record without using cut and
120639 - paste.
120640 -
120641 - Line 1140, ref OF 4 5695, -label 0001n added code to process address
120642 - for an Editor file at this location.
120643 -
120644 - Line 1200, ref OF 4 4224, -label cstate added code to save location
120645 - using macro 18 to mark position for entering the "Other Location
120646 - Identifier" which goes on the street address.
120647 -
120648 -      If there are several "1" lines as can happen in Contact
120649 -      addresses, although for this field it is unusual, we will append
120650 -      the "Other Location Identifier" on the last of the "1" lines.
120651 -
120652 - Line 1310, ref OF 4 5968, -label mcLn this is the main loop for
120653 - processing contacts within a Contact record.  The User can put an x or
120654 - other char in front of the Contact person's name and the code will
120655 - load it and any other records similarly marked into the SDS record or
120656 - into an Editor file.
120657 -
120658 - The following char are excluded because they are use for other
120659 - things...
120660 -
120661 -             *  Identifies a Contact person to list in the Summary
120662 -             -  Identifies a Contact person to get a report in SDS
120663 -             #  Identifies repetitive date data
120664 -
120665 -
120666 - Line 1580, ref OF 4 3931, -label aM_sDs_c, here is where the Contact
120667 - person's name is captured.  It should be able to handle an error in
120668 - the data entry for the first name, as follows:
120669 -
120670 -          Mr. Walt G.                      Anderson
120671 -          Mr.  Walt G.                     Anderson
120672 -
120673 -
120674 -
120675 - Line 1760, ref OF 4 5761, -label aM_sDs_c this is where operation to
120676 - load a Contact address into an Editor file launched from a Summary
120677 - cycles back to load the organization address, after having located and
120678 - marked the Contact person's name in the Contact record.
120679 -
120680 -       It uses counter 126 = 99, which is set above at ref SDS 10 1293
120681 -
120682 -
120683 - Line 1760, ref OF 4 3865, -label aQd1, enter the Department, Division
120684 - or other grouping into the SDS record.  We can get as many as two
120685 - lines.
120686 -
120687 - Line 1970, ref OF 4 3875, -label aQo1, this ends cycle of entering
120688 - basic record ID, added code for Editor address to enter the other
120689 - location identification.
120690 -
120691 -      Decided to change the name of the field from...
120692 -
120693 -                     Other Location Identifier
120694 -
120695 -         ...to simply...
120696 -
120697 -                     Location:
120698 -
120699 -
120700 - Line 2070, ref OF 4 5717, -label bbv8 this ends op to load address to
120701 - an Editor file.  The code then cycles back either to the Summary or to
120702 - the Contact record to look for another record to load, depending upon
120703 - whether the op started from a Summary or from a Contact record.
120704 -
120705 -      If the operation started from within a Summary, then the code
120706 -      cycles back to the Summary based on counter 126 = 99, per the
120707 -      work above at ref SDS 10 1293
120708 -
120709 -
120710 -
120711 - Line 2890, ref OF 4 8144, -label ecId, we need to increment the
120712 - number of lines added for Contacts, including multi-contacts, to
120713 - adjust counter 65 in macro 23 that restores the SDS record to the
120714 - initial position, because the cursor always starts below the Contacts
120715 - field.
120716 -
120717 - This is not needed for Editor files, because the file is restored to
120718 - initial start line that is above the data entered by the operation.
120719 -
120720 -
120721 - Line 2900, ref OF 4 8145, -label lmctef, tap into code for loading
120722 - multiple contacts into an Editor file from the Summary, to use same
120723 - code for SDS records.
120724 -
120725 -
120726 - Line 2720, ref OF 4 5445, -label 34wu this ends the routine to load a
120727 - Contact record into an SDS record.
120728 -
120729 -     Add value for number of lines added to the file to adjust counter
120730 -     65 for positioning the SDS record to original location.
120731 -
120732 -
120733 -
1208 -