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 |