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

Package: Inpatient Medications

Routine: PSJO


Information

PSJO ;BIR/CML3,PR - GET AND PRINT INPATIENT ORDERS ;Jul 16, 2018@08:25

Source Information

Source file <PSJO.m>

Entry Points

Name Comments DBIA/ICR reference
DONE ;
ON ;
PUD ; print unit dose
; Naked reference below refers to full reference ^PS(53.1,+PSJO,0) or ^PS(55,DFN,5,+PSJO,0) using indirection.
TF ;
TXT(X) ;
BOT ; print name, ssn, and dob on bottom of page
WS(PSJPWD,PSGP,PSJF,PSJO) ; - WARD STOCK flag, input=(ward,dfn,file root,order)
; Naked reference below refers to full reference ^PS(55,DFN,5,+PSJO,1,"B",PSWS) using indirection.
WSCHK(PSJPWD,PSWS) ; Determine if drug is ward stock item.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,SLS,SLS,$E(SLS,1,25),!!?22,"NO ORDERS FOUND FOR ",$S(PSJOL="S":"SHORT",1:"LONG")," PROFILE."
  • Line Location: PSJO+10
Function Call: WRITE
  • Prompt: !,$J(PSJON,4),?5
  • Line Location: ON+4
Function Call: WRITE
  • Prompt: $S($P(ND4,"^",12):"D",1:" ")
  • Line Location: PUD+9
Function Call: WRITE
  • Prompt: @($S(X=1:"?9",1:"!?11")),$S($E(PSJS)="*":$P(PSJS,"^"),1:MARX(X))
  • Line Location: PUD+28
Function Call: WRITE
  • Prompt: ?71
  • Line Location: PUD+35
Function Call: WRITE
  • Prompt: "NF "
  • Condition for execution: NF
  • Line Location: PUD+35
Function Call: WRITE
  • Prompt: "PD "
  • Condition for execution: (WS&'PADE) "WS " W:(WS&PADE) "WP " W:(PADE&'WS)
  • Line Location: PUD+35
Function Call: WRITE
  • Prompt: $E("HSM",SM,3)
  • Condition for execution: SM
  • Line Location: PUD+35
Function Call: WRITE
  • Prompt: PSJRNDT
  • Condition for execution: $G(PSJRNDT)
  • Line Location: PUD+35
Function Call: WRITE
  • Prompt: ?79,"*"
  • Condition for execution: PF
  • Line Location: PUD+35
Function Call: WRITE
  • Prompt: ?74
  • Line Location: PUD+37
Function Call: WRITE
  • Prompt: "NF "
  • Condition for execution: NF
  • Line Location: PUD+37
Function Call: WRITE
  • Prompt: "PD "
  • Condition for execution: (WS&'PADE) "WS " W:(WS&PADE) "WP " W:(PADE&'WS)
  • Line Location: PUD+37
Function Call: WRITE
  • Prompt: $E("HSM",SM,3)
  • Condition for execution: SM
  • Line Location: PUD+37
Function Call: WRITE
  • Prompt: ?78,"*"
  • Condition for execution: PF
  • Line Location: PUD+37
Function Call: WRITE
  • Prompt: ?49,"Renewed: ",PSJRNDT
  • Line Location: PUD+38
Function Call: WRITE
  • Prompt: !?49,"Renewed: ",PSJRNDT
  • Line Location: PUD+39
Function Call: WRITE
  • Prompt: !?11
  • Condition for execution: $L(V)+$X>66
  • Line Location: PUD+43
Function Call: WRITE
  • Prompt: V_" "
  • Line Location: PUD+43
Function Call: WRITE
  • Prompt: !
  • Line Location: BOT+1
Function Call: WRITE
  • Prompt: !,?2,$P(PSGP(0),"^"),?40,PSJPPID,?70,$E($P(PSJPDOB,"^",2),1,8)
  • Line Location: BOT+2
Info |  Source |  Entry Points |  Interaction Calls