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  | All
Print Page as PDF
Routine: PSJ0186

Package: Inpatient Medications

Routine: PSJ0186


Information

PSJ0186 ;BIR/JLC - FIND ORDERS WITH NULL SI / OPI ;09/14/2006

Source Information

Source file <PSJ0186.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 ^%ZISC  ^%ZTLOAD  
Inpatient Medications 1 $$SELDEV^PSJMUTL  
VA FileMan 1 NOW^%DTC  

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 PSJU SI SEARCH  

Entry Points

Name Comments DBIA/ICR reference
EN ; Select device and determine format
F1 ;determine whether print format or comma-delimited
F2
START ;find potential problem orders
EXIT
HDR

External References

Name Field # of Occurrence
NOW^%DTC START+2
^%ZISC EXIT
^%ZTLOAD F2+11
$$SELDEV^PSJMUTL EN+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Your DUZ is not defined. It must be defined to run this routine."
  • Line Location: EN+1
Function Call: READ
  • Variable: F1
  • Timeout: 60
  • Line Location: F1+1
Function Call: WRITE
  • Prompt: !!,"(P)rint format or (C)omma-delimited output: "
  • Line Location: F1+1
Function Call: WRITE
  • Prompt: " "
  • Line Location: F1+1
Function Call: WRITE
  • Prompt: "Enter P or C"
  • Line Location: F1+3
Function Call: READ
  • Variable: F2
  • Timeout: 60
  • Line Location: F2+0
Function Call: WRITE
  • Prompt: !!,"(O)nly active or (A)ll orders: "
  • Line Location: F2+0
Function Call: WRITE
  • Prompt: " "
  • Line Location: F2+0
Function Call: WRITE
  • Prompt: "Enter O for a list of active or recently expired orders only"
  • Line Location: F2+3
Function Call: WRITE
  • Prompt: !?10,"Enter A for all orders since PSB*3*13 was installed."
  • Line Location: F2+4
Function Call: WRITE
  • Prompt: $E($P(B,"^"),1,25),?28,$E($P(B,"^",9),6,9),?34,$E($G(^DPT(DFN,.1)),1,10),?45
  • Line Location: START+30
Function Call: WRITE
  • Prompt: $E(B,4,5),"/",$E(B,6,7),"/",$E(B,1,3)+1700,?57
  • Line Location: START+31
Function Call: WRITE
  • Prompt: $E(B,4,5),"/",$E(B,6,7),"/",$E(B,1,3)+1700," "
  • Line Location: START+32
Function Call: WRITE
  • Prompt: $P(A,"^",4)," (",$S(I="UD":"UD",1:"IV"),") ",$P($G(^PS(50.7,$P(A,"^",3),0)),"^"),!
  • Line Location: START+34
Function Call: WRITE
  • Prompt: $P(B,"^"),",",$E($P(B,"^",9),6,9),",",$G(^DPT(DFN,.1)),","
  • Line Location: START+36
Function Call: WRITE
  • Prompt: $E(B,4,5),"/",$E(B,6,7),"/",$E(B,1,3)+1700,","
  • Line Location: START+37
Function Call: WRITE
  • Prompt: $E(B,4,5),"/",$E(B,6,7),"/",$E(B,1,3)+1700,","
  • Line Location: START+38
Function Call: WRITE
  • Prompt: $P(A,"^",4),",(",$S(I="UD":"UD",1:"IV"),"),",$P($G(^PS(50.7,$P(A,"^",3),0)),"^"),!
  • Line Location: START+39
Function Call: WRITE
  • Prompt: "Nothing to print",!
  • Line Location: START+40
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: RDT,?32,"SI/OPI RESEARCH",?83,"PAGE: ",PG,!!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: "PATIENT NAME",?28,"SSN",?34,"WARD",?45,"START DATE",?57,"STOP DATE",?69,"ORDER INFO",!!
  • Line Location: HDR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] START+28, START+30, START+36
^PS(50.7 - [#50.7] START+34, START+39
^PS(55 - [#55] START+5, START+7, START+9, START+10, START+12, START+14, START+16, START+18, START+19, START+21
^TMP("PSJ0186" START+1!, START+13*, START+22*, START+24, START+27, START+40
^XPD(9.7 - [#9.7] START+3

Label References

Name Line Occurrences
EN F1+1
EXIT F1+2, F2+1, F2+5
F1 F1+3, F2
F2 F2+2
HDR START+23, START+33
START F2+12

Naked Globals

Name Field # of Occurrence
^( START+12, START+21, START+27
^(2 START+12
^(3 START+19
^(6 START+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% START+1~, START+2, START+3
A F2+6~, F2+10*, START+1~, START+3*, START+10*, START+11, START+19*, START+20, START+27*, START+31
, START+32, START+34, START+37, START+38, START+39
A0 START+1~, START+12*, START+13, START+21*, START+22
A2 START+1~, START+12*, START+13
AD2 START+1~, START+12*, START+13, START+21*, START+22
B START+1~, START+11*, START+20*, START+28*, START+30, START+31*, START+32*, START+36, START+37*, START+38*
DFN START+1~, START+6*, START+7*, START+9, START+10, START+12, START+13, START+15*, START+16*, START+18
, START+19, START+21, START+22, START+23*, START+24*, START+27, START+28, START+30, START+36
DUZ EN+1
F1 EN+2~, F1+1*, F1+2, F1+3, START+23, START+29, START+35
F2 EN+2~, F2*, F2+1, F2+2, START+3
FIRST START+1~, START+2*, START+3*, START+4, START+14
I F2+6~, F2+10*, START+1~, START+25*, START+27, START+34, START+39
IO START+23
IO("Q" EN+4, F2+5
IOF HDR
IOSL START+33
ORDER START+1~, START+8*, START+9*, START+10, START+12, START+13, START+17*, START+18*, START+19, START+21
, START+22, START+26*, START+27*
PG START+1~, START+23*, HDR*
RDT START+1~, START+2*, HDR
S1 START+1~, START+4*, START+5*, START+7, START+9, START+14*, START+16, START+18
START START+1~
XSAVE EN+2~, F2+8*, F2+10
Y START+1~
ZTDESC EN+2~, F2+7*
ZTRTN EN+2~, F2+9*
ZTSAVE START+1~
ZTSAVE( F2+10*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All