Routine: PSOARCS2

Information

PSOARCS2 ;BHAM ISC/LGH,SAB - Rx archive (cont'd) ; 07/07/92

Name	Comments	DBIA/ICR reference
END
CLOSE
ARC	;archive info - invoked by ^PSOARC
MES	;store archived Rx's in Pharmacy Patient file (#55)
QMES
TAPE1	;Invoked from ^PSOARCSV
PSOAT	;check for eot return psoaeot=1 if eot found
EOT
READ
VAR	;Invoked by ^PSOARCS1 and ^PSOARCS2

Name	Line Occurrences
Function Call: WRITE	Prompt: @PSOACPF Line Location: CLOSE+1
Function Call: WRITE	Prompt: !!,"Deleting entries from the PRESCRIPTION file",! Line Location: ARC+7
Function Call: WRITE	Prompt: "." Line Location: ARC+8
Function Call: WRITE	Prompt: $C(7),!!!,"Finished purging old prescriptions" Line Location: ARC+14
Function Call: WRITE	Prompt: !!,"Deleting entries from the PENDING file",! Line Location: ARC+15
Function Call: WRITE	Prompt: "." Line Location: ARC+19
Function Call: WRITE	Prompt: "!" Line Location: TAPE1+1
Function Call: WRITE	Prompt: T(1) Line Location: TAPE1+1
Function Call: WRITE	Prompt: T(1) Line Location: TAPE1+1
Function Call: WRITE	Prompt: !!?5," End of tape detected ",!?5,"After current tape rewinds, mount next tape" Line Location: EOT+0
Function Call: WRITE	Prompt: ^%ZOSF("REW") Line Location: EOT+0
Function Call: READ	Variable: XX Timeout: DTIME Line Location: READ+0
Function Call: WRITE	Prompt: !!,"Recording information" Line Location: READ+1
Function Call: WRITE	Prompt: !," Check both the 'OPEN PARAMETERS' and 'ASK RIGHT MARGIN' fields of",!," your device file" Line Location: VAR+2