GMRCXR ; ALB/SAT - GMR DD UTILITY ;AUG 25, 2016
Source file <GMRCXR.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| AG123S1(GMRCDA1,GMRCDR) | ;build AG xref ;called by 'Set Logic' and 'Kill Logic' of the New Style AG cross reference #336 in file 123
|
|
| REQCHK(GMRCID) | ;check activities to determine if the REQUEST/CONSULTATION entry is still active and not scheduled
|
|
| REQCHKX | ; exit ;alb/sat 86 - add REQCHKX tag
|
|
| GETIEN(GMRCNM) | ;get ID from REQUEST ACTION TYPES file 123.1
|
|
| SCHED(DFN,GMRCDT,GMRCSVC) | ;look for appointment with stop code matching one in REQUEST SERVICES
|
|
| FINDTXT(GMRCID,GMRCRPA,GMRCTXT) | ;find text in word processing field ;alb/sat 86 - removed unused 3rd parameter
|
|
| GMRCTXT | ||
| POST | ;post install for GMRC*3*86
|
|
| XREF | ||
| POST169 | ;post install for GMRC*3*169
|
|
| AIFC | ;create and build NEW style AIFC for all REQUEST/CONSULTATION entries in file 123
|
| FileNo | Call Tags |
|---|---|
| ^GMR(123 - [#123] | GET1^DIQ |
| 123.02 | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR(123 - [#123] | AG123S1+5, AG123S1+8*, AG123S1+9!, REQCHK+17, REQCHK+24, REQCHK+25, REQCHK+26, REQCHK+31, REQCHK+32 |
| ^GMR(123.1 - [#123.1] | GETIEN+2 |
| ^GMR(123.5 - [#123.5] | SCHED+15, SCHED+16 |
| ^ORD(100.01 - [#100.01] | REQCHK+4, REQCHK+5 |
| ^TMP($J | SCHED+17!, SCHED+23, SCHED+24, SCHED+25, SCHED+26, SCHED+28! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CHK | AG123S1+3~, AG123S1+7*, AG123S1+8, AG123S1+9 |
| DFN | REQCHK+19*, REQCHK+38, SCHED~, SCHED+19, SCHED+23, SCHED+24, SCHED+25, SCHED+26 |
| DT | REQCHK+10, REQCHK+26 |
| GMRC40 | REQCHK+1~, REQCHK+32*, REQCHK+33, REQCHK+38 |
| GMRCACT | REQCHK+1~, REQCHK+33*, REQCHK+34, REQCHK+35, REQCHK+36, REQCHK+37, REQCHK+38, REQCHK+40 |
| GMRCAPI | SCHED+9~, SCHED+21* |
| GMRCARR | SCHED+9~, SCHED+17!, SCHED+21, SCHED+28! |
| GMRCARR("FLDS" | SCHED+20* |
| GMRCARR(1 | SCHED+18* |
| GMRCARR(4 | SCHED+19* |
| GMRCCAN | REQCHK+1~, REQCHK+13*, REQCHK+34, REQCHK+35 |
| GMRCCANF | REQCHK+1~, REQCHK+20*, REQCHK+23*, REQCHK+28*, REQCHK+31, REQCHK+35*, REQCHKX+2 |
| GMRCCS | REQCHK+2~, REQCHK+6*, REQCHK+7, REQCHK+22, REQCHK+40 |
| GMRCDA1 | AG123S1~, AG123S1+4*, AG123S1+5, AG123S1+7, AG123S1+8, AG123S1+9 |
| GMRCDC | REQCHK+1~, REQCHK+15*, REQCHK+34, REQCHK+35 |
| GMRCDONE | REQCHK+1~, REQCHK+14*, REQCHK+34, REQCHK+35 |
| GMRCDR | AG123S1~, AG123S1+5*, AG123S1+6, AG123S1+8, AG123S1+9 |
| GMRCDT | SCHED~, SCHED+13*, SCHED+14*, SCHED+18 |
| GMRCES | REQCHK+1~, REQCHK+16*, REQCHK+34, REQCHK+36 |
| GMRCESF | REQCHK+1~, REQCHK+20*, REQCHK+31, REQCHK+36*, REQCHK+37*, REQCHKX+3 |
| GMRCFD | REQCHK+2~, REQCHK+9*, REQCHK+10 |
| GMRCI | SCHED+9~, SCHED+15*, SCHED+16, SCHED+23*, SCHED+24, SCHED+25, SCHED+26, FINDTXT+7~, FINDTXT+12*, FINDTXT+13 |
| GMRCID | REQCHK~, REQCHK+6, REQCHK+9, REQCHK+17, REQCHK+24, REQCHK+25, REQCHK+26, REQCHK+27, REQCHK+31, REQCHK+32 , FINDTXT~, FINDTXT+11 |
| GMRCJ | SCHED+9~, SCHED+24*, SCHED+25, SCHED+26, FINDTXT+7~, FINDTXT+16* |
| GMRCLINE | FINDTXT+7~, FINDTXT+14*, FINDTXT+15, FINDTXT+17 |
| GMRCMSG | FINDTXT+7~ |
| GMRCNM | GETIEN~, GETIEN+2 |
| GMRCNOD | REQCHK+1~, REQCHK+17*, REQCHK+18, REQCHK+19 |
| GMRCNOS | REQCHK+3~, REQCHK+24*, REQCHK+25*, REQCHK+26, REQCHK+27 |
| GMRCOUT | XREF+1~, AIFC+2~ |
| GMRCPA | REQCHK+2~, REQCHK+4*, REQCHK+40 |
| GMRCPDC | REQCHK+1~, REQCHK+5*, REQCHK+7 |
| GMRCPREV | FINDTXT+7~, FINDTXT+8*, FINDTXT+14, FINDTXT+19* |
| GMRCRES | XREF+1~, XREF+26, AIFC+2~, AIFC+19 |
| GMRCRET | SCHED+9~, SCHED+10*, SCHED+23, SCHED+24, SCHED+26*, SCHED+29, FINDTXT+7~, FINDTXT+9*, FINDTXT+12, FINDTXT+15* , FINDTXT+16, FINDTXT+17*, FINDTXT+20 |
| GMRCRPA | REQCHK+1~, REQCHK+31*, REQCHK+32, FINDTXT~, FINDTXT+11 |
| GMRCSCH | REQCHK+1~, REQCHK+11*, REQCHK+34, REQCHK+37, REQCHK+38 |
| GMRCSCHF | REQCHK+1~, REQCHK+20*, REQCHK+31, REQCHK+38*, REQCHKX+1 |
| GMRCSER | REQCHK+1~, REQCHK+18*, REQCHK+38 |
| GMRCST | REQCHK+1~, REQCHK+12*, REQCHK+34, REQCHK+40 |
| GMRCSTF | REQCHK+1~, REQCHK+20*, REQCHK+37, REQCHK+38, REQCHK+40* |
| GMRCSTP | SCHED+9~, SCHED+25*, SCHED+26 |
| GMRCSTPL | SCHED+9~ |
| GMRCSTPL( | SCHED+16*, SCHED+26 |
| GMRCSVC | SCHED~, SCHED+11*, SCHED+12, SCHED+15, SCHED+16 |
| GMRCTHIS | FINDTXT+7~, FINDTXT+8*, FINDTXT+13*, FINDTXT+14, FINDTXT+19 |
| GMRCTXT | FINDTXT~, FINDTXT+10*, FINDTXT+15, FINDTXT+16*, FINDTXT+17 |
| GMRCWP | FINDTXT+7~, FINDTXT+11! |
| GMRCWP( | FINDTXT+12, FINDTXT+13 |
| GMRCXR | XREF+1~, XREF+26, AIFC+2~, AIFC+19 |
| GMRCXR("ACTIVITY" | XREF+7*, AIFC+9* |
| GMRCXR("DESCR" | XREF+11*, XREF+12*, XREF+13*, XREF+14*, XREF+15*, XREF+16*, XREF+17*, XREF+18*, AIFC+7* |
| GMRCXR("EXECUTION" | XREF+6*, AIFC+8* |
| GMRCXR("FILE" | XREF+2*, AIFC+3* |
| GMRCXR("KILL" | XREF+20* |
| GMRCXR("NAME" | XREF+3*, AIFC+4* |
| GMRCXR("ROOT | FILE" , XREF+9*, TYPE" , XREF+8* |
| GMRCXR("SET" | XREF+19* |
| GMRCXR("SHORT | DESCR" , XREF+4*, AIFC+10* |
| GMRCXR("TYPE" | XREF+5*, AIFC+5* |
| GMRCXR("USE" | XREF+10*, AIFC+6* |
| GMRCXR("VAL" | XREF+22*, XREF+23*, XREF+24*, XREF+25*, AIFC+11*, AIFC+12*, AIFC+13*, AIFC+14*, AIFC+15*, AIFC+16* , AIFC+17*, AIFC+18* |
| GMRCXR("WHOLE | KILL" , XREF+21* |
| U | AG123S1+5, REQCHK+18, REQCHK+19, REQCHK+26, REQCHK+33, REQCHK+38, SCHED+16, SCHED+25, SCHED+26 |
| X | REQCHK+3~, REQCHK+26, FINDTXT+7~, FINDTXT+11* |
| X1 | REQCHK+3~, REQCHK+26* |
| X2 | REQCHK+3~, REQCHK+26* |
| Y | GETIEN+1~, GETIEN+2*, GETIEN+3 |
| Name | Field # of Occurrence |
|---|---|
| $T(GMRCTXT+GMRCJ | FINDTXT+16 |
