Routine: PSJPDV1

Package	Total	Call Graph
Inpatient Medications	4	$$ENDTC^PSGMI GT55^PSIVORFB NAME^PSIVUTL DRGDISP^PSJLMUT1

Package	Total	Caller Graph
Inpatient Medications	1	PSJPDV0

Entry Points

Name	Comments	DBIA/ICR reference
UDREC	;write Unit Dose record
IVREC	;write IV record
DONE
THEREST	;
REC	;write patient and order information
LINE	;
HEADING

External References

Name	Field # of Occurrence
$$ENDTC^PSGMI	UDREC+5, THEREST+1, HEADING+3, HEADING+7
GT55^PSIVORFB	IVREC+4
NAME^PSIVUTL	IVREC+6, IVREC+7
DRGDISP^PSJLMUT1	UDREC+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO DATA FOUND" Line Location: REC+2
Function Call: WRITE	Prompt: ! Line Location: REC+6
Function Call: WRITE	Prompt: ?32,PSJ(X) Line Location: UDREC+6
Function Call: WRITE	Prompt: ! Line Location: UDREC+6
Function Call: WRITE	Prompt: ! Line Location: UDREC+8
Function Call: WRITE	Prompt: $P(ND,"^",3) Line Location: UDREC+8
Function Call: WRITE	Prompt: !,$P(ND,"^",3) Line Location: UDREC+10
Function Call: WRITE	Prompt: !!,NM Line Location: IVREC+5
Function Call: WRITE	Prompt: ?32,PSJ(JJ) Line Location: IVREC+6
Function Call: WRITE	Prompt: ! Line Location: IVREC+6
Function Call: WRITE	Prompt: ?33,"in " Condition for execution: JJ=1 Line Location: IVREC+7
Function Call: WRITE	Prompt: ?36,PSJ(JJ) Line Location: IVREC+7
Function Call: WRITE	Prompt: ! Line Location: IVREC+7
Function Call: WRITE	Prompt: ?32,$P(P("MR"),U,2)_" "_P(9)_" "_P(8) Line Location: IVREC+8
Function Call: WRITE	Prompt: ! Condition for execution: $X>31 Line Location: IVREC+9
Function Call: WRITE	Prompt: ! Condition for execution: $X+$L(Y)>80 Line Location: IVREC+9
Function Call: WRITE	Prompt: ?32,Y," " Line Location: IVREC+9
Function Call: READ	Timeout: DTIME Variable: CONT Line Location: HEADING+0
Function Call: WRITE	Prompt: !,"Press RETURN to continue ""^"" to exit: " Line Location: HEADING+0
Function Call: WRITE	Prompt: !,$E($$ENDTC^PSGMI(DT),1,8),?70,"PAGE: ",PG Line Location: HEADING+3
Function Call: WRITE	Prompt: !! Line Location: HEADING+5
Function Call: WRITE	Prompt: ! Line Location: HEADING+5
Function Call: WRITE	Prompt: ! Line Location: HEADING+6
Function Call: WRITE	Prompt: !! Line Location: HEADING+7
Function Call: WRITE	Prompt: !! Line Location: HEADING+7
Function Call: WRITE	Prompt: "-" Line Location: HEADING+8
Function Call: WRITE	Prompt: !?68,"Start",?75,"Stop",!,"Patient",?32,"Order",?68,"Date",?75,"Date",! Line Location: HEADING+9
Function Call: WRITE	Prompt: "-" Line Location: HEADING+10
Function Call: WRITE	Prompt: ?(80-$L(LN))/2,LN Line Location: LINE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(55 - [#55]	UDREC+7
^TMP("PSJ"	REC+2, REC+3

Label References

Name	Line Occurrences
DONE	REC+1, REC+2
HEADING	REC+1, UDREC+4, IVREC+1
IVREC	REC+7
LINE	HEADING+5, HEADING+6, HEADING+7
THEREST	UDREC+6, IVREC+6, IVREC+7, IVREC+8, IVREC+9, IVREC+10
UDREC	REC+7

Naked Globals

Name	Field # of Occurrence
^(	REC+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADCNT	DONE!
CONT	DONE!, HEADING*
>> DFN	IVREC+4*
DRG	IVREC+2~
DRG("AD"	IVREC+6
DRG("SOL"	IVREC+7
DRGI	DONE!
DRGN	DONE!
DRGT	DONE!
DT	HEADING+3
DTIME	HEADING
FST	REC+3*, REC+5, DONE!
>> IEN	REC+7*
IOF	HEADING+1
IOSL	UDREC+4, IVREC+1
IOST	HEADING
JJ	DONE!, IVREC+6, IVREC+7~
LCNT	DONE!
LN	DONE!, HEADING+4, HEADING+6, HEADING+7*, LINE+1
>> ND	REC+5*, REC+6, UDREC+3, UDREC+5, UDREC+8, UDREC+10, IVREC+3
ND3	DONE!
ND3FLG	DONE!, UDREC+1!, UDREC+8, UDREC+10, UDREC+11!, THEREST+3
ND4	DONE!
>> NM	REC+6, UDREC+5, IVREC+5, HEADING+2
ON	DONE!, IVREC+4*
ON55	IVREC+2~
OPI	DONE!, IVREC+9*
ORD	REC+3*, REC+5, REC+7, DONE!
P	DONE!, IVREC+2~
P("MR"	IVREC+8
P("OPI"	IVREC+9
P(3	THEREST+1
P(8	IVREC+8
P(9	IVREC+8
PER	REC+5*, REC+6, REC+7, DONE!
PEVWD	DONE!
PG	PSJPDV1+5, DONE!, HEADING+3
PREVNM	PSJPDV1+5, REC+6, DONE!
>> PREVWD	PSJPDV1+5, REC+6, REC+7
PRIMD	DONE!
PSG	IVREC+2~
>> PSGP	REC+7*, UDREC+2, UDREC+7, IVREC+4
PSJ	DONE!, UDREC+1~, UDREC+2, IVREC+2~, IVREC+6, IVREC+7~
PSJ(	UDREC+6, IVREC+6, IVREC+7
PSJ(1	UDREC+5
PSJAD	DONE!
>> PSJJORD	REC+7*, UDREC+2, UDREC+7, IVREC+4
>> PSJREPF	HEADING+7
>> PSJREPS	HEADING+7
>> PSJSL	HEADING+4
>> PSJSNM(	HEADING+6
PSJSOL	DONE!
>> PSJSRT	REC+5, REC+6
>> QFLG	REC+1, REC+3, REC+7, UDREC+4, IVREC+1, HEADING*
RMBD	DONE!, UDREC+3, IVREC+3, THEREST+3
RSTFLG	DONE!, UDREC+3, UDREC+6, IVREC+3, IVREC+6, IVREC+7, IVREC+10, THEREST+1, THEREST+2, THEREST+3 , THEREST+4*
SI	DONE!, UDREC+7*
SND	REC+3*, REC+5, DONE!
SOLCNT	DONE!
SSN	DONE!, UDREC+3, UDREC+5, IVREC+3, THEREST+1
>> STD	REC+5*, UDREC+5, THEREST+1
TMPNM	PSJPDV1+5, REC+6, DONE!, HEADING+2
TMPWD	PSJPDV1+5, REC+6, REC+7, DONE!
U	UDREC+3, UDREC+5, IVREC+3, IVREC+8
WARD	REC+6, REC+7, DONE!, UDREC+3, IVREC+3*, THEREST+2
WCNT	DONE!, UDREC+7*
WFLG	PSJPDV1+5, REC+6, DONE!, UDREC+5, UDREC+8, UDREC+10, THEREST+1, THEREST+2, THEREST+3, HEADING+2*
WRD	DONE!, UDREC+7*, UDREC+8, UDREC+9
X	UDREC+1~, UDREC+6~, IVREC+6~, IVREC+7~, IVREC+9, HEADING+8, HEADING+10
>> Y	IVREC+9*

Customize PDF page

Package: Inpatient Medications

Routine: PSJPDV1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: