Routine: PSIVORV2

Package	Total	Call Graph
Inpatient Medications	6	GT531^PSIVORFA GT55^PSIVORFB ($$CODES,$$GTPCI,$$WDTE)^PSIVUTL EN^PSJLIORD ^PSJLIVFD ^PSJLIVMD
VA Fileman	1	^DIR

Package

Total

Call Graph

Inpatient Medications

GT531^PSIVORFA GT55^PSIVORFB ($$CODES,$$GTPCI,$$WDTE)^PSIVUTL EN^PSJLIORD ^PSJLIVFD ^PSJLIVMD

VA Fileman

^DIR

Package	Total	Caller Graph
Inpatient Medications	12	PSIVCHK PSIVHIS PSIVLBL1 PSIVOPT PSIVORC PSIVORC2 PSIVORV1 PSIVPGE PSIVPR PSIVRD PSIVUWL PSJHIS

Package

Total

Caller Graph

Inpatient Medications

PSIVCHK PSIVHIS PSIVLBL1 PSIVOPT PSIVORC PSIVORC2 PSIVORV1 PSIVPGE
PSIVPR PSIVRD PSIVUWL PSJHIS

Entry Points

Name	Comments	DBIA/ICR reference
6	; Log-in Date
EN	; Display order with numbers.
10	; Provider
ENNH(ON)	;
ENNONUM(DFN,PSJORD)	; Display order with no numbers.
ENPRO	; Profile view.
WTPC	; Write provider comments.
1	; Type
3	; IV Room
PAUSE	;Hold display if end screen, do FF if eop.
5	; Stop Date
4	; Start Date
7	; Last fill date.
RC	; Print field by line number
9	; Entry Code
2	;Syringe Size
8	;Last fill qty.
LONG(Y)	; Display long fields.

Name	Field # of Occurrence
^DIR	PAUSE+1
GT531^PSIVORFA	ENNH+1
GT55^PSIVORFB	ENNH+2
$$CODES^PSIVUTL	ENNONUM+6, 1+1, ENNH+3
$$GTPCI^PSIVUTL	ENPRO+4
$$WDTE^PSIVUTL	4+2, 5+2, 6+1, 7+1
EN^PSJLIORD	EN+1
^PSJLIVFD	ENPRO+13
^PSJLIVMD	ENPRO+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Patient: ",VADM(1)," (",$P(VADM(2),U,2),")",?52,"Wt (kg): ",PSJPWT," ",PSJPWTD Line Location: ENNONUM+3
Function Call: WRITE	Prompt: !!,"Patient: ",VADM(1)," (",$G(VA("PID")),")",?52,"Wt (kg): ",PSJPWT," ",PSJPWTD Line Location: ENNONUM+4
Function Call: WRITE	Prompt: !?3,"Ward: ",$S(VAIN(4):$P(VAIN(4),U,2),1:"OUTPATIENT"),?52,"Ht (cm): ",PSJPHT," ",PSJPWTD Line Location: ENNONUM+5
Function Call: WRITE	Prompt: !,?1,"Status: ",$$CODES^PSIVUTL(P(17),$S(P("PON")'["V":53.1,1:55.01),$S(P("PON")'["V":28,1:100)) Line Location: ENNONUM+6
Function Call: WRITE	Prompt: ?47,"Order number: ",+P("PON") Condition for execution: P("PON")["V" Line Location: ENNONUM+6
Function Call: WRITE	Prompt: !,UL80,! Line Location: ENNONUM+6
Function Call: WRITE	Prompt: !,^(PSIVX,0) Line Location: ENPRO+15
Function Call: WRITE	Prompt: ?5,$P(Y," ",X)," " Line Location: LONG+1
Function Call: WRITE	Prompt: ?3,Y,! Line Location: WTPC+1
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: ! Line Location: RC+1
Function Call: WRITE	Prompt: ?53,"IV Room: ",$P(P("IVRM"),U,2) Line Location: 3+1
Function Call: WRITE	Prompt: ?48-$L(X),X,?50,"Start Date: ",$$WDTE^PSIVUTL(P(2)) Line Location: 4+2
Function Call: WRITE	Prompt: ?48-$L(X),X,?51,"Stop Date: ",$$WDTE^PSIVUTL(P(3)) Line Location: 5+2
Function Call: WRITE	Prompt: ?50,"Login Date: ",$$WDTE^PSIVUTL(P("LOG")) Line Location: 6+1
Function Call: WRITE	Prompt: ?51,"Last Fill: ",$S(Y="****":" Not printed **",1:Y) Line Location: 7+1
Function Call: WRITE	Prompt: ?52,"Quantity: ",+P("LFA") Line Location: 8+1
Function Call: WRITE	Prompt: ?50,"Entry Code: ",$S($P(P("CLRK"),U,2)]"":$E($P(P("CLRK"),U,2),1,18),1:"*** Undefined") Line Location: 9+1
Function Call: WRITE	Prompt: ?48-$L(X),X,?52,"Provider: ",$S($P(P(6),U,2)]"":$E($P(P(6),U,2),1,18),1:"*** Undefined") Line Location: 10+2
Function Call: WRITE	Prompt: !!,?5,UL,!,?5,"Patient: ",PSGP(0),?54,"Status: ",$S(P(17)="DE":"DC (EDIT)",1:$$CODES^PSIVUTL(P(17),$S(ON'["V":53.1,1:55.01),$S(ON'["V":28,1:100))),! Line Location: ENNH+3
Routine Call	DIR Line Location: PAUSE+1

Name	Line Occurrences (* Changed, ! Killed)
^TMP("PSJI"	ENPRO+15, ENPRO+16!

Name	Line Occurrences
@(	RC+1
ENPRO	ENNH+4
RC	LONG+1

Name	Field # of Occurrence
^(	ENPRO+15

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	EN+1, ENNONUM~, ENNH+1
DIR	PAUSE+1~
DIR(0	PAUSE+1*
>> DTOUT	PAUSE+1
>> DUOUT	PAUSE+1
IOF	ENNONUM+4
IOSL	PAUSE+1
IOST	PAUSE+1
>> LN	LONG+1, RC+1*
ON	EN+1, ENPRO+3, ENNH~, ENNH+1, ENNH+2, ENNH+3
>> P("CLRK"	9+1
>> P("DTYP"	4+1, 5+1, 10+1
>> P("IVRM"	3+1
>> P("LF"	7+1
>> P("LFA"	8+1
>> P("LOG"	6+1
>> P("OT"	ENPRO+5*, ENPRO+8, ENPRO+11, 4+1, 5+1, 10+1
>> P("PON"	ENNONUM+6, ENPRO+3*
>> P("SYRS"	2+1
>> P(17	ENNONUM+6, 4+1, 5+1, ENNH+3
>> P(2	4+2, ENNH+1*
>> P(23	1+1
>> P(3	5+2, ENNH+1*
>> P(4	ENPRO+5, 1+1, ENNH+1*
>> P(5	1+1
>> P(6	10+2
PSGEBN	ENPRO+1~, ENPRO+2*
PSGLI	ENPRO+1~, ENPRO+2*
>> PSGP(0	ENNH+3
PSIV531	ENPRO+1~, ENNH+1~*
PSIVAC	ENPRO+1~, ENPRO+3*, 4+1, 5+1, 10+1
PSIVNUM	EN+2~, ENPRO+7~, 4+1, 5+1, 10+1
>> PSIVUP	ENPRO+4*
PSIVX	ENPRO+14~, ENPRO+15*
PSJL	ENPRO+6~
PSJORD	ENNONUM~
>> PSJPHT	ENNONUM+5
>> PSJPRF	ENNONUM+4
>> PSJPWT	ENNONUM+4
>> PSJPWTD	ENNONUM+4, ENNONUM+5
PSJSTAR	ENPRO+1~, ENPRO+9, ENPRO+12
U	ENNONUM+5, 3+1, 9+1, 10+2
UL	ENNH+3~*
>> UL80	ENNONUM+1*, ENNONUM+6
>> VA("PID"	ENNONUM+4
>> VADM(1	ENNONUM+4
>> VAIN(4	ENNONUM+5
X	LONG+1, PAUSE+1~, RC+1~, 1+1, 4+1, 4+2, 5+1, 5+2, 10+1*, 10+2
Y	ENPRO+1~, LONG~, LONG+1, WTPC+1, PAUSE+1~, RC+1~, 7+1*

Customize PDF page

Package: Inpatient Medications

Routine: PSIVORV2

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: