Routine: PSIVLABL

Information

PSIVLABL ;BIR/PR-PRINT OUT LABELS ;03-Apr-2013 14:18;PLS

Source Information

Call Graph

Call Graph Total: 8

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

Caller Graph

Caller Graph Total: 7

Package	Total	Caller Graph
Inpatient Medications	7	PSIVHYPL PSIVHYPR PSIVLABR PSIVLBL1 PSIVORE1 PSIVORE2 PSIVSUS

Entry Points

Name	Comments	DBIA/ICR reference
OFFSET(TEXT,TEXT1)	;IHS/MSC/PB - 4/25/12 - computes length of text on a line, TEXT = the label data from the existing line, TEXT1 = the new text "Do Not Use After:" or the date depending on the line being printed
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

External References

Name	Field # of Occurrence
C^%DTC	CONVER+3
NOW^%DTC	DEM+6, DEM+21
PSET^%ZISP	BARCODE
$$ENDTC^PSGMI	DEM+6
$$BCMA^PSIVBCID	RE+4
UP2^PSIVBCID	RE+26
UP3^PSIVBCID	SOL+1
$$CONVER1^PSIVORE2	CONVER+1
^PSIVSTAT	START+6
ENIV^PSJAC	DEM+6
$$DT^XLFDT	RE+14
$$FMADD^XLFDT	RE+14
$$FMTE^XLFDT	RE+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DEM+19
Function Call: WRITE	Prompt: ! Line Location: START+3
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+15, MEDRT+3
^PS(52.6 - [#52.6]	RE+18, RE+24, MESS+1
^PS(52.7 - [#52.7]	SOL+2, SOL1
^PS(55 - [#55]	DEM+8, DEM+13, DEM+21*, SETP, RE+13, RE+14, RE+16, RE+18, RE+24, SOL , SOL+3, MEDRT+2, INF+1, SOL1
^PS(59.5 - [#59.5]	RE+11, INF+6, OFFSET+2

Label References

Name	Line Occurrences
BARCODE	RE+9
CONVER	SOL+5
ENX	DEM+6
MEDRT	SOL+4
MESS	RE+21, RE+27
OFFSET	INF+12
P	DEM+17, RE+16, RE+17, RE+19, RE+25, SOL+1, SOL+2, SOL+3, SOL+4, SOL+5 , INF, INF+1, INF+2, INF+3, INF+5, INF+6, INF+13
PMR	DEM+16, MEDRT+4
Q	DEM+8
RE	DEM+11, START+1
SETP	DEM+8, ENX+1
SOL	RE+22
SOL1	SOL+1
START	DEM+22

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DEM+6, DEM+21
BAG	Q!
CX	Q!
>> DFN	DEM+8, DEM+13, DEM+21, SETP, RE+4, RE+13, RE+14, RE+16, RE+18, RE+24 , RE+26, SOL, SOL+1, SOL+3, MEDRT+2, INF+1, SOL1
DO	RE+1!
DT	RE+16
EXDT	RE+12~, RE+14*, RE+15
I	DEM+1~, DEM+2, P+5, P+7, P+9, PMR+7, PMR+10, PMR+12, BARCODE+7, BARCODE+9* , OFFSET+4*
>> IOBAROFF	BARCODE+4
>> IOBARON	BARCODE+2
IOST(0	DEM+2
>> LABWID	OFFSET+2*, OFFSET+3, OFFSET+6
LINE	DEM+11, DEM+19, START+1, START+3, Q!, P, P+1, P+2, PMR+2, PMR+3 , PMR+4
MESS	Q!, INF+5
MESS(	INF+5, MESS+1*
>> NEWTEXT	OFFSET+4*, OFFSET+5
>> ON	DEM+8, DEM+13, DEM+21, SETP, RE+4, RE+13, RE+14, RE+16, RE+18, RE+24 , SOL, SOL+3, MEDRT+2, INF+1, SOL1
>> P(	SETP*
>> P(11	INF+3
>> P(15	RE+3*, CONVER+1, CONVER+3
>> P(16	RE+2, RE+3, RE+24
>> P(23	SOL+3
>> P(4	DEM+14, RE+2, SOL+3, SOL+4
>> P(5	RE+2
>> P(8	INF
>> P(9	INF+2
P16	DEM+8*, Q!, RE+3
PDATE	Q!, CONVER+2, CONVER+3, CONVER+4
PDOSE	Q!, CONVER+2*, CONVER+3, CONVER+4
>> PRTFLG	INF+12, OFFSET+2, OFFSET+6, OFFSET+7*
>> PRTLINE	INF+12, OFFSET+5*, OFFSET+6
PSIMESS	Q!, INF+5*
PSIV	Q!, RE+18, RE+24, RE+26, SOL, SOL+1, SOL+2, INF+6, SOL1
PSIV1	DEM+11, DEM+14, START, Q!, RE+2, RE+3, RE+4, RE+7, RE+9, RE+26 , SOL+1, SOL+4, SOL+5, INF+12, CONVER+1, CONVER+2, CONVER+3
PSIV2	DEM+11*, DEM+18, Q!, RE+4, INF+12
PSIVCT	DEM+8!, DEM+21, START+6, Q!, RE+4
PSIVDOSE	Q!, SOL+5*, CONVER+1, CONVER+2, CONVER+3
>> PSIVEXAM	DEM+6
PSIVFLAG	DEM+11, DEM+22!, ENX+1, START+2, Q!, RE+18, RE+22
>> PSIVID(	RE+7*
>> PSIVNOL	DEM+8, DEM+11, DEM+18, DEM+21, START, RE+4, INF+12
>> PSIVNOW	DEM+6*, INF+12
PSIVRM	DEM+8, ENX+1, Q!, P+8, P+11, PMR+11, PMR+14
>> PSIVRP	DEM+12, DEM+13, DEM+15, MEDRT+1, MEDRT+2, MEDRT+3
>> PSIVRT	DEM+12, DEM+15, DEM+16, MEDRT+1, MEDRT+3, MEDRT+4
PSIVSH	DEM+22!
>> PSIVSITE	DEM+8, DEM+10, DEM+14, DEM+19, ENX+1, START+3, RE+17, SOL+4, P+1, P+4 , PMR+3, PMR+6
>> PSIVSN	RE+11, INF+6, OFFSET+2
>> PSIVT	RE+2
PSIVWD	DEM+6*, Q!, RE+16
>> PSIVWMFL	RE+7
>> PSJBCID	RE+4*, RE+7, BARCODE+3, BARCODE+8
>> PSJBLN	RE+26, SOL+1
PSJIO	DEM+1~, DEM+3*, DEM+9, DEM+19, DEM+20, START+3, START+4, START+5, RE+8, 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+20, START+4
PSJIO("FE"	START+5
PSJIO("FI"	DEM+9
PSJIO("SL"	RE+8
>> SPACES	OFFSET+3*, OFFSET+4, OFFSET+7
TEXT	OFFSET~, OFFSET+3, OFFSET+5
TEXT1	Q!, RE+13, RE+15, INF+12, OFFSET~, OFFSET+3, OFFSET+5
U	DEM+6, DEM+8, DEM+10, DEM+13, DEM+14, DEM+15, DEM+19, DEM+21, SETP, ENX+1 , START+3, RE+11, RE+13, RE+14, RE+16, RE+17, RE+18, RE+24, SOL+2, SOL+3 , SOL+4, MEDRT+2, MEDRT+3, INF+6, SOL1, MESS+1
>> VA("BID"	DEM+6
>> VADM(1	RE+17
>> VADM(2	DEM+6*, RE+16
>> VAIN(4	DEM+6
>> VAIN(5	RE+17
>> X	DEM+16, DEM+17, SETP, RE+16, RE+17, RE+18, RE+24, SOL+2, SOL+3, SOL+4 , SOL+5, MEDRT+4, INF, INF+1, INF+2, INF+3, INF+5, INF+6, INF+12, 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+12~, RE+14, CONVER+3
XX2	Q!, CONVER+3*
>> Y	DEM+21, SETP, RE+18, RE+24, RE+26, INF+6, MESS+1
>> YY	RE+26, SOL, SOL+1
ZZ	P+4, P+6!, PMR+6, PMR+8!

Customize PDF page

Package: Inpatient Medications

Routine: PSIVLABL

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: