GMRCADG ;ABV/PIJ - Consults Report by Released by Policy. Patch GMRC*3.0*107 ;7/5/18 07:36
Source file <GMRCADG.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; -- main entry point for GMRC RPT ADMIN RELEASE CONSULT GROUPER
|
|
EN1 | ;Ask for date range
|
|
HDR | ; -- header code
|
|
BLDLIST | ; -- init variables and list array
|
|
FWD() | ;Check if the consult was forwarded from a consult service -DS or -ADMIN
|
|
INIT | ;
|
|
VALM10(LINEVAR) | ;
|
|
HELP | ; -- help code
|
|
EXIT | ; -- exit code
|
|
EXPND | ; -- expand code
|
|
DTRES | ;Restore old date in case user '^' out.
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^OR(100 - [#100] | GET1^DIQ |
100.001 | GET1^DIQ |
100.008 | GET1^DIQ |
^GMR(123 - [#123] | GETS^DIQ |