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

Package: Inpatient Medications

Routine: PSJO2


Information

PSJO2 ;BIRC/CML3,PR-INPATIENT ORDERS - PRINT ;17 SEP 97 / 1:41 PM

Source Information

Source file <PSJO2.m>

Entry Points

Name Comments DBIA/ICR reference
DONE ;
P ; data printed here
PIV ; print IV order
TF ;
NP
HEADER ; print new page, name, ssn, dob, and ward
BOT ; print name, ssn, and dob on bottom of page

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$J(PSJON,4),?5
  • Line Location: P+1
Function Call: WRITE
  • Prompt: $S(ND="":" ",$P(ND,"^",12):"D",$P(ND,"^",18)&($P(ND,"^",19)!V):"H",$P(ND,"^",22)&($P(ND,"^",23)!V):"H",$P(ND,"^",15)&($P(ND,"^",16)!V):"R",1:" ")
  • Line Location: P+3
Function Call: WRITE
  • Prompt: "->"
  • Condition for execution: V
  • Line Location: P+3
Function Call: WRITE
  • Prompt: ?9,$S(DN'="z":DN,1:"NOT FOUND"),?50,$S(PSJST'="z":PSJST,1:"?"),?53,$E($$ENDTC^PSGMI(PSGID),1,5),?60,$E($$ENDTC^PSGMI(SD),1,5),?67,X
  • Line Location: P+12
Function Call: WRITE
  • Prompt: ?71
  • Line Location: P+12
Function Call: WRITE
  • Prompt: "NF "
  • Condition for execution: NF
  • Line Location: P+12
Function Call: WRITE
  • Prompt: "WP"
  • Condition for execution: (WS&PADE)
  • Line Location: P+12
Function Call: WRITE
  • Prompt: "WS "
  • Condition for execution: (PADE&'WS) "PD" W:(WS&'PADE)
  • Line Location: P+12
Function Call: WRITE
  • Prompt: $E("HSM",SM,3)
  • Condition for execution: SM
  • Line Location: P+12
Function Call: WRITE
  • Prompt: !?11,GIVE
  • Line Location: P+13
Function Call: WRITE
  • Prompt: !?10
  • Line Location: P+13
Function Call: WRITE
  • Prompt: !?10
  • Condition for execution: $L(V)+$X>77
  • Line Location: P+13
Function Call: WRITE
  • Prompt: V_" "
  • Line Location: P+13
Function Call: READ
  • Prompt: I F I E D"
  • Variable: 1
  • Timeout: "
  • Line Location: TF+1
Function Call: READ
  • Formatting: !
  • Prompt: " `^' TO QUIT "
  • Variable: PSJNP
  • Timeout: DTIME
  • Line Location: NP+0
Function Call: READ
  • Formatting: O F I L E" W ?64
  • Prompt: HDT
  • Variable: ! W
  • Timeout: $D(PSGPR)
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: ?22,"U N I T D O S E P R O F I L E"
  • Condition for execution: $D(PSGPR)
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: ?64,HDT,!
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: ?22,"U N I T D O S E P R O F I L E"
  • Condition for execution: $D(PSGPR)
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: ?64,HDT,!
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: ?22,"U N I T D O S E P R O F I L E"
  • Condition for execution: $D(PSGPR)
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !?7,"PID: ",PSJPPID,?30,"WEIGHT(kg): ",PSJPWT,?48,"Sex: ",$P(PSJPSEX,"^",2),?61,"Admitted: ",$E(PSGOD,1,8),!?7,"DOB: ",DOB_" ("_AGE_")",?30,"Height(cm): ",PSJPHT
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: ?$S(PSGPDD:59,1:53),$S(PSGPDD:"Discharged: ",1:"Last transferred: "),$E($$ENDTC^PSGMI(PSGID),1,8)
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !?8,"Dx: ",$S(PSGPDX]"":PSGPDX,1:"* NF *"),?69-$L(RB),"Room-Bed: ",RB,!?1,"Reactions:"
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: $C(7),!!?21,"** PATIENT'S ORDERS PLACED ON HOLD **"
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !!," No.",?19,"Drug",?50,"ST Start Stop Status/Info"
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !
  • Line Location: BOT+1
Function Call: WRITE
  • Prompt: !,?2,$P(PSGP(0),"^"),?40,SSN,?60,DOB
  • Line Location: BOT+2
Info |  Source |  Entry Points |  Interaction Calls