Routine: PSJO2

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

Customize PDF page

Package: Inpatient Medications

Routine: PSJO2

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: