LRRP1 ;DALOI/STAFF - PRINT THE DATA FOR INTERIM REPORTS ;11/18/11 16:33
Source file <LRRP1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
;
|
||
ORDER | ;
|
|
TEST | ;
|
|
DATA | ;
|
|
CHECK | ||
CONT | ||
FOOT | ; from LRRP, LRRP2, LRRP3
|
|
HDR | ; Add Printed at, page #, change age to dob 7/2002 cka
|
|
ORU | ; Display remote ordering info if available
; Handle calls that don't pass parameters. |
|
ORUA(LRARRAY,LRDFN,LRSS,LRIDT,LRFLAG) | ; Display remote ordering info if available
; Call with LRARRAY = array with name/address info ; LRDFN = file #63 ien ; LRSS = file #63 subscript ; LRIDT = file #63 internal data/time of specimen ; LRFLAG = 0 (print facility info) ; 1 (return facility info in LRARRAY) |
|
PFAC(LR4,LRPG,LRFLAG,LRARRAY) | ; Display name/address of printing facility
; Call with LR4 = File #4 IEN ; LRPG = current page number to print ; LRFLAG = 0 (print facility info) ; 1 (return facility info in LRARRAY) ; LRARRAY = array with name/address info |
|
RL(LR4,LRFLAG,OUT) | ; Display name/address of reporting laboratory
; Call with LR4: File #4 IEN ; LRFLAG: <opt> 1=save to OUT array ; OUT: <byref><opt> |
|
REFDOC(LRDFN,LRSS,LRIDT) | ; Lookup LEDI referral free text provider name in file #63 on "ORUT" subscript
; Call with LRDFN = ien on entry in file #63 ; LRSS = file #63 subscript ; LRIDT = inverse specimen date/time |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|