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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSJCLOLS

Package: Inpatient Medications

Routine: PSJCLOLS


Information

PSJCLOLS ;ALB/RTW - LIST INPATIENT CLOZAPINE ORDERS ENTERED BY OVERRIDE ; 8/30/18 3:20pm

Source Information

Source file <PSJCLOLS.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 ^%DT  ($$FIND1,LIST)^DIC  ($$GET1,GETS)^DIQ  

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
Inpatient Medications 1 PSJLIST OVERRIDES  

Entry Points

Name Comments DBIA/ICR reference
DATE
DEV
DQ ;Entry to report
EXIT
PRINT
HD
QUE ;queue job

External References

Name Field # of Occurrence
^%DT DATEDATE+1
^%ZIS DEV
^%ZISC EXIT
^%ZTLOAD QUE+1
$$FIND1^DIC PRINT+6
LIST^DIC DQ+1
$$GET1^DIQ PRINT+4, PRINT+7, PRINT+8, PRINT+12
GETS^DIQ DQ+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Print list of clozapine orders overriding lockout",!
  • Line Location: PSJCLOLS+3
Function Call: WRITE
  • Prompt: !!,"Ending date must be after beginning date"
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !,"Select a printer "
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !,?5,"NO ORDERS FOUND",@IOF
  • Line Location: DQ+2
Function Call: WRITE
  • Prompt: !,?5,"NO ORDERS FOUND",@IOF
  • Line Location: DQ+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DQ+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: !,?3,"Date : ",$E(PSJOD,4,5),"/",$E(PSJOD,6,7),"/",$E(PSJOD,2,3),?25,"ORDER # : ",PSJORD,?45,"Patient : ",PSJPAT
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,?3,"DRUG : ",PSJDRG
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,?3,"Entered by : ",PSJUSR,!,?3,"Approved by : ",PSJAPR
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !,?3,"Lockout Reason : ",$$GET1^DIQ(52.54,PSJREA,.01)
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !,?3,"Comments : "
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: PSJCOM,!!
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,?14
  • Condition for execution: $L(X)+$X>70
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: X," "
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !!,?5,"LIST OF ORDERS WRITTEN FOR CLOZAPINE OVERRIDING LOCKOUT",!,?10,"FOR THE DATE RANGE ",$E(PSOBD,4,5),"/",$E(PSOBD,6,7),"/",$E(PSOBD,2,3)," THROUGH ",$E(PSOED,4,5),"/",$E(PSOED,6,7),"/",$E(PSOED,2,3),!
  • Line Location: HD+0
Routine Call
  • DIC
  • Line Location:
    • PRINT+6
Routine Call
  • DIC
  • Line Location:
    • DQ+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100 - [#100] GET1^DIQ
100.045 FIND1^DIC,  GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PS(52.54 - [#52.54] GET1^DIQ
^PS(53.8 - [#53.8] GETS^DIQ,  LIST^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J DQ+1!, DQ+2, DQ+3, DQ+4, DQ+5, EXIT+1!

Label References

Name Line Occurrences
DATE DATE+1
EXIT DATEDATE+1, DEVDQ+2, DQ+3, QUE+1
HD DQ+2, PRINT
PRINT DQ+6
QUE DEV+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE*, EXIT!
%DT("A" DATE*, DATE+1*
>> %ZIS DEV*
>> %ZIS("B" DEV*
>> I DQ+4*, DQ+5
IO HD
IO("Q" DEV+1
IOF DQ+2, DQ+3, DQ+7, PRINT
IOSL PRINT
J EXIT!, PRINT+14*
POP DEV, EXIT!
PSJAPR EXIT!, PRINT+3*, PRINT+4*, PRINT+11
PSJCOM EXIT!, PRINT+5*, PRINT+13, PRINT+14
PSJDATA DQ+6, EXIT!
PSJDATA( PRINT+1, PRINT+2, PRINT+3, PRINT+5
PSJDRG EXIT!, PRINT+7*, PRINT+8*, PRINT+10
>> PSJNUM PRINT+6*, PRINT+7
PSJOD DQ+4*, EXIT!, PRINT+9
>> PSJORD PRINT+2*, PRINT+6, PRINT+7, PRINT+8, PRINT+9
PSJPAT EXIT!, PRINT+8*, PRINT+9
PSJREA EXIT!, PRINT+3*, PRINT+12
PSJRX EXIT!
PSJUSR EXIT!, PRINT+2*, PRINT+4*, PRINT+11
PSOBD DATE*, DATE+1, DQ+1, EXIT!, HD
PSOED DATE+1*, DQ+3, DQ+4, EXIT!, HD
PSOI DQ+5*, DQ+6, EXIT!
PSOJ DQ+6*, EXIT!, PRINT+1, PRINT+2, PRINT+3, PRINT+5
X EXIT!, PRINT+14*
>> Y DATEDATE+1
ZTDESC EXIT!, QUE+1*
ZTIO EXIT!
ZTRTN EXIT!, QUE+1*
ZTSAVE EXIT!
ZTSAVE("PSOBD" QUE+1*
ZTSAVE("PSOED" QUE+1*
ZTSK EXIT!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All