Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PSOCLOLS

Package: Outpatient Pharmacy

Routine: PSOCLOLS


Information

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

Source Information

Source file <PSOCLOLS.m>

Entry Points

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) ;

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls