Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
VA FileMan 2 DT^DICRW  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOLIST OVERRIDES  

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

External References

Name Field # of Occurrence
^%ZIS PSOCLOLS+7
^%ZISC EXIT+1
^%ZTLOAD QUE+2
DT^DICRW PSOCLOLS+4
^DIR PSOCLOLS+5, PSOCLOLS+6, PRINT+3
$$FMTE^XLFDT DQ+2, DQ+3, PRINT+10
$$NOW^XLFDT DQ+2

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
Routine Call
  • %ZIS
  • Line Location:
    • PSOCLOLS+7
Routine Call
  • DIR
  • Line Location:
    • PSOCLOLS+5
    • PSOCLOLS+6
    • PRINT+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PRINT+9
^PS(52.52 - [#52.52] DQ+5, DQ+6, DQ+8, DQ+9
^PSDRUG - [#50] PRINT+9
^PSRX - [#52] PRINT+8
^VA(200 - [#200] PRINT+7

Label References

Name Line Occurrences
EXIT PSOCLOLS+5, PSOCLOLS+6, PSOCLOLS+7, PSOCLOLS+8, DQ+5, DQ+6
NOTFND DQ+5, DQ+6
PGHDR DQ+5, PRINT+4
PRINT DQ+9
QUE PSOCLOLS+8
RPTEND DQ+11, NOTFND+2

Naked Globals

Name Field # of Occurrence
^(0 PRINT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS PSOCLOLS+4~, PSOCLOLS+7!*
CLUSR PRINT+5~
DIR PSOCLOLS+4~, PSOCLOLS+6!, PRINT+3~
DIR("A" PSOCLOLS+5*, PSOCLOLS+6*
DIR(0 PSOCLOLS+5*, PSOCLOLS+6*, PRINT+3*
DT PSOCLOLS+5, PSOCLOLS+6
IO PGHDR+2
IO("Q" PSOCLOLS+8
IOF DQ+5, PRINT+4
IOSL PRINT+1
IOST PRINT+2
OVRDND PRINT~, PRINT+6, PRINT+8
>> POP PSOCLOLS+7
PSIEN DQ+1~, DQ+9*
PSOCLDT PSOCLOLS+4~
PSOCLDT("beg" PSOCLOLS+5*, DQ+3, DQ+5, DQ+6, DQ+7
PSOCLDT("end" PSOCLOLS+6*, DQ+3, DQ+6, DQ+8
PSOHDR DQ+1~, DQ+5, DQ+6, PRINT+4, PGHDR~, NOTFND~
PSOHDR(0 DQ+4*, PGHDR+1*, PGHDR+2
PSOHDR(1 DQ+2*, PGHDR+2
PSOHDR(2 DQ+3*, PGHDR+2, NOTFND+1
PSOLPDT DQ+1~, DQ+7*, DQ+8*, DQ+9, PRINT+10
PSOLPDT("stop" DQ+7*, DQ+8, DQ+11, PRINT+3*, PRINT+4
RPTLN PRINT+5~, PRINT+10*, PRINT+11*, PRINT+12
RXCLO PRINT+5~
RXCLO("apprvDuz" PRINT+6*, PRINT+7
RXCLO("apprvNm" PRINT+7*, PRINT+14
RXCLO("cmmnt" PRINT+8*, PRINT+16
RXCLO("drugNm" PRINT+9*, PRINT+13
RXCLO("ntryDuz" PRINT+6*, PRINT+7
RXCLO("ntryNm" PRINT+7*, PRINT+14
RXCLO("ovrdRsn" PRINT+6*, PRINT+15
RXCLO("rx#" PRINT+8*, PRINT+10
RXCLO("rxDfn" PRINT+8*, PRINT+9
RXCLO("rxDrgIen" PRINT+8*, PRINT+9
RXCLO("rxIen" PRINT+6*, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+13
RXCLO("rxPtNm" PRINT+9*, PRINT+11
RXCLO("rxZroNd" PRINT+8*
U PRINT+6, PRINT+7, PRINT+8, PRINT+9
X DQ+1~, DQ+9*
Y PSOCLOLS+5, PSOCLOLS+6, PRINT+3, PRINT+5~, PRINT+10*
ZTDESC QUE+1~, QUE+2*
ZTRTN QUE+1~, QUE+2*
ZTSAVE QUE+1~
ZTSAVE("PSOCLDT(" QUE+2*
ZTSK PRINT+2, QUE+1~, QUE+3

Marked Items

Name Field # of Occurrence
$T( QUE+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All