GMRCXR ; ALB/SAT - GMR DD UTILITY ; May 25, 2023@10:25:35
Source file <GMRCXR.m>
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
|
|
POST189 | ; post=install for GMRC*3*189
|
FileNo | Call Tags |
---|---|
^GMR(123 - [#123] | GET1^DIQ |
123.02 | GET1^DIQ |