Routine: PSIVLABR

Package	Total	Call Graph
Inpatient Medications	5	$$ENDTC^PSGMI OFFSET^PSIVLABL $$CONVER1^PSIVORE2 ^PSIVSTAT ENIV^PSJAC
Kernel	2	PSET^%ZISP ($$DT,$$FMADD,$$FMTE)^XLFDT
VA Fileman	1	(C,NOW)^%DTC

Package	Total	Caller Graph
Inpatient Medications	1	PSIVLBRP

Entry Points

External References

Name	Field # of Occurrence
C^%DTC	CONVER+3
NOW^%DTC	DEM+6, DEM+25
PSET^%ZISP	BARCODE
$$ENDTC^PSGMI	DEM+6
OFFSET^PSIVLABL	INF+11
$$CONVER1^PSIVORE2	CONVER+1
^PSIVSTAT	START+5
ENIV^PSJAC	DEM+6
$$DT^XLFDT	RE+11
$$FMADD^XLFDT	RE+11
$$FMTE^XLFDT	RE+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DEM+22
Function Call: WRITE	Prompt: ! Line Location: START+2
Function Call: WRITE	Prompt: ! Line Location: P+4
Function Call: WRITE	Prompt: $E(X,1,PSIVRM) Line Location: P+8
Function Call: WRITE	Prompt: ! Line Location: P+10
Function Call: WRITE	Prompt: ! Line Location: PMR+6
Function Call: WRITE	Prompt: $E(X,1,PSIVRM) Line Location: PMR+11
Function Call: WRITE	Prompt: ! Line Location: PMR+13
Function Call: WRITE	Prompt: @IOBARON Line Location: BARCODE+2
Function Call: WRITE	Prompt: PSJBCID Line Location: BARCODE+3
Function Call: WRITE	Prompt: @IOBAROFF Line Location: BARCODE+4
Function Call: WRITE	Prompt: ! Line Location: BARCODE+5
Function Call: WRITE	Prompt: PSJBCID Line Location: BARCODE+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	DEM+2
^PS(51.2 - [#51.2]	DEM+18, MEDRT+3
^PS(52.6 - [#52.6]	RE+15, RE+18, MESS+1
^PS(52.7 - [#52.7]	SOL+2, SOL1
^PS(55 - [#55]	DEM+10, DEM+16, DEM+25*, SETP, RE+10, RE+11, RE+13, RE+15, RE+18, SOL , SOL+3, MEDRT+2, INF+1, SOL1
^PS(59.5 - [#59.5]	RE+6, INF+6

Label References

Name	Line Occurrences
BARCODE	RE+4
CONVER	SOL+5
ENX	DEM+6
MEDRT	SOL+4
MESS	RE+16, RE+19
P	DEM+20, RE+13, RE+14, RE+16, RE+19, SOL+1, SOL+2, SOL+3, SOL+4, SOL+5 , INF, INF+1, INF+2, INF+3, INF+5, INF+6, INF+12
PMR	DEM+19, MEDRT+4
Q	DEM+10
RE	DEM+14, START
SETP	DEM+10, ENX+1
SOL	RE+17
SOL1	SOL+1
START	DEM+26

Naked Globals

Name	Field # of Occurrence
^(	DEM+2, RE+15, RE+18, SOL
^(0	RE+15, RE+18, SOL, SOL1
^(1	DEM+2
^(3	INF+1
^(4	INF+6
^(9	DEM+25*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DEM+6, DEM+25
BAG	Q!
CX	Q!
>> DFN	DEM+10, DEM+16, DEM+25, SETP, RE+10, RE+11, RE+13, RE+15, RE+18, SOL , SOL+3, MEDRT+2, INF+1, SOL1
DT	RE+13
EXDT	RE+7~, RE+11*, RE+12
I	DEM+1~, DEM+2, P+5, P+7, P+9, PMR+7, PMR+10, PMR+12, BARCODE+7, BARCODE+9*
>> IOBAROFF	BARCODE+4
>> IOBARON	BARCODE+2
IOST(0	DEM+2
LINE	DEM+14, DEM+22, START, START+2, Q!, P, P+1, P+2, PMR+2, PMR+3 , PMR+4
MESS	Q!, INF+5
MESS(	INF+5, MESS+1*
>> ON	DEM+10, DEM+16, DEM+25, SETP, RE+10, RE+11, RE+13, RE+15, SOL+3, MEDRT+2 , INF+1
>> P(	SETP*
>> P(11	INF+3
>> P(15	CONVER+1, CONVER+3
>> P(23	SOL+3
>> P(4	DEM+17, SOL+3, SOL+4
>> P(8	INF
>> P(9	INF+2
P16	DEM+10*, Q!
PDATE	Q!, CONVER+2, CONVER+3, CONVER+4
PDOSE	Q!, CONVER+2*, CONVER+3, CONVER+4
>> PRTLINE	INF+11
PSIMESS	Q!, INF+5*
PSIV	Q!, RE+15, RE+18, SOL, SOL+2, INF+6, SOL1
PSIV1	DEM+9~, DEM+14, DEM+17, START*, Q!, RE+4, SOL+4, SOL+5, CONVER+1, CONVER+2 , CONVER+3
PSIV2	DEM+14*, DEM+21, Q!
>> PSIVBAG	INF+11
PSIVCT	DEM+10!, DEM+25, START+5, Q!
PSIVDOSE	Q!, SOL+5*, CONVER+1, CONVER+2, CONVER+3
>> PSIVEXAM	DEM+6
PSIVFLAG	DEM+14, DEM+26!, ENX+1, START+1, Q!, RE+15, RE+17
>> PSIVNOL	DEM+10, DEM+14, DEM+21, DEM+25
>> PSIVNOW	DEM+6*
PSIVRM	DEM+10, ENX+1, Q!, P+8, P+11, PMR+11, PMR+14
>> PSIVRP	DEM+15, DEM+16, DEM+18, MEDRT+1, MEDRT+2, MEDRT+3
>> PSIVRT	DEM+15, DEM+18, DEM+19, MEDRT+1, MEDRT+3, MEDRT+4
PSIVSH	DEM+26!
>> PSIVSITE	DEM+10, DEM+13, DEM+17, DEM+22, ENX+1, START+2, RE+14, SOL+4, P+1, P+4 , PMR+3, PMR+6
>> PSIVSN	RE+6, INF+6
PSIVWD	DEM+6*, Q!, RE+13
>> PSJBCID	BARCODE+3, BARCODE+8
>> PSJIDNO	RE+18, SOL, SOL1
PSJIO	DEM+1~, DEM+3*, DEM+11, DEM+22, DEM+23, START+2, START+3, START+4, RE+3, P+3 , P+10, PMR+5, PMR+13, BARCODE+1, BARCODE+6
PSJIO(	DEM+2*, P+5, P+7, P+9, PMR+7, PMR+10, PMR+12, BARCODE+7, BARCODE+9
PSJIO("EL"	DEM+23, START+3
PSJIO("FE"	START+4
PSJIO("FI"	DEM+11
PSJIO("SL"	RE+3
>> PSJRPHD	DEM+13
TEXT1	Q!, RE+10, RE+12, INF+11
U	DEM+6, DEM+10, DEM+13, DEM+16, DEM+17, DEM+18, DEM+22, DEM+25, SETP, ENX+1 , START+2, RE+6, RE+10, RE+11, RE+13, RE+14, RE+15, RE+18, SOL+2, SOL+3 , SOL+4, MEDRT+2, MEDRT+3, INF+6, SOL1, MESS+1
>> VA("BID"	DEM+6
>> VADM(1	RE+14
>> VADM(2	DEM+6*, RE+13
>> VAIN(4	DEM+6
>> VAIN(5	RE+14
>> X	DEM+19, DEM+20, SETP, RE+13, RE+14, RE+15, RE+18, SOL+2, SOL+3, SOL+4 , SOL+5, MEDRT+4, INF, INF+1, INF+2, INF+3, INF+5, INF+6, INF+11, P , P+8, P+11, PMR+2, PMR+11, PMR+14, SOL1, CONVER+1, CONVER+2, CONVER+3, CONVER+4*
X0	DEM+1~, DEM+2*
>> X1	CONVER+3*
>> X2	CONVER+3*
XX1	Q!, RE+7~, RE+11, CONVER+3
XX2	Q!, CONVER+3*
>> Y	DEM+25, SETP, RE+15, RE+18, INF+6*, MESS+1
>> YY	SOL*
ZZ	P+4, P+6!, PMR+6, PMR+8!

Customize PDF page

Package: Inpatient Medications

Routine: PSIVLABR

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
PMR	; Print Med Route on label
P
RE	;
MESS	;PSJ5184 -make MESS a local array so all messages display for all additives.
BARCODE
SOL
MEDRT	;Find Medication Route
Q
START
SETP
DEM	;Get demographics and see if label is example only
ENX	;Print example label
INF
CONVER	;Expand dose to date.dose and set in X
SOL1