Routine: PSOCLOLS

Information

PSOCLOLS ; HEC/hrub ;4 May 2019 18:48:29

Name	Comments	DBIA/ICR reference
DQ	; List of Override Prescriptions [PSOLIST OVERRIDES] report
EXIT	;
PRINT(OVRDND)	;OVRDND - zero node of entry in file 52.52
PGHDR(PSOHDR)	; header, PSOHDR passed by ref.
RPTEND	;
QUE	;queue job
NOTFND(PSOHDR)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Print clozapine prescriptions with lockout override.",! Line Location: PSOCLOLS+3
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+4
Function Call: WRITE	Prompt: !,RPTLN Line Location: PRINT+12
Function Call: WRITE	Prompt: !," Drug: "_$S(RXCLO("rxIen"):RXCLO("drugNm"),1:"UNKNOWN (PRESCRIPTION DELETED)") Line Location: PRINT+13
Function Call: WRITE	Prompt: !," Entered by: "_RXCLO("ntryNm")_" Approved by: "_RXCLO("apprvNm") Line Location: PRINT+14
Function Call: WRITE	Prompt: !," Override reason: "_$P(RXCLO("ovrdRsn"),":",2) Line Location: PRINT+15
Function Call: WRITE	Prompt: !," Comments: "_RXCLO("cmmnt"),! Line Location: PRINT+16
Function Call: WRITE	Prompt: !,PSOHDR(1)_PSOHDR(0,"pg#"),!,PSOHDR(2),! Line Location: PGHDR+2
Function Call: WRITE	Prompt: !," End of Clozapine Override Report ",! Line Location: RPTEND+1
Function Call: WRITE	Prompt: !,$S($G(ZTSK):"Override Report queued as task #"_ZTSK,1:"* Report NOT queued.") Line Location: QUE+3
Function Call: WRITE	Prompt: !," * No CLOZAPINE PRESCRIPTION OVERRIDES"_PSOHDR(2)_" *",! Line Location: NOTFND+1