Routine: PSOLBLN2

Package	Total	Call Graph
Outpatient Pharmacy	3	^PSOBUILD BLANK^PSOLBLD $$ZZ^PSOSUTL
VA Fileman	3	DD^%DT C^%DTC ^DIWP
Registration	1	(6,PID)^VADPT

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSOLBL PSOLBL2
IHS Changes To Pharmacy	1	APSPLBL2

Entry Points

Name	Comments	DBIA/ICR reference
END
SUSP	;SUSPENSE DOCUMENT
PRSUS
NARR	;SET TMP GLOBAL FOR NARRATIVES
START	;RETURN MAIL
ADD
PRINT
NPP1	;

External References

Name	Field # of Occurrence
DD^%DT	ADD+4
C^%DTC	SUSP+2
^DIWP	NARR+1, NARR+4, NARR+10
^PSOBUILD	SUSP+3
BLANK^PSOLBLD	END+2
$$ZZ^PSOSUTL	ADD+6
6^VADPT	SUSP+4
PID^VADPT	SUSP+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?54,VADM(1)_" "_EDT Line Location: PRINT+1
Function Call: WRITE	Prompt: ! Line Location: PRINT+2
Function Call: WRITE	Prompt: ?54,@PSOBAR1,PSOTRDFN,@PSOBAR0,$C(13) Line Location: PRINT+2
Function Call: WRITE	Prompt: !!! Line Location: PRINT+3
Function Call: WRITE	Prompt: ! Line Location: PRINT+4
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: !,"The VA Notice of Privacy Practices, IB 10-163, which outlines your privacy",! Line Location: NPP1+3
Function Call: WRITE	Prompt: "rights, is available online at http://www1.va.gov/Health/ or you may obtain",! Line Location: NPP1+4
Function Call: WRITE	Prompt: "a copy by writing the VHA Privacy Office (19F2), 810 Vermont Avenue NW,",! Line Location: NPP1+5
Function Call: WRITE	Prompt: "Washington, DC 20420.",! Line Location: NPP1+6
Function Call: WRITE	Prompt: !,"La Notificacion relacionada con las Politicas de Privacidad del Departamento",! Line Location: NPP1+8
Function Call: WRITE	Prompt: "de Asuntos del Veterano, IB 10-163, contiene los detalles acerca de sus",! Line Location: NPP1+9
Function Call: WRITE	Prompt: "derechos de privacidad y esta disponible electronicamente en la siguiente",! Line Location: NPP1+10
Function Call: WRITE	Prompt: "direccion: http://www1.va.gov/Health/. Usted tambien puede conseguir una",! Line Location: NPP1+11
Function Call: WRITE	Prompt: "copia escribiendo a la Oficina de Privacidad del Departamento de Asuntos de",! Line Location: NPP1+12
Function Call: WRITE	Prompt: "Salud del Veterano, (19F2), 810 Vermont Avenue NW, Washington, DC 20420.",! Line Location: NPP1+13

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PRINT
^DIC(5 - [#5]	START+2
^PS(52.5 - [#52.5]	ADD+4
^PS(55 - [#55]	NPP1+1
^PS(59 - [#59]	START+1, NARR+1, NARR+4, NARR+10
^PSRX - [#52]	SUSP+1, ADD+5
^TMP($J	PSOLBLN2+4!, START+4, START+5, START+6, START+7, NARR+2, NARR+3, NARR+5, NARR+6, NARR+7* , NARR+9, NARR+11, SUSP+5, SUSP+6, SUSP+7, ADD, ADD+1, ADD+2, ADD+5, ADD+6* , PRINT+7, PRINT+8, END!, PRSUS+1, PRSUS+2, PRSUS+3
^UTILITY($J	NARR+1!, NARR+2, NARR+4!, NARR+5, NARR+10!, NARR+11, END!

Label References

Name	Line Occurrences
ADD	SUSP+5, SUSP+6
END	PRINT+5
NPP1	PRINT+5, PRINT+10
PRINT	SUSP+4
PRSUS	PRINT+5
SUSP	NARR+6, NARR+8

Naked Globals

Name	Field # of Occurrence
^(	START+4, START+7, NARR+1, NARR+4, NARR+10, ADD+2*, PRINT+7, PRINT+8, PRSUS+1, PRSUS+2 , PRSUS+3
^(0	START+1, START+2, NARR+1, NARR+4, NARR+10
^(2	SUSP+5*
^(3	SUSP+5*
^(4	SUSP+5*
^(6	SUSP+7*
^(7	SUSP+7*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ADDR(2	SUSP+5
>> ADDR(3	SUSP+5, SUSP+6, SUSP+7
>> ADDR(4	SUSP+5, SUSP+6, SUSP+7
>> DFN	PSOLBLN2+2, SUSP+1*, NPP1+1
DIWF	NARR+1, NARR+4, NARR+10*, END+1!
DIWL	NARR+1, NARR+2, NARR+4, NARR+5, NARR+10*, NARR+11, END+1!
DIWR	NARR+1, NARR+4, NARR+10*, END+1!
DT	SUSP+2, PRINT
EDT	PRINT*, PRINT+1, END+1!
IOF	END+1, END+2
LLL	NARR+2, NARR+5, NARR+11*, END+1!
>> PI	PSOLBLN2+3
>> PPL	PSOLBLN2+3
PRCOPAY	PSOLBLN2+4*, START+4, START+5, START+6, START+7, NARR+8, PRINT+2, PRINT+3, PRINT+4, END+1!
PS	START+1*, START+2, START+3, START+4, END+1!
PSNACNT	NARR+1, NARR+2, NARR+3, NARR+5, NARR+6, NARR+7, NARR+9, NARR+11*, END+1!
PSNOADDR	PRINT+6, PRINT+7, PRINT+9, END+1!, PRSUS, PRSUS+1, PRSUS+4
PSNOBOTH	PRINT+6, PRINT+9, END+1!
PSNONARR	PRINT+6, PRINT+8, PRINT+9, END+1!, PRSUS, PRSUS+2, PRSUS+4
PSNOSUSP	END+1!, PRSUS, PRSUS+3, PRSUS+4
PSNTHREE	END+1!, PRSUS, PRSUS+4
>> PSOBAR0	PRINT+2
>> PSOBAR1	PRINT+2
>> PSOBARS	PRINT+2, PRINT+3
>> PSOBLALL	PSOLBLN2+3
>> PSOCHAMP	NARR+6
>> PSOCPN	PSOLBLN2+4
>> PSODFN	SUSP+1*
>> PSODTCUT	SUSP+2*
>> PSOHZIP	START+3*, START+4
PSOLAN	NPP1+1~*, NPP1+2, NPP1+7
PSOLGTH	ADD+5*, END+1!
>> PSOPAR	END+2
PSOSD	END+1!
PSOSD(	SUSP+3
>> PSOSITE	START+1, NARR+1, NARR+4, NARR+10
>> PSOSYS	START+1
PSOTRAIL	PSOLBLN2+2, END+1!
>> PSOTRAMT	NARR+6
PSOTRDFN	PRINT*, PRINT+2, END+1!
PSSEVFL	NARR+1, NARR+5, NARR+6, NARR+9, END+1!
PSSIXFL	NARR+1, NARR+2, NARR+3, END+1!
PSSPCNT	SUSP+1, ADD, ADD+1, ADD+2, ADD+5, ADD+6, END+1!
PSSSRX	ADD+3*, ADD+4, ADD+5, ADD+6, END+1!
PSSUFLG	SUSP+1, SUSP+4, PRINT+5, END+1!
>> PSZIP	START+3*
>> RX	SUSP+1
>> RXN	PSOLBLN2+2
RXX	SUSP+1, SUSP+3, END+1!
SPDATE	ADD+4*, ADD+5, ADD+6!, END+1!
SPNUM	ADD+4*, ADD+6!, END+1!
SPPL	SUSP+1, SUSP+3, SUSP+4, ADD+3, END+1!
>> STA	SUSP+1, SUSP+3
STATE	START+2*, START+4, END+1!
TTT	PRINT+6, PRINT+7, PRINT+8, END+1!, PRSUS, PRSUS+1, PRSUS+2, PRSUS+3
VAADDR1	START+2*, START+4, END+1!
VADM	END+1!
VADM(1	SUSP+5, PRINT+1
VADM(2	PRINT
VAEL	END+1!
VAPA	END+1!
VAPA(1	SUSP+5
VASTREET	START+2*, START+4, END+1!
>> X	NARR+1, NARR+4, NARR+10, SUSP+2, PRINT+2
>> X1	SUSP+2, PRINT+2
>> X2	SUSP+2, PRINT+2
>> XX	ADD+3*
Y	ADD+4, ADD+6!, PRINT
ZZ	NARR+1, NARR+4, NARR+10, ADD, END+1!
ZZZ	START+5, START+6, END+1!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOLBLN2

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: