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 |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call