CONTACTS 

SUBJECTS
Subjects Conform Descriptions to Control Field Listing, 000904, 04405
04405 Modify to Support New System Using Segmented Indexes and Memory

0404 -
0404 -    ..
0405 - Summary/Objective
0406 -
040601 - Follow up ref SDS 3 0000, ref SDS 2 0000.
040602 -
040603 - Completed work on updating 04405 to conform subjects in the Control
040604 - Field to descriptions in the Subject Index.
040605 -
040606 -    [On 031121 improved supported for segmented and chained Subject
040607 -    Indexes. ref SDS 5 8C4K
040609 -     ..
040610 -    [On 040305 eliminated 04405 and developed a new system with
040611 -    expanded support. ref SDS 6 IQ8L
040612 -
040613 -
040614 -
040615 -
040617 -  ..
0407 -
0408 -
0409 - Background
0410 -
041001 - On 030902 modified SDS to use Windows Start command for better memory
041002 - management.  This work integrated code from 03502 and 04402 into a new
041003 - composite macro 035012.  Some of the code was also incorporated into
041004 - 03501.  This resulted in eliminating the need for 04402 entirely.
041006 -  ..
041007 - The only feature needed for 03502 is to conform subject descriptions
041008 - to the accounts in a control field when called by macro file 04405.
041010 -  ..
041011 - The work today incorporates all of the code in 03502 into macro file
041012 - 04405 that is needed to support the feature for conforming desriptions
041013 - of subject descriptions to the accounts in a control field.  This
041014 - should then enable eliminating 03502.
041015 -
041016 -    [On 031024 upgraded 04101 that posts the doc log system using F5 to
041017 -    select Control Fields. ref SDS 4 0001
041019 -     ..
041020 -    [On 040305 eliminated 04405 and developed a new system with
041021 -    expanded support. ref SDS 6 IQ8L
041022 -
041023 -
041024 -
041026 -  ..
0411 -
0412 -
0413 - Progress
0414 -
041401 - 000008  Enter and Double Click Call 03502 Conform Subject Descriptions
041402 -
041403 - Follow up ref SDS 1 FC9K.
041404 -
041405 - Line 2010, ref OF 5 0888, -label oPSI1 in 00008 about 30 lines below
041406 -
041407 -    -label oPSI1
041408 -    rel_cur 1 0
041409 -    setcnt 93 997
041410 -    -if @125 > 33 -if @125 < 42 setcnt 93 998
041411 -    -if @125 > 65 -goto esidfc
041412 -
041413 -        This comes from determining that User pressed enter on a
041414 -        heading for a Control Field. ref SDS 1 FC9K   Move the cursor
041415 -        down onto a Control Field line ready to enter a code, if the
041416 -        user decides to take that action after opening the SI.  Set a
041417 -        flag 9 997 to open the SI and 9 998 to open the primary
041418 -        Function Index.  The code in 035012 interprets 9 998 to set a
041419 -        flag for 03501 to open the Primary Fucntion Index. ref SDS 1
041420 -        NS4J  If click beyond Subject/File then -goto esidfc.
041421 -        ref SDS 0 629L
041422 -
041423 -
041425 -  ..
041426 - Subject Descriptions Conform to Subjects in Control Field
041427 -
041428 - Follow up ref SDS 1 629L.
041429 -
041430 - Line 2030, ref OF 5 0889, -label esidfc in 000008
041431 -
041432 -    -label esidfc
041433 -    @c:\sd\03\04405
041434 -    -exit
041435 -
041436 -        04405 confirms subject descriptions to the order of the subject
041437 -        accounts in the Control Field, called above. ref SDS 0 HV8Q
041438 -
041439 -
041441 -  ..
041442 - 04405  Contacts Open Record for Employee and Billing Control Fields
041443 -
041444 - Line 50, ref OF 4 3P6F, in 04405
041445 -
041446 - There are only two fields to process, employee and billing.
041448 -     ..
041449 -    setcnt 243 0
041450 -    -if @125 > 19 -if @125 < 26 setcnt 243 101
041451 -    -if @125 > 28 -if @125 < 33 setcnt 243 102
041452 -    -if @243 > 0 -goto opfta
041453 -    beep
041454 -    errormsg  Press Enter only on account in Control Field!
041455 -    -goto erR
041456 -
041457 -        Start 243 0 to determine when User presses Enter or double
041458 -        clicks with the cursor on a location that is not active. setcnt
041459 -        243 101 for employee field which is a personal data base.
041460 -        setcnt 243 102 is for billing which is an organizational data
041461 -        base.  If User pressed Enter or double clicked on either of
041462 -        these fields, then 243 > 0 so go process those fields. -goto
041463 -        opfta
041464 -
041465 -
041467 -  ..
041468 - Line 80, ref OF 4 Y59I, -label opfta in 04405
041469 -
041470 -    -label opfta
041471 -    -if @243 = 101 loc_cur 0 21
041472 -    -if @243 = 102 loc_cur 0 29
041473 -    setcnt 86 4
041474 -    setcnt 87 32
041475 -    macro 1182
041476 -
041477 -
041478 -
041480 -  ..
041481 - 04405  Conform Subject Descriptions to Accounts in Control Field
041482 -
041483 - Line 70, ref OF 4 EV4O, -label lpdo in 04405 about 20 lines below
041484 -
041485 -      @c:\sd\03\03502
041486 -    setgbl 247 0
041487 -    macro 856
041488 -
041489 -        Replace call to 03502 with applicable code from 03502 that was
041490 -        moved to 03501 on 030902. ref SDS 1 OI9L  The main process is
041491 -        finding the code in the Subject Index, which has now been
041492 -        incorporated into 03501, as a result of modifications on 030902
041493 -        that developed support for better memory management using
041494 -        segmented indexes and the Windows Start command.
041496 -         ..
041497 -        All this needs to do is open the the SI at the account, using
041498 -        code in 03501. ref OF 2 MT5G
041499 -
041501 -  ..
041502 - Line 630, ref OF 4 RR4L, -label gF_648 in 04405
041503 -
041504 -    -label gF_648
041505 -    zone 4 5
041506 -    **
041507 -    L !
041508 -    -if @0 = 0 -goto prg1
041509 -    setcnt 247 0
041510 -    top
041511 -    down 10
041512 -    z 10 60
041513 -    l-/$$/
041514 -
041515 -
041516 -
041517 -
041518 -
041519 -
041520 -
041521 -
041522 -
041523 -
041524 -
041525 -
041526 -
041527 -
041528 -
041529 -
041530 -
041531 -
041532 -
0416 -