Routine: PSJO

Package	Total	Call Graph
Inpatient Medications	5	$$ENDTC^PSGMI $$ENSET^PSGSICHK $$LASTREN^PSJLMPRI DRGDISP^PSJLMUT1 (ENGET,ENNP)^PSJO3

Package

Total

Call Graph

Inpatient Medications

$$ENDTC^PSGMI $$ENSET^PSGSICHK $$LASTREN^PSJLMPRI DRGDISP^PSJLMUT1 (ENGET,ENNP)^PSJO3

Package	Total	Caller Graph
Inpatient Medications	8	PSGL PSGO PSGVBWP PSJADT2 PSJLMPRU PSJOE0 PSJPR PSJUTL1

Package

Total

Caller Graph

Inpatient Medications

PSGL PSGO PSGVBWP PSJADT2 PSJLMPRU PSJOE0 PSJPR PSJUTL1

Entry Points

Name	Comments	DBIA/ICR reference
ON	;
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.
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.
BOT	; print name, ssn, and dob on bottom of page
DONE	;
TF	;

Name	Field # of Occurrence
$$ENDTC^PSGMI	PUD+14, PUD+18, PUD+19
$$ENSET^PSGSICHK	PUD+21
$$LASTREN^PSJLMPRI	PUD+14
DRGDISP^PSJLMUT1	PUD+15
ENGET^PSJO3	PSJO+9
ENNP^PSJO3	ON+2

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+9
Function Call: WRITE	Prompt: !,$J(PSJON,4),?5 Line Location: ON+3
Function Call: WRITE	Prompt: $S(ND4="":" ",$P(ND4,"^",12):"D",$P(ND4,"^",18)&($P(ND4,"^",19)!V):"H",$P(ND4,"^",22)&($P(ND4,"^",23)!V):"H",$P(ND4,"^",15)&($P(ND4,"^",16)!V):"R",1:" ") Line Location: PUD+3
Function Call: WRITE	Prompt: "->" Condition for execution: V&(PSJSYSU) Line Location: PUD+3
Function Call: WRITE	Prompt: $S($P(ND4,"^",12):"D",1:" "),$S(PSJSYSU:"->",1:"") Line Location: PUD+8
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+16
Function Call: WRITE	Prompt: ?71 Line Location: PUD+20
Function Call: WRITE	Prompt: "NF " Condition for execution: NF Line Location: PUD+20
Function Call: WRITE	Prompt: "WS " Condition for execution: WS Line Location: PUD+20
Function Call: WRITE	Prompt: $E("HSM",SM,3) Condition for execution: SM Line Location: PUD+20
Function Call: WRITE	Prompt: PSJRNDT Condition for execution: $G(PSJRNDT) Line Location: PUD+20
Function Call: WRITE	Prompt: ?79,"*" Condition for execution: PF Line Location: PUD+20
Function Call: WRITE	Prompt: !?11 Line Location: PUD+21
Function Call: WRITE	Prompt: !?11 Condition for execution: $L(V)+$X>66 Line Location: PUD+21
Function Call: WRITE	Prompt: V_" " Line Location: PUD+21
Function Call: READ	Prompt: E N E W A L S" Timeout: "P Variable: C["CD" Line Location: TF+2
Function Call: READ	Prompt: I F I E D C O M P L E X" Timeout: "P Variable: C["C" Line Location: TF+2
Function Call: READ	Prompt: I F I E D" Timeout: "N Variable: 1 Line Location: TF+2
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

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	WSCHK+1
^PSI(58.1 - [#58.1]	WSCHK+1
^TMP("PSJ"	PSJO+7!, PSJO+9, PSJO+10, PSJO+12, DONE+1!, ON+2, TF+3
^TMP("PSJON"	PSJO+7!, ON+3*

Name	Line Occurrences
$$WS	PUD+12
$$WSCHK	WS+2
@(	PSJO+7, ON+3
BOT	PSJO+13
DONE	PSJO+10, PSJO+13
ON	PSJO+12
TF	PSJO+11

Name	Field # of Occurrence
^(	ON+2
^("B"	WS+2
^(0	PUD+2
^(2	PUD+2
^(4	PUD+2
^(6	PUD+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DONE+2!
%H	DONE+2!
%I	DONE+2!
C	DONE+2!, TF+1~*, TF+2
>> DFN	PUD+14
DN	DONE+2!, ON+2*, PUD+2, PUD+12
DO	DONE+2!, PUD+2*
DRG	DONE+2!
FQ	DONE+2!, ON+2*
GIVE	DONE+2!
HDT	DONE+2!
I	DONE+2!
IO	PSJO+8, PSJO+9
IO(0	PSJO+8
IOSL	ON+2, BOT+1
IOST	PSJO+8
JJ	DONE+2!
LN2	DONE+2!, TF+2*, TF+3
MARX	PUD+13~, PUD+15
MARX(	PUD+16
N	DONE+2!
ND	DONE+2!, PUD+2*, PUD+10, PUD+11
ND4	DONE+2!, PUD+2*, PUD+5, PUD+6, PUD+9
ND6	DONE+2!, PUD+2*, PUD+21
NF	DONE+2!, PUD+12*, PUD+20
NP	PSJO+8*, PSJO+10, PSJO+12, PSJO+13, DONE+2!, ON+2
O	DONE+2!
ON	DONE+2!
ORIFN	DONE+2!
ORTX	DONE+2!
P	DONE+2!
PF	DONE+2!, PUD+10*, PUD+20
PG	DONE+2!
PS	DONE+2!
PSGID	DONE+2!, PUD+10*, PUD+18, PUD+19
PSGOD	DONE+2!
PSGODT	DONE+2!
>> PSGON	PSJO+8, DONE+2
PSGP	PUD+12, PUD+15, TF+4, WS~
PSGP(0	BOT+2
>> PSGVBW	DONE+2
PSIVSC	DONE+2!
PSIVST	DONE+2!
PSIVTY	DONE+2!
PSJC	PSJO+10*, PSJO+11, PSJO+12, DONE+2!, ON+2, PUD+4, PUD+9, PUD+15, PUD+17, PUD+18 , PUD+19, TF+1, TF+3, TF+4
PSJDEV	PSJO+8*, PSJO+13, DONE+2!, ON+3
>> PSJEXTP	PSJO+7, PUD+18, PUD+19
PSJF	DONE+2!, PUD+2, PUD+7, PUD+12, TF+4, WS~, WS+2
PSJO	PSJO+10, DONE+2!, ON+2, ON+3, PUD+2, PUD+7, PUD+12, PUD+14, PUD+15, WS~ , WS+2
>> PSJOL	PSJO+9
>> PSJON	PSJO+8, DONE+2, ON+3
PSJOS	DONE+2!, ON+1
>> PSJPDOB	BOT+2
>> PSJPPID	BOT+2
>> PSJPRP	PSJO+13, DONE+1
PSJPWD	PUD+12, WS~, WS+2, WSCHK~, WSCHK+1
PSJRNDT	PUD+13~, PUD+14*, PUD+20
PSJS	PSJO+10, PSJO+12, DONE+2!, ON+1, ON+2, PUD+16
PSJSCHT	DONE+2!, ON+1*, PUD+17
PSJST	PSJO+10, PSJO+12, DONE+2!, ON+1, ON+2
>> PSJSYSU	PUD+5
PSWS	WS+2~*, WSCHK~, WSCHK+1
>> Q	BOT+1*
QQ	DONE+2!
RB	DONE+2!
RTE	DONE+2!, PUD+10*
SCH	DONE+2!, PUD+2, PUD+10
SD	DONE+2!, PUD+10*, PUD+18, PUD+19
SLS	PSJO+9, DONE+2!, TF+1~*, TF+3
SM	DONE+2!, PUD+10*, PUD+20
ST	DONE+3!
START	DONE+3!
STAT	DONE+3!, PUD+10, PUD+11, PUD+18, PUD+19
SUB	DONE+3!
TF	PSJO+11, DONE+3!, TF+4*
TYP	DONE+3!
U	PSJO+12, PSJO+13, PUD+11
UDU	DONE+3!, PUD+5
UPD	DONE+3!
V	DONE+3!, PUD+5, PUD+6, PUD+7, PUD+21
WS	DONE+3!, PUD+12, PUD+20, WS+2, WS+3
X	DONE+3!, PUD+16, PUD+21
X1	DONE+3!
X2	DONE+3!
Y	DONE+3!, PUD+21*

Customize PDF page

Package: Inpatient Medications

Routine: PSJO

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: