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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Inpatient Medications 3 ENRCT^PSGAPP  $$ENDTC^PSGMI  $$ENSET^PSGSICHK  

Entry Points

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

External References

Name Field # of Occurrence
ENRCT^PSGAPP HEADER+5
$$ENDTC^PSGMI P+10, HEADER+1, HEADER+4
$$ENSET^PSGSICHK P+5

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+10
Function Call: WRITE
  • Prompt: ?71
  • Line Location: P+10
Function Call: WRITE
  • Prompt: "NF "
  • Condition for execution: NF
  • Line Location: P+10
Function Call: WRITE
  • Prompt: "WS "
  • Condition for execution: WS
  • Line Location: P+10
Function Call: WRITE
  • Prompt: $E("HSM",SM,3)
  • Condition for execution: SM
  • Line Location: P+10
Function Call: WRITE
  • Prompt: !?11,GIVE
  • Line Location: P+11
Function Call: WRITE
  • Prompt: !?10
  • Line Location: P+11
Function Call: WRITE
  • Prompt: !?10
  • Condition for execution: $L(V)+$X>77
  • Line Location: P+11
Function Call: WRITE
  • Prompt: V_" "
  • Line Location: P+11
Function Call: READ
  • Prompt: I F I E D"
  • Timeout: "
  • Variable: 1
  • Line Location: TF+1
Function Call: READ
  • Prompt: " `^' TO QUIT "
  • Formatting: !
  • Timeout: DTIME
  • Variable: PSJNP
  • Line Location: NP+0
Function Call: READ
  • Prompt: HDT
  • Formatting: O F I L E" W ?64
  • Timeout: $D(PSGPR)
  • Variable: ! W
  • 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(51.2 - [#51.2] P+8
^PS(53.1 - [#53.1] P+4
^PS(55 - [#55] P+2, HEADER+5
^PSI(58.1 - [#58.1] P+9
^TMP("PSJON" P+1*
^UTILITY("PSG" PSJO2+7, DONE+1!, TF+1

Label References

Name Line Occurrences
BOT PSJO2+8, NP+1
DONE PSJO2+7
NP PSJO2+7
P PSJO2+7
TF PSJO2+7

Naked Globals

Name Field # of Occurrence
^( PSJO2+7, P+5
^(0 P+8
^(2 P+5
^(4 P+2, P+4
^(5.1 HEADER+5
^(6 P+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AGE HEADER+3
C DONE+2!, P+2, P+4, P+7
>> DN P+1*, P+10
DO DONE+2!, P+5*, P+8, P+9
DOB DONE+2!, HEADER+3, BOT+2
DTIME NP
F DONE+2!
GIVE DONE+2!, P+7*, P+8*, P+11
HDT DONE+2!, HEADER+2
IOF HEADER+2
IOSL PSJO2+7, BOT+1
LN2 DONE+2!
ND DONE+2!, P+2*, P+3, P+5*, P+6, P+7
NF PSJO2+7*, DONE+2!, P+10
O DONE+2!, P+1*, P+2, P+4, P+5
ON DONE+2!
PG DONE+2!, HEADER+2
PSGID DONE+2!, P+6*, P+10, HEADER+4*
PSGOD DONE+2!, HEADER+1*, HEADER+3
PSGODT DONE+2!
>> PSGON DONE+2*
>> PSGP P+2, TF+2, HEADER+5
>> PSGP(0 HEADER+2, BOT+2
>> PSGPAD HEADER+1
>> PSGPDD HEADER+4
>> PSGPDX HEADER+5
>> PSGPR HEADER+2
>> PSGPRP PSJO2+8, DONE+1, HEADER+6
>> PSGPTD HEADER+4
>> PSGPWD P+9
>> PSGPWDN HEADER+2
>> PSGVBW DONE+2
>> PSGVWA HEADER+2, HEADER+6
>> PSJC PSJO2+7*, P+1, TF+1, TF+2
PSJDRG PSJO2+7*, DONE+2!, P+1
>> PSJF P+5, TF+2*
>> PSJLN2 TF+1*, HEADER+7
PSJNP PSJO2+7, DONE+2!, NP*
>> PSJON DONE+2, P+1*, NP, NP+1
>> PSJPG HEADER+1*, HEADER+2, HEADER+7
>> PSJPHT HEADER+3
>> PSJPPID HEADER+3
>> PSJPSEX HEADER+3
>> PSJPWT HEADER+3
>> PSJSLS TF+1, HEADER+2
PSJST PSJO2+7*, DONE+2!, P+10
>> PSJSYSU P+4
PSJTD PSJO2+8, DONE+2!, P+1, NP, NP+1
>> PSJTF TF+1
PSJU DONE+2!, P+2
>> Q BOT+1*
>> RB HEADER+5
RF DONE+2!
RTE DONE+2!, P+6*, P+8*
SCH DONE+2!, P+5*, P+6*, P+8
SD DONE+2!, P+6*, P+10
SLS DONE+2!
SM DONE+2!, P+6*, P+10
SSN DONE+2!, BOT+2
TF DONE+2!, TF+2*
V DONE+2!, P+2*, P+3, P+11*
WD DONE+2!
WDP DONE+2!
WS DONE+2!, P+9*, P+10
WT DONE+2!
>> X P+6*, P+10, P+11*
>> Y P+5*, P+11
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All