Routine: PSOLLL7

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Outpatient Pharmacy	3	^PSOLSET EN^PSOPATLK $$ZZ^PSOSUTL
Registration	3	(6,ADD,DEM)^VADPT PID^VADPT6 $$SITE^VASITE
VA Fileman	2	(C,NOW)^%DTC EN^DIQ1
CIA Utilities	1	$$BC^CIAUBC28

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

Outpatient Pharmacy

^PSOLSET EN^PSOPATLK $$ZZ^PSOSUTL

Registration

(6,ADD,DEM)^VADPT PID^VADPT6 $$SITE^VASITE

VA Fileman

(C,NOW)^%DTC EN^DIQ1

CIA Utilities

$$BC^CIAUBC28

Package	Total	Caller Graph
Outpatient Pharmacy	3	PSO LM MULTI-RX PRINT PSOLLL1 PSOLLL5

Package

Total

Caller Graph

Outpatient Pharmacy

PSO LM MULTI-RX PRINT PSOLLL1 PSOLLL5

Entry Points

Name	Comments	DBIA/ICR reference
Q1
EN
DQ
HDR
PRINT(T)	;
SITE	;
DOCNEW
GETPT2
QUEUE	; ENTRY POINT TO PRINT STAND-ALONE MULTI-RX FORM
ADD
HDR5
EXIT
DTCONNW
GETPT
MAIL	;PRINT MAILING ADHESIVE LABEL
REFILL
RZX
SCRPTNEW
RFILL2

External References

Name	Field # of Occurrence
C^%DTC	RFILL2+1
NOW^%DTC	Q1+5
^%ZIS	Q1
^%ZISC	Q1+8
^%ZTLOAD	Q1+8
$$BC^CIAUBC28	SCRPTNEW+8
EN^DIQ1	SITE+2
^PSOLSET	QUEUE+2
EN^PSOPATLK	GETPT
$$ZZ^PSOSUTL	SCRPTNEW
6^VADPT	Q1+4
ADD^VADPT	HDR+1
DEM^VADPT	GETPT2
PID^VADPT6	Q1+4
$$SITE^VASITE	SITE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$BC^CIAUBC28(X2,0,50,PSOX,PSOY) Line Location: SCRPTNEW+8
Function Call: WRITE	Prompt: @IOF Line Location: SCRPTNEW+15
Function Call: WRITE	Prompt: T,! Line Location: PRINT+3
Function Call: WRITE	Prompt: ! Line Location: QUEUE+5
Function Call: WRITE	Prompt: ! Line Location: Q1+0
Function Call: WRITE	Prompt: !,"Must specify a laser labels printer for Multi-Rx form." Line Location: Q1+2
Function Call: WRITE	Prompt: !,"Nothing queued to print." Line Location: Q1+3
Routine Call	%ZIS Line Location: Q1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	Q1+2, DQ
^DD("DD"	Q1+5
^DIC(5 - [#5]	HDR+4, MAIL+3
^PS(55 - [#55]	REFILL+3, RZX
^PS(59 - [#59]	REFILL, DOCNEW+7, HDR5+4, MAIL+1, MAIL+2
^PS(59.7 - [#59.7]	REFILL, QUEUE+3
^PSRX - [#52]	SCRPTNEW+2, RFILL2, RFILL2+1, RZX+1
^UTILITY("DIQ1"	SITE+1!, SITE+2!

Label References

Name	Line Occurrences
DTCONNW	SCRPTNEW+1
EN	DQ+2
EXIT	DOCNEW+4, DOCNEW+5
GETPT	GETPT2+1
GETPT2	QUEUE+6
HDR	DOCNEW+2, SCRPTNEW+11
HDR5	HDR+2
MAIL	EN
PRINT	EN+2, EN+3, DOCNEW+6, DOCNEW+8, SCRPTNEW, SCRPTNEW+2, SCRPTNEW+12, SCRPTNEW+13, HDR, HDR+3 , HDR+6, HDR5+1, HDR5+2, HDR5+5, ADD, ADD+1, MAIL+9, MAIL+10, MAIL+11, MAIL+12
Q1	Q1+2
RFILL2	RZX+1
RZX	REFILL+3
SCRPTNEW	DOCNEW+3
SITE	HDR5+3, QUEUE+4

Name	Field # of Occurrence
^(	DQ
^("IB"	REFILL
^("STA"	RZX+1
^(0	DOCNEW+7, RZX+1, HDR+4, HDR5+4, MAIL+1, MAIL+3
^(1	RZX+1, DQ
^(2	RFILL2+1, RZX+1

Name

Field # of Occurrence

^("IB"

REFILL

^("STA"

RZX+1

^(0

DOCNEW+7, RZX+1, HDR+4, HDR5+4, MAIL+1, MAIL+3

^(1

RZX+1, DQ

^(2

RFILL2+1, RZX+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	Q1+5
>> %ZIS	Q1*
>> %ZIS("A"	Q1*!
>> %ZIS("B"	Q1*
>> A	HDR+4*, HDR+5
AMC	EXIT!, RFILL2*
>> B	HDR+5*, HDR+6
>> BLNKLIN	REFILL+2*, DOCNEW+6, SCRPTNEW+12
DA	SITE+1*, SITE+2!
DFN	REFILL, REFILL+3, RZX, QUEUE+1, QUEUE+6, GETPT+1*, Q1+9!
DIC	GETPT!, SITE+2*!
DIC("A"	GETPT*
DIC(0	GETPT*
>> DIQ(0	SITE+2*
DIWF	EXIT!
DIWL	EXIT!
DIWR	EXIT!
DR	SITE+2*!
DT	RFILL2+1, RZX+1
DUZ	Q1+7
G	Q1+6*, Q1+8!
>> I	HDR+3, DQ
IOF	SCRPTNEW+15
ION	Q1
IOST(0	Q1+2, Q1+3, DQ
>> J	DOCNEW+3*
>> OPSOX	SCRPTNEW+2, SCRPTNEW+10, HDR5+5
>> OPSOY	HDR5+5*
>> ORIGY	DOCNEW+1*, DOCNEW+5, SCRPTNEW+14
>> PDUZ	Q1+7*
>> PNM	HDR, GETPT2*, GETPT2+2
POP	Q1!, Q1+1
>> PS	DOCNEW+7, DOCNEW+8, SCRPTNEW+13, HDR5+4, HDR5+5, MAIL+1, MAIL+2, MAIL+3, MAIL+4, MAIL+12
>> PS1	REFILL*
PSA	DOCNEW+2, DOCNEW+3, EXIT!, SCRPTNEW, SCRPTNEW+2, SCRPTNEW+6, SCRPTNEW+11, DTCONNW
PSDFN	EXIT!
PSDO	EXIT!
PSDT2	EXIT!, SCRPTNEW+2, DTCONNW*
PSINF	EXIT!
>> PSLION	Q1*, Q1+7
PSLN	EXIT!
PSO9	EXIT!
PSOBIO	DQ~
>> PSOBYI	SCRPTNEW+3
PSOCR	EXIT!
>> PSOFNOW	Q1+5*
>> PSOFONT	PRINT+1
>> PSOHZIP	MAIL+4*, MAIL+12
>> PSOINST	SCRPTNEW+6, HDR5+3, QUEUE+4, SITE+2, SITE+3
>> PSOIO	DQ*
>> PSOIO(	PRINT+1, DQ*
>> PSOIO("EBT"	SCRPTNEW+9
>> PSOIO("ET"	PRINT+4
>> PSOIO("LLI"	DQ+1
>> PSOIO("MLI"	MAIL+5
>> PSOIO("PII"	EN+1
>> PSOIO("PSOFONT"	MAIL+6
>> PSOIO("RPI"	DOCNEW
>> PSOIO("ST"	PRINT+2
>> PSOLX	DOCNEW+1, SCRPTNEW+15
>> PSONOW	DOCNEW+8, SCRPTNEW+13, HDR5+1, Q1+5*
>> PSOPAR	QUEUE+2
PSOPTLK	GETPT!
>> PSORX	SCRPTNEW+15, SCRPTNEW+16
>> PSOSITE	REFILL, DOCNEW+7, HDR5+4, MAIL+1
>> PSOSITE7	REFILL*
>> PSOSYI	DOCNEW+6, SCRPTNEW+12
>> PSOSYS	REFILL, MAIL+2, QUEUE+3
>> PSOTYI	DOCNEW+1, DOCNEW+6, SCRPTNEW, SCRPTNEW+2, SCRPTNEW+12, SCRPTNEW+14
>> PSOX	REFILL+5, DOCNEW+1, SCRPTNEW+2, SCRPTNEW+6, SCRPTNEW+8, SCRPTNEW+10, SCRPTNEW+15, SCRPTNEW+16, HDR5+5
>> PSOXI	SCRPTNEW+2, SCRPTNEW+6
>> PSOY	DOCNEW+1, DOCNEW+5, SCRPTNEW+8, SCRPTNEW+11, SCRPTNEW+14, HDR5, HDR5+1, HDR5+5, ADD, ADD+1
>> PSOYI	DOCNEW+1, DOCNEW+6, SCRPTNEW, SCRPTNEW+2, SCRPTNEW+3, SCRPTNEW+12, SCRPTNEW+14*, HDR5, HDR5+1, ADD , ADD+1
>> PSOYM	SCRPTNEW+11
PSRFL	EXIT!, RFILL2, RFILL2+1, RZX+1*
PSRX	REFILL+1, REFILL+3, EXIT!, RZX
PSRXX	EXIT!, RFILL2, RFILL2+1, RZX*, RZX+1
>> PSSPND	REFILL+1
PSSS	EXIT!
PSST	EXIT!
>> PSZIP	MAIL+4*
>> RX(	REFILL+1!, DOCNEW+3, SCRPTNEW+2, SCRPTNEW+11, DTCONNW, RZX+1*
>> RX(0	DOCNEW+4, HDR5
SAVDFN	QUEUE+1*, Q1+9!
>> SSNP	Q1+4*
>> STATE	MAIL+3*, MAIL+12
T	EN+2, EN+3, DOCNEW+6, DOCNEW+8, SCRPTNEW, SCRPTNEW+2, SCRPTNEW+12, SCRPTNEW+13, HDR, HDR+3 , HDR+6, HDR5+1, HDR5+2, HDR5+5, ADD, ADD+1, PRINT~, PRINT+3
>> TEXT	MAIL+9, MAIL+10, MAIL+11, MAIL+12
TN	SCRPTNEW+2!
>> VAADDR1	MAIL+3*, MAIL+10
>> VADM(1	GETPT2
>> VADM(6	GETPT2+1, GETPT2+2
>> VAPA(	HDR+3
>> VAPA(1	HDR+2
>> VAPA(11	HDR+5
>> VAPA(4	HDR+5
>> VAPA(5	HDR+4
>> VAPA(6	HDR+5
>> VASTREET	MAIL+3*, MAIL+11
>> X	RFILL2+1, GETPT
>> X0	DQ*
>> X1	RFILL2+1*
>> X2	SCRPTNEW+6, SCRPTNEW+8, RFILL2+1
>> Y	GETPT, GETPT+1, Q1+5
ZDRUG	SCRPTNEW!
>> ZTDESC	Q1+7*
>> ZTDTH	Q1+7*
>> ZTIO	Q1+7*
>> ZTQUEUED	EXIT+1
>> ZTREQ	EXIT+1*
>> ZTRTN	Q1+7*
>> ZTSAVE(	Q1+6*
ZTSK	Q1!, Q1+8

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOLLL7

Information

Source Information