Click here to comment!
1...This code is failing.
CONTACTS
SUBJECTS
0702051 Macro F2 Save Sort References, Action Items, 0702051
Highlight Options Headlines Bold Action Items Follow up, 910326 Alt F
Highlight J Headline Flags Added Automatically by F2 Save 0702051
Save F2 Add J Highlight Flags on Multi-line Headlines
Consolidate Tasks Reduce Keystrokes Fast Easy Learn Use
Consolidate Commands Functions Productivity Integrate So Less to Reme
0908 -
0908 - ..
0909 - Summary/Objective
0910 -
091001 - Follow up ref SDS 6 0000, ref SDS 5 VS5O.
091002 -
091003 - Integrated tasks to reduce keystrokes and steps to make SDS faster and
091004 - easier to learn and use. F2 save now adds highlight flags for
091005 - multi-line headlines, ref SDS 0 Z546, and maintains highlight flags
091006 - for forward links automatically. ref SDS 0 EP5H Changed Enter to add
091007 - new lines on blank lines, ref SDS 0 663F, and changed Alt F10 to add
091008 - lines in SDS. ref SDS 0 CH4M This may help problems reported on
091009 - running out of lines at the end of the record. ref SDS 0 663F Other
091010 - function key assignment changes enhance ergonomics to make Knowledge
091011 - Space faster and easier to use. Enhanced feature for finding
091012 - citation to References. ref SDS 0 R46G Still need to update Help,
091013 - since we have made a number of changes that particularly effect the
091014 - menus. ref SDS 0 RM6L
091016 - ..
091017 - Submitted program updated to Gary along with an email asking for
091018 - comments on utility.
091019 -
091020 - [On 030801 Gary lists improvements to the current version of SDS
091021 - as a component of developing new version. ref SDS 7 U87N
091022 -
091023 - [On 030801 Gary comments favorably on editing improvements made
091024 - today, ref SDS 8 0001; requests more work on Enter key;
091025 - ref SDS 8 O78V Did the work in this record and sent another code
091026 - update asking for further feedback. ref SDS 8 0001
091027 -
091028 -
091029 -
091030 -
091031 -
091033 - ..
0911 -
0912 -
0913 - Progress
0914 -
091401 - Integration for Working Intelligently Saves Time Reduces Mistakes
091402 -
091403 - Management is a complex craft that balances timeliness with accuracy
091404 - and deliberation. SDS technology increases speed and accuracy for
091405 - getting things done. At first this design appears daunting, reported
091406 - on 890809, ref SDS 1 6162, and futuristic, reported at Intel on
091407 - 960315, ref SDS 2 4545, because integration leverages the natural
091408 - synergy between related tasks, explained in POIMS, ref OF 18 8559, in
091409 - order to strengthen deliberative analysis as the core competency of
091410 - management. see again POIMS, ref OF 21 V47F
091411 -
091412 - [On 030809 consolidated tasks for context management using SI.
091413 - ref SDS 9 RA4L
091415 - ..
091416 - A key dimension of integration is consolidating tasks to reduce
091417 - keystrokes, noted by Bill Gates at Microsoft on 021108. ref SDS 4 EFBE
091418 - Fewer things to remember, fewer things to think about that are done
091419 - automatically means fewer mistakes, less fatigue, less stress, less
091420 - time lost to perform rework, more time to think about carefully about
091421 - things that are important. To accomplish these goals...
091422 -
091424 - ..
091425 - Editing Changes Summarized.......
091426 -
091427 - Made followig changes....
091428 -
091429 - 1. F2 save function eliminates requirement to use Shift F9 that
091430 - scrolls through assignments for...
091431 -
091432 - a. Headlines "j" flag. ref SDS 0 KI8L
091434 - ..
091435 - b. Follow up "h" flag; plus, sub-lines are maintained by
091436 - removing the h flag that is often created by wordwrap.
091437 - ref SDS 0 VS7I
091439 - ..
091440 - 2. Enter key.
091441 -
091442 - a. If a link is pending, then it is created when Enter or
091443 - double click occurs. Similarly, if Enter or double click
091444 - is executed to the right of a citation (a string that
091445 - begins with "ref") then the citatation is opened. If no
091446 - action is pending, then....
091448 - ..
091449 - Enter on a non-blank line works like a standard typewriter
091450 - scrolling the file up and places cursor on left margin.
091451 - ref SDS 0 WQ8N If you want a different left margin, move
091452 - the cursor with the arrow keys and begin typing. The
091453 - column where typing begins is the left margin.
091455 - ..
091456 - b. Enter pressed on a blank line now adds a new line and
091457 - scrolls up with cursor moved to the left margin, ready for
091458 - typing. ref SDS 0 4E8F
091460 - ..
091461 - 3. Double clicking opens References, except....
091462 -
091463 - a. Reference for an SDS record...
091464 -
091465 - Double click in the line number field finds where the
091466 - Reference is listed as a citation, and sets up a repeat
091467 - search op by pressing Shift F4. Mark 1 saves the line
091468 - found, and Mark 2 returns to the original position in the
091469 - Reference field. ref SDS 0 P49M
091471 - ..
091472 - b. Reference for a file, e.g., DIT, DRP, OF, etc.
091473 -
091474 - Same functionality for SDS records explained in para a,
091475 - above, ref SDS 0 VF4K
091477 - ..
091478 - This feature was not working correctly for repeat
091479 - searches; so, fixed it. ref SDS 0 Z39M
091480 -
091482 - ..
091483 - 4. Alt F10
091484 -
091485 - Formerly added blank lines to a file in the Editor. This
091486 - still does the same thing.
091488 - ..
091489 - Formerly scrolled through highlight options in SDS. This is
091490 - changed.
091492 - ..
091493 - Alt F10 in SDS now adds blank lines, in the same way that
091494 - blank lines are added in the Editor.
091496 - ..
091497 - 5. Shift F9
091498 -
091499 - Formerly, Shift F9 in SDS and the Editor jumped to the last
091500 - line in the file. This is changed.
091502 - ..
091503 - Shift F9 in SDS now scrolls through highlight options, which
091504 - is the task previously accomplished by Alt F10.
091506 - ..
091507 - Shift F9 in the Editor does nothing. There is no comparable
091508 - task in the Editor for adding highlight flags in SDS.
091510 - ..
091511 - 6. Ctrl F9.
091512 -
091513 - Ctrl F9 formerly did nothing in the Editor nor in SDS.
091515 - ..
091516 - Ctrl F9 now jumps to the last line in the file in both the
091517 - Editor and in SDS. This complements Ctrl F1 which jumps to
091518 - the top of the file in SDS and the Editor. In both cases
091519 - Shift F2 restores the initial position.
091520 -
091521 -
091522 -
091524 - ..
091525 - 0702051 F2 Save Add J Flag to All Underlined Multi-line Headlines
091526 -
091527 - Change code to enter highlight "j" flags for all headlines when F2 is
091528 - called to save the record. This increases the housekeeping load on
091529 - macro 0702051, but further reduces the number of keystrokes the user
091530 - needs for accomplishing a uniform format.
091531 -
091532 - [...below, changed assignment of Alt F10 to add blank lines in
091533 - SDS, and assigned Ctrl F9 to scroll through highlight options.
091534 - ref SDS 0 TV6M
091536 - ..
091537 - [On 030801 Gary comments favorably on this change. ref SDS 8
091538 - 176K
091539 -
091540 -
091542 - ..
091543 - Schedule Tasks Change Code to Process Anchors and Headlines
091544 -
091545 -
091546 - Line 200, ref OF 7 4H8K, -label saV in 0702051
091547 -
091548 - -if @272 = 1001 -goto saqv
091549 -
091550 - -if @272 = 1001 -goto sumobJ
091551 -
091552 - Changed code for processing Schedule tasks, to process anchors
091553 - and highlight j flags.
091554 -
091555 -
091557 - ..
091558 - Diary Records Modify Save Code
091559 -
091560 -
091561 - Line 700, ref OF 7 P45J, -label hdgLp1 in 0702051
091562 -
091564 - ..
091565 - Line 800, ref OF 7 UZ4M, -label dohl in 0702051
091566 -
091567 - -if @1 = 60 -return
091568 - pushc
091569 - loc_cur 0 6
091570 - chrcnt 1 0
091571 - rel_cur 0 1
091572 - -if @1 != 45 ic 106
091573 - popc
091574 -
091575 - If this is an anchor, then end op and don't put a j flag on the
091576 - anchor line. If not, then put cursor on column 6 to check for
091577 - a dash that signifies an indented line number field. Move
091578 - cursor ahead to column 7, and if this is not an indented line
091579 - number field, then enter a "j" flag in column 7 to identify a
091580 - multi-line headline.
091582 - ..
091583 - This code will be a little busy by forcing a "j" flag that
091584 - highlights every headline, rather than past practice of
091585 - controlling which single line headlines to highlight. The time
091586 - saved entering Alt F10 on multiple lines may be worth the
091587 - slight loss of utility.
091588 -
091589 -
091590 -
091591 -
091592 -
0916 -
SUBJECTS
Line Numbers, macro 0, F1 F7
Macro 204 Highlight Forward Links 1st Line Bold Maintain Other Lines
110401 - ..
110402 - 000000 Macro 204 Maintain Highlight on Forward Links Automatically
110403 - Forward Links Maintain Automatically with Line Number Update
110404 -
110405 - Line 640, ref OF 8 OO5G, -entry 204 in 000000
110406 -
110407 - -entry 204
110408 -
110409 - this is called by macro 0 that maintains the line numbers; when
110410 - the process completes the number string and reaches a space,
110411 - this code maintains the highlight flags, applies the
110412 - appropriate color to the line, enters the dash, and then quits
110413 - to do the next number. There are no changes to this code.
110414 -
110416 - ..
110417 - Line 720, ref OF 8 8S3M, -label isYmb in 000000
110418 -
110419 - This is a subroutine that checks for a highlight flag on every
110420 - line. Modified this code by adding a new feature that...
110421 -
110422 - savescr 8
110423 - setcur 133 0
110424 - addcnt 133 1
110425 -
110427 - ..
110428 - Added savescr 8 so the code can move down the file, when
110429 - necessary from encountering a forward link symbol, [, and then
110430 - come back and continue standard processing.
110432 - ..
110433 - Capture cursor in the line number field and increment to
110434 - support doing a loop for processing a forward link in the
110435 - record.
110437 - ..
110438 - -if @3 = 32 aw
110439 - chrcnt 130 0
110440 - setcur 131 0
110441 - -if @131 < 2 down
110442 -
110443 - -if @130 != 91 -goto nflop
110444 -
110445 - If there is no [ symbol, then put the cursor back and return
110446 - from this subroutine. If the code finds a [ symbol indicating
110447 - a forward link is in the record and so this condition is saved.
110449 - ..
110450 - addcnt 131 1
110451 - -label lphfuh
110452 - loc_cur 0 @133
110453 - rel_cur 1 0
110454 - ic 32
110455 - loc_cur 0 @131
110456 - chrcnt 132 0
110457 - -if @132 > 32 -goto lphfuh
110458 -
110459 - Do a loop to remove any "h" highlight flags that are on
110460 - multiple lines of a forward link. These get entered
110461 - unintentionally, because wordwrap carries them forward when the
110462 - description of a forware link is more than a single line. This
110463 - code removes those extra symbols automatically to reduce
110464 - keystrokes for the user.
110465 -
110466 - -label nflop
110467 - getscr 8
110468 - -return
110469 -
110470 -
110471 -
110472 -
110473 -
1105 -
SUBJECTS
Highlight, Follow up, 910326
120301 - ..
120302 - Highlight Color Options Change to Shift F9 for Headlines in SDS
120303 - Headlines Highlight Color Options Change from Alt F10 to Shift F9
120304 -
120305 - As a result of automating j flags entered for multi-line headines, see
120306 - above, ref SDS 0 0G6H, seems like we can use Alt F10 to add blank
120307 - lines to a file in SDS , similar to the function in the Editor. This
120308 - requires changing the assignment of Alt F10 in SDS. Considered trying
120309 - pc9 for setting flags to identify bold, action items and headlines,
120310 - since that is not assigned to anything at this time. However, decided
120311 - to switch and use Shift F9 for scrolling through highlight options,
120312 - and changed current Shift F9 function of jumping to the bottom of a
120313 - file to pc9, since that is more complementary to pc1 that jumps to the
120314 - top of the file.
120316 - ..
120317 - Consider modifying macro 132 to eliminate j as an option, however
120318 - there are often occassions when a line is highlighted and is not a
120319 - headline. Moreover, if we try to get too fancy, we wrap ourself into
120320 - a pretzel, with different options for options.
120321 -
120322 - Should j option in macro 132 be moved to the end, since, now
120323 - instead of the being the most frequent use, it will be used less
120324 - frequently?
120326 - ..
120327 - Would be nice for Alt F10 to add lines. Should it also move the
120328 - cursor to somewhere -- where? Does the cursor move on multiple
120329 - passes, or just the first pass, and then remains in the same place
120330 - while lines are added?
120331 -
120332 - [...below, changed Alt F10 to add lines in SDS. ref SDS 0 CH4M
120334 - ..
120335 - Should Enter add blank lines as well as move the cursor to the next
120336 - line? Same questions apply to Enter that arise for Alt F10.
120337 -
120338 -
120339 -
120340 -
1204 -
SUBJECTS
C09 Profile Assignments Ctrl F9 Jump to Bottom of File
130301 - ..
130302 - 000008 Macro 153 Profile Changed Function Key Assignments
130303 - Bottom of File Profile Shift F9 Changed to Ctrl F9
130304 - Profile Changed Shift F9 to Ctrl F9 Jump to Bottom of File
130305 -
130306 -
130307 - Line 320, ref OF 9 2Q3G, -entry 1531 in 000008 about 60 lines below
130308 -
130309 - pc9 macro 48
130310 -
130311 - Added this assigment changed from ps9 today to create
130312 - complementary functions using Ctrl F1 for top and Ctrl F9 for
130313 - bottom.
130315 - ..
130316 - This frees up ps9 to scroll through highlight choices in SDS
130317 - records, which is switched today from Alt F10, so that Alt F10
130318 - can be assigned to a new function that adds lines in SDS
130319 - records.
130320 -
130321 -
130322 -
130323 -
1304 -
SUBJECTS
Color Headlines Bold Follow up Forward Links, 910326 Shift F9
140301 - ..
140302 - Shift F9 Assigned to Scroll Through Highlight Options in SDS
140303 - Highlight Options Macro 132 Assigned to Shift F9 in SDS
140304 -
140305 - Line 2230, ref OF 9 FE4K, -entry 1571 in 000008
140306 -
140307 - pa10 macro 132
140308 - ps9 macro 132
140309 -
140310 - Changed pa10 by assigning ps9 to macro 132 for apply flags and
140311 - color scheme that highlight headlines, bold, and action items.
140313 - ..
140314 - This frees pa10 to work in SDS records similar to in the Editor
140315 - to add lines.
140317 - ..
140318 - Is this really a good idea???
140320 - ..
140321 - If this sticks, make same change to the Schedule so that
140322 - highlights are done the same way everywhere.
140323 -
140324 -
140325 -
140326 -
140327 -
140328 -
140329 -
1404 -
SUBJECTS
Add Lines below Cursor Line Macro 134 Alt F10
Alt F10 Add Blank Lines in SDS Records Comparable to Editor
170401 - ..
170402 - 000008 Macro 157 Alt F10 Assigned to New Macro 124 Add Lines
170403 - Alt F10 Add Lines in SDS Conform to Standard Editor Function
170404 -
170405 - Line 2230, ref OF 9 FE4K, -entry 1571 in 000008
170406 -
170407 - pa10 macro 134
170408 -
170409 - Changed 15 year assignment of Alt F10 from macro 132 for
170410 - scrolling through highlight options, to a new task in SDS of
170411 - adding lines below the cursor. This creates a common function
170412 - for Alt F10 in the Editor and in SDS. Macro 134 is a new
170413 - process.
170414 -
170415 -
170417 - ..
170418 - 000008 Macro 134 Add Blank Lines Below Cursor in SDS Records
170419 -
170420 - Line 1000, ref OF 9 XT5H, -entry 134 in 000008
170421 -
170422 - pushc
170423 - loc_cur 0 10
170424 - immed r
170425 - rel_cur 1 0
170426 - macro 641
170427 - popc
170428 - -exit
170429 -
170430 - This is a new function to add blank lines below the cursor line
170431 - in SDS records. Just repeat the current line, then delete the
170432 - content of the new line.
170433 -
170434 -
170435 -
170436 -
170437 -
170438 -
1705 -
SUBJECTS
Add Lines below Cursor Line Macro 134 Alt F10
Enter Add Lines on Blank Lines to Avoid Runnning Out of Lines in SDS
Blank Line, Add Lines
Scroll File Up at Bottom Screen
210601 - ..
210602 - 000008 Macro 136 Enter Adds Blank Line on Blank Lines
210603 - Enter Adds Blank Line on Blank Lines Macro 136 in SDS and Editor
210604 -
210605 - This may help solve Gary's issue with running our of lines by pressing
210606 - Enter.
210608 - ..
210609 - Line 1230, ref OF 9 1353, -label ed471a in 000008
210610 -
210611 - Code here is doing Enter in editor.
210612 -
210614 - ..
210615 - Line 1160, ref OF 9 1984, -label clfE in 000008
210616 -
210617 - setlen 100 0
210618 - getgbl 257 257
210619 - -if @47 = 1 -if @100 = 0 -goto m985x
210620 - -if @47 = 2 -if @100 < 10 -goto m985x
210621 -
210622 - Put line length in 100, and get linking flag here so we only
210623 - have to do it once, because today we are jumping a bunch of
210624 - steps when the line is blank.
210625 -
210626 -
210628 - ..
210629 - Line 1210, ref OF 9 0671, -label clfE in 000008 about 50 lines below
210630 -
210631 - -if @3 = 0 -goto oCodes
210632 -
210633 - We are in SDS, so if the 3rd position on the line number is
210634 - blank it is a control field, so do that process. ref SDS 0
210635 - NX7M
210636 -
210637 -
210639 - ..
210640 - Line 1220, ref OF 9 0616, -label clfE in 000008 about 60 lines below
210641 -
210642 - z 1 20
210643 - fr /Milg/
210644 - getscr 1
210645 - -if @0 = 0 -goto oPSI1
210646 -
210647 - This is part of code to access SI from control field
210648 - description line.
210650 - ..
210651 - Don't know if we need getscr 1, because code is keying off of
210652 - the initial cursor location, which originally was captured by
210653 - counter 123, but today is changed to 125. If the cursor is on
210654 - the top description for a Control Field, then -goto oPSI1
210655 -
210656 -
210658 - ..
210659 - Line 1280, ref OF 9 1353, -label ed471a in 000008 about 30 lines
210660 - below
210661 -
210662 - macro 541
210663 - savescr 17
210664 - setcnt 41 @4
210665 -
210666 - Put cursor on left margin and save location; capture position
210667 - of anchor.
210668 -
210669 -
210671 - ..
210672 - Line 1370, ref OF 9 HBCH, -label mm985 in 000008
210673 -
210674 - -if @47 = 2 -if @258 = 676 -goto in985
210675 - -if @257 = 1691 -goto 704081
210676 - -if @257 != 1690 -goto nlinKem
210677 -
210679 - ..
210680 - Line 1720, ref OF 9 0832, -label entrC in 000008
210681 -
210682 - Code completes processing Enter key,
210683 -
210684 - getscr 17
210685 - -if @98 > 0 -if @101 > 0 up
210686 -
210687 - Put cursor on left margin. If line is not blank, then scroll up
210688 - to the next line; has effect of a carriage return.
210690 - ..
210691 - setlen 110 0
210692 - -if @47 = 2 -if @110 < 8 -goto ilacl
210693 -
210694 - In SDS, for indented lines, do separate code to jump to
210695 - beginning of next word or to next standard line structure.
210696 -
210697 - -if @101 = 0 immed r
210698 - -if @101 = 0 up
210699 -
210700 - If start on a blank line, then add a blank line and scroll up
210701 - to maintain relative screen position, and put cursor on left
210702 - margin ready for creating a new line.
210703 -
210704 - [On 030801 Gary requested this type of operation.
210705 - ref SDS 8 O78V
210706 -
210707 -
210708 -
210709 -
2108 -
SUBJECTS
Citations Find Doc References in Narrative, Click on Field ading
220301 - ..
220302 - Citations to References Find in the Record
220303 - Find Citations to References for SDS Records and Documents
220304 -
220305 - Follow up ref SDS 3 K3EA.
220306 -
220307 - Line 1790, ref OF 9 Q79I, -label oRec in 000008
220308 -
220309 - -label oRec
220310 - -if @125 < 9 -goto oFil
220311 - macro 98
220312 - -exit
220313 -
220314 - Added conditional that if User double clicks or presses Enter
220315 - in a line number field that is part of the Reference field for
220316 - SDS records, then goto oFil, ref SDS 0 Z39M, and set up to look
220317 - for instances where this record is used as a citation in the
220318 - record. If the User clicks beyond the line number field, then
220319 - open the record.
220320 -
220322 - ..
220323 - Line 1830, ref OF 9 EH9H, -label oFil in 000008
220324 -
220325 - This feature was not working correctly. It should set up qsc
220326 - for Shift F4 to repeat searches for a file listed as a citation
220327 - in References. Testing found that the standard performance of
220328 - Shift F4 calling macro 64 to launch a search performs additonal
220329 - steps that are not needed for this application. Solution is to
220330 - make a custom assignment of ps4 @qsc in 04407, per below.
220331 - ref SDS 0 YK3F
220332 -
220334 - ..
220335 - -if @125 > 8 -goto ndlus
220336 - @c:\sd\03\04407
220337 - -exit
220338 -
220339 - Was able to increase performance by making this code generic to
220340 - find citations for both SDS records and for files. The
220341 - conditional evaluates if User double clicks in the line number
220342 - field adjacent to a listing in References, and in that case
220343 - runs macro 04407 to look for instances where the referenced SDS
220344 - record or file is entered as a citation in the record, rather
220345 - than open the reference. The counter 125 flag is set at the
220346 - beginning of macro 136 when enter of a double click occurs.
220348 - ..
220349 - Was able to reduce the lines of code in 000008 by transferring
220350 - all of the diagnostics to 04407.
220351 -
220353 - ..
220354 - Line 70, ref OF 2 8A8N, in 04407
220355 -
220356 - macro 66
220357 - macro 301
220358 - immed 10a
220359 - ins_text!z 10 80!
220360 -
220361 - Change this code today; after call macro 66 that opens the
220362 - standard search macro qsc, all lines are removed with macro
220363 - 301, which leaves 1 blank line, then add 10 more because we
220364 - need 11. Enter first command to set the zone lookinf for a
220365 - file listed in the Reference field.
220366 -
220368 - ..
220369 - Line 150, ref OF 2 YG6J, in 04407
220370 -
220371 - ps4 @qsc
220372 -
220373 - Added this command so that a search through the file will
220374 - execute qsc directly, rather than use standard code called by
220375 - Shift F4 in macro 42 in 000001, which does a bunch of stuff we
220376 - don't need that messes things up.
220377 -
220378 -
220379 -
220381 - ..
220382 - Line 1890, ref OF 9 EU4H, -label oCodes in 000008
220383 -
220384 - -label oCodes
220385 - -if @123 > 43 -if @123 < 51 -goto lfcds
220386 -
220387 - Comes from processing the line number to establish this is a
220388 - control field. ref SDS 0 NS9J
220389 -
220390 -
220392 - ..
220393 - Line 1920, ref OF 9 RZ6M, -entry 143 in 000008
220394 -
220395 - -entry 143
220396 - @c:\sd\03\03502
220397 -
220398 - If cursor started in subject section of Control Field, open the
220399 - code. Below, modify this code. ref SDS 0 9N6I
220400 -
220401 -
220402 -
220404 - ..
220405 - Line 1960, ref OF 9 0888, -label oPSI1 in 000008
220406 -
220407 - -label oPSI1
220408 - setcnt 9 997
220409 - -if @125 > 33 -if @123 < 42 setcnt 9 999
220410 - -if @125 > 65 setcnt 9 998
220411 - rel_cur 1 0
220412 -
220413 - This code sets flags for further processing; today changed the
220414 - counter from 123 to 125, per above, but the downstream code
220415 - needs also to be changed.
220416 -
220417 -
220418 -
220419 -
220420 -
2205 -
SUBJECTS
Control Field Code "look-up," - 03502
230301 - ..
230302 - 03502 Open Primary Index If No Code is in the Field
230303 -
230304 - Line 250, ref OF 1 FK3M, -label k01 in 03502
230306 - ..
230307 - This is called from within 000008 macro 136, per above. ref SDS 0 KL9F
230308 -
230309 - -if @5 > 19 -if @5 < 26 setcnt 243 103
230310 - -if @5 > 28 -if @5 < 33 setcnt 243 101
230311 -
230312 - If cursor is between 19 26, it is an employee, so do indiv
230313 - contact data base look up.
230315 - ..
230316 - If cursor is between 28 33, it is billing, so do orgz contact
230317 - data base look up.
230318 -
230320 - ..
230321 - Line 380, ref OF 1 ID9K, -label nMIlk in 03502
230322 -
230323 - -if @243 = 101 -goto Inv
230324 - -if @243 = 103 -goto Inv
230325 -
230326 - For contacts, goto Inv, ref SDS 0 TG5O,
230327 -
230329 - ..
230330 - Line 400, ref OF 1 1Y5M, -label nMIlk in 03502
230331 -
230332 - -if @100 > 2 -goto MI_lk
230333 - setcnt 117 1111
230334 - getscr 1
230335 - -goto fIn
230336 -
230337 - If the cursor position is greater than 2, then a code is
230338 - entered in the field, so go open it; otherwise, the field is
230339 - blank, so set a flag for macro 136 in 000008 to open primary SI
230341 - ..
230342 - Changed my mind and unplugged this code. Kept the control in
230343 - macro 136.
230344 -
230345 -
230347 - ..
230348 - Line 1070, ref OF 1 UM3F, -label Inv in 03052 about 30 lines below
230349 -
230350 - -if @243 = 101 setcnt 128 4
230351 - -if @243 = 103 setcnt 128 2
230352 - setgbl 1 48
230353 - setgbl 2 48
230354 - setgbl 3 48
230355 - macro 1303
230356 -
230357 - If cursor started in employee field set flag to process
230358 - organizational contact data base; if cursor started in billing
230359 - field, set flag for processing individual contact data base.
230360 - Start first 8 char to 0, because at this time not supporting
230361 - full width of contact data record structure in Control Fields.
230363 - ..
230364 - Call macro 1303 to open contact records, which is in 000008,
230365 - but only sets a flag, per above.
230366 -
230367 -
230369 - ..
230370 - Line 870, ref OF 9 2638, -label oCon in 000008
230371 -
230372 - setcnt 1 3000
230373 - macro 1302
230374 - -exit
230375 -
230376 -
230377 -
230379 - ..
230380 - Line 780, ref OF 10 3304, -entry 1302 in 000009
230381 -
230382 - Processing call from 000008 under macro 1303 to open a contract
230383 - record from a Control Field which is primarily called by macro
230384 - 03502, per above. ref SDS 0 TG5O
230385 -
230386 -
230388 - ..
230389 - Line 4290, ref OF 10 I19L, -label stCnt in 000009
230390 -
230391 - -if @243 > 100 -if @243 < 104 -goto aMSumY
230392 -
230393 - This code is failing.
230394 -
230395 -
230396 -
230397 -
230398 -
230399 -
230400 -
230401 -
230402 -
2305 -
SUBJECTS
Add Blank Lines Below Cursor Alt F10
Highlight Flags Shift F9
250401 - ..
250402 - Menus and Help Update to Reflect New Assignments.
250403 -
250404 - Modified menues to reflect changes in function assignments.
250405 -
250406 - Found other changes that have been made to the function assignments,
250407 - but not reflected in menus.
250408 -
250409 -
250410 -
250411 -
250412 -
250413 -
250414 -
250415 -
250416 -
250417 -
250418 -
2505 -