GMRCDRFR ;SLC/JFR - DEFAULT REASON FOR REQUEST UTILS ; 11/12/00 12:00
Source file <GMRCDRFR.m>
Package | Total | Call Graph |
---|---|---|
List Manager | 2 | EN^VALM FULL^VALM1 |
VA FileMan | 2 | $$GET1^DIQ ^DIR |
Kernel | 1 | DISP^XQORM1 |
Text Integration Utility | 1 | BLRPLT^TIUSRVD |
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 |
---|---|---|
EN | ; -- main entry point for GMRC DEFAULT REASON
|
|
SELPT | ;get new patient
|
|
SELSS | ; get new service
|
|
SELPROC | ; get a new procedure
|
|
HDR | ; -- header code
|
|
INIT | ; -- init variables and list array
|
|
HELP | ; -- help code
|
|
EXIT | ; -- exit code
|
|
EXPND | ; -- expand code
|
|
GETDEF(GMRCARR,GMRCSRV,GMRCDFN,RESOLV) | ; return default reason for request
; GMRCARR = array to return containing default RFR ; GMRCSRV = reference to file 123.5 (#;99CON) or file 123.3 (#;99PRC) ; GMRCDFN = patient identifier if to return resolved ; RESOLV = 1 or 0 ; if RESOLV=1 GMRCARR will be returned resolved |
|
REAF(GMRCOI) | ;return value of RESTRICT DEFAULT REASON EDIT field to CPRS
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^GMR( | GETDEF+8, GETDEF+10, GETDEF+11, REAF+10, REAF+11, REAF+12 |
^GMR(123.3 - [#123.3] | HDR+1 |
^GMR(123.5 - [#123.5] | HDR+2 |
^TMP("GMRCRFR" | SELPT+6!, SELSS+8!, SELPROC+9!, INIT+1, INIT+2, INIT+3, INIT+4*, INIT+5 |
^TMP("TIUBOIL" | GETDEF+12, GETDEF+13! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DIR | EN+1~, SELPT+1~, SELSS+1~, SELPROC+2~ |
DIR("A" | EN+3*, SELSS+4*, SELPROC+5* |
DIR(0 | EN+2*, SELPT+3*, SELSS+4*, SELPROC+5* |
DIROUT | EN+1~ |
DIRUT | EN+1~, EN+4, SELPT+1~, SELPT+4, SELSS+1~, SELSS+6, SELPROC+2~, SELPROC+7 |
DTOUT | EN+1~, SELPT+1~, SELSS+1~, SELPROC+2~ |
DUOUT | EN+1~, SELPT+1~, SELSS+1~, SELPROC+2~ |
FILE | REAF+8~, REAF+9*, REAF+10, REAF+11, REAF+12 |
GMRCARR | GETDEF~, GETDEF+10, GETDEF+12 |
GMRCDFN | EN+1~, GETDEF~, GETDEF+9, GETDEF+11 |
GMRCFIL | GETDEF+6~, GETDEF+7*, GETDEF+8, GETDEF+10, GETDEF+11 |
GMRCOI | REAF~, REAF+9, REAF+10, REAF+11, REAF+12 |
GMRCPAT | EN+7, SELPT+5*, HDR+3, INIT+2, EXIT+1! |
GMRCPROC | EN+6, SELSS+3!, SELPROC+4!, SELPROC+8*, HDR+1, INIT+2, EXIT+1! |
GMRCSRV | GETDEF~, GETDEF+5, GETDEF+7, GETDEF+8, GETDEF+10, GETDEF+11 |
GMRCSV | EN+1~, EN+5, SELSS+3!, SELSS+7*, SELPROC+4!, HDR+2, INIT+2, EXIT+1! |
RESOLV | GETDEF~, GETDEF+9 |
U | HDR+1, HDR+2, REAF+11, REAF+12 |
>> VALMBG | INIT+6* |
>> VALMCNT | INIT+5* |
>> VALMHDR(1 | HDR+1*, HDR+2* |
>> VALMHDR(2 | HDR+3* |
X | EN+1~, SELPT+1~, SELSS+1~, SELPROC+2~, HELP+1* |
Y | EN+1~, EN+5, EN+6, SELPT+1~, SELPT+5, SELSS+1~, SELSS+7, SELPROC+2~, SELPROC+8 |