GMRCDRFR ;SLC/JFR - DEFAULT REASON FOR REQUEST UTILS ; 11/12/00 12:00
Source file <GMRCDRFR.m>
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 |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |