ORGUEM2 ; slc/KCM - Set Up Formatted Protocol Menus (cont) ;6/1/92 17:08
Source file <ORGUEM2.m>
| Package | Total | Caller Graph |
|---|---|---|
| Order Entry Results Reporting | 1 | ORGUEM |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FLDS(DA,ORGFLG) | ; Edit item fields without updating database
|
|
| BLANKS | ; Renumber blank line protocols
|
|
| LOOK(X) | ; Lookup an item on the menu
|
|
| STUF(DA,FLD,VAL) | ;Stuff value into field for entry
|
|
| MOVE | ; Resequence items
|
|
| GMENU(X,Y) | ; Select or Create Menu to be set up
|
|
| ASK(X,Y) | ; Ask a Yes or No question
|
|
| USER | ; Assign menu to individual users
|
|
| NEW | ; Copy from existing menu or get required fields for new menu
|
|
| SMENU | ; Set up for call to display menu
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^ORD(101 - [#101] | Classic Fileman Calls |
| ^VA(200 - [#200] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ORD(101 - [#101] | NEW+8*, SMENU+4, SMENU+5, SMENU+6, BLANKS+5, BLANKS+7 |
| Name | Line Occurrences |
|---|---|
| $$ASK | NEW+3 |
| $$LOOK | MOVE+2 |
| GMENU | NEW+5 |
| SMENU | LOOK+2 |
| STUF | MOVE+10 |
| Name | Field # of Occurrence |
|---|---|
| ^(28 | SMENU+4 |
| ^(29 | SMENU+5 |
| ^(4 | SMENU+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %X | NEW+6~, NEW+7* |
| %Y | NEW+6~, NEW+7* |
| COUNT | BLANKS+1~, BLANKS+4*, BLANKS+6*, BLANKS+7 |
| DA | GMENU+2~, NEW+6~, NEW+10*, NEW+12~, NEW+14*, FLDS~, BLANKS+1~, BLANKS+8*, STUF~, USER+1~ , USER+13* |
| DA(1 | FLDS+2*, BLANKS+4*, STUF+2* |
| DIC | GMENU+2~, GMENU+3*, FLDS+1~, BLANKS+1~, STUF+1~, USER+1~, USER+10*, USER+13 |
| DIC("A" | USER+11* |
| DIC("DR" | GMENU+3* |
| DIC("S" | GMENU+4* |
| DIC(0 | GMENU+3*, GMENU+7, USER+10* |
| DIE | NEW+12~, NEW+14*, FLDS+1~, FLDS+2*, BLANKS+1~, BLANKS+4*, STUF+1~, STUF+2*, USER+1~, USER+13* |
| DIK | NEW+6~, NEW+10* |
| DIR | MOVE+1~, USER+1~ |
| DIR("A" | ASK+2*, MOVE+3*, USER+6* |
| DIR("B" | ASK+2* |
| DIR(0 | ASK+2*, MOVE+3*, USER+5* |
| >> DIROUT | GMENU+9* |
| >> DIRUT | MOVE+4, USER+7 |
| DLAYGO | GMENU+2~, GMENU+3* |
| DR | NEW+12~, NEW+14*, FLDS+1~, FLDS+2*, BLANKS+1~, BLANKS+8*, STUF+1~, STUF+2*, USER+1~, USER+13* |
| DTIME | GMENU+9 |
| FLD | STUF~, STUF+2 |
| >> I | MOVE+6*, MOVE+9* |
| ITM | BLANKS+1~, BLANKS+5*, BLANKS+7, BLANKS+8 |
| LIST | BLANKS+1~, BLANKS+3, BLANKS+5 |
| LIST( | BLANKS+5, BLANKS+7, BLANKS+8 |
| LST | LOOK+1~, LOOK+5*, LOOK+6 |
| ORGCOPY | NEW+1~, NEW+3*, NEW+4, NEW+5, NEW+11 |
| ORGFLG | FLDS~, FLDS+3* |
| ORGIDX | MOVE+1~, MOVE+10* |
| ORGLST | MOVE+1~, MOVE+2*, MOVE+5, MOVE+6, MOVE+8, MOVE+9, MOVE+10 |
| >> ORGMENU | NEW+7, NEW+8, NEW+10, NEW+14, FLDS+2, LOOK+4, SMENU+2, SMENU+3, SMENU+4, SMENU+5 , SMENU+6, BLANKS+3, BLANKS+4, STUF+2, USER+13 |
| >> ORGMENU("TOG" | LOOK+3, LOOK+4, SMENU+2 |
| >> ORGMENU(0 | NEW+2, NEW+8 |
| ORGOK | GMENU+2~, GMENU+5, GMENU+7*, GMENU+11*, GMENU+12*, GMENU+14* |
| >> ORGPOP | GMENU+7, GMENU+9*, GMENU+11*, NEW+4*, NEW+5, NEW+15* |
| ORGTYP | USER+1~, USER+8*, USER+13 |
| VAL | STUF~, STUF+2 |
| X | GMENU~, GMENU+3, GMENU+8~, GMENU+9*, ASK~, ASK+2, LOOK~, LOOK+3, BLANKS+7*, BLANKS+8 , STUF+1~ |
| X1 | MOVE+8~*, MOVE+9* |
| X2 | MOVE+8~* |
| X3 | MOVE+8~*, MOVE+9 |
| XQORM | LOOK+1~, SMENU+2*, SMENU+3* |
| XQORM("A" | LOOK+3*, SMENU+4* |
| XQORM("B" | SMENU+5* |
| XQORM("M" | SMENU+2*, SMENU+6* |
| XQORM("W" | SMENU+1* |
| XQORM(0 | LOOK+3*, SMENU+2*, SMENU+3* |
| Y | GMENU~, GMENU+7, GMENU+11, GMENU+12, NEW+5, NEW+7, NEW+15, ASK~, ASK+2, ASK+4 , FLDS+3, LOOK+5*, MOVE+5, MOVE+6*, MOVE+8, MOVE+9*, MOVE+10, STUF+1~, USER+8, USER+9 , USER+12, USER+13, USER+14* |
| Y( | LOOK+5 |
| Y(0 | GMENU+14, GMENU+15 |