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: 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>

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

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