Routine: PSOTRLBL

Package	Total	Call Graph
Outpatient Pharmacy	2	C^PSOLBL $$ZZ^PSOSUTL
Registration	1	PID^VADPT
VA Fileman	1	C^%DTC

Package	Total	Caller Graph
Outpatient Pharmacy	3	PSOLBL1 PSOLBLD PSOLBLN

Entry Points

Name	Comments	DBIA/ICR reference
DTCONNW
SCRPTOLD
DTCONOD
CHK
DOCNEW
ADD
RZX
INST	;
CHEDI
CHCK2
DOCOLD
EXIT
SCRPTNEW
DOCEND
REFILL
BUILD

External References

Name	Field # of Occurrence
C^%DTC	REFILL+1
C^PSOLBL	CHEDI
$$ZZ^PSOSUTL	SCRPTNEW, SCRPTOLD+1
PID^VADPT	BUILD+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?54,PSINF("NAME") Line Location: DOCNEW+0
Function Call: WRITE	Prompt: !,?54,$G(VAPA(1)),!,?54,$G(ADDR(2)) Line Location: DOCNEW+2
Function Call: WRITE	Prompt: !,?54,$G(ADDR(3)) Line Location: DOCNEW+4
Function Call: WRITE	Prompt: !,?54,$G(ADDR(3)),!,?54,$G(ADDR(4)) Line Location: DOCNEW+5
Function Call: WRITE	Prompt: !,?54,"Please check prescriptions to be refilled" Line Location: ADD+0
Function Call: WRITE	Prompt: !,?54,"(",PSLN,")",!,?60,"PATIENT'S SIGNATURE ",$E(DT,4,5),"/",$E(DT,6,7),"/",($E(DT,1,3)+1700) Line Location: ADD+2
Function Call: WRITE	Prompt: @IOF Line Location: DOCEND+0
Function Call: WRITE	Prompt: !,?54,"(___) ",$$ZZ^PSOSUTL(PSA) Line Location: SCRPTNEW+0
Function Call: WRITE	Prompt: !,?60,$P(RX(PSA),"^",2)," " Line Location: SCRPTNEW+1
Function Call: WRITE	Prompt: ?64,"Expires ",PSDT2," Rx# ",$P(^PSRX(PSA,0),"^") Line Location: SCRPTNEW+1
Function Call: WRITE	Prompt: !,?60 Line Location: SCRPTNEW+2
Function Call: WRITE	Prompt: @PSOBAR1,X2,@PSOBAR0 Line Location: SCRPTNEW+2
Function Call: WRITE	Prompt: $C(13) Line Location: DOCOLD+0
Function Call: WRITE	Prompt: ?38,PSINF("SSAN")," FEE: " Line Location: DOCOLD+0
Function Call: WRITE	Prompt: ?38,PSINF("SSAN")," FEE: " Line Location: DOCOLD+0
Function Call: WRITE	Prompt: ?63,"REFILL REQUEST: PLEASE CHECK PRESCRIPTIONS TO BE REFILLED",!?38,PSINF("NAME"),?79,"YOUR SIGNATURE IS REQUIRED" Line Location: DOCOLD+1
Function Call: WRITE	Prompt: !?38,PSINF("STREET"),?60,"REFILLS" Line Location: DOCOLD+2
Function Call: WRITE	Prompt: !?38,PSINF("STREET 2") Condition for execution: PSINF("STREET 2")]"" Line Location: DOCOLD+2
Function Call: WRITE	Prompt: !?38,PSINF("CITY"),?59,"REMAINING EXPIRES",!?38,PSINF("STATE")," ",PSINF("ZIP") Line Location: DOCOLD+2
Function Call: WRITE	Prompt: !!! Line Location: DOCOLD+4
Function Call: WRITE	Prompt: ?40,"(",PSLN,")"," PATIENT'S SIGNATURE ",$E(DT,4,5),"/",$E(DT,6,7),"/",($E(DT,1,3)+1700) Line Location: DOCOLD+4
Function Call: WRITE	Prompt: @IOF Line Location: DOCOLD+5
Function Call: WRITE	Prompt: !?56,"(____) ",$P(RX(PSA),"^",2)," " Line Location: SCRPTOLD+0
Function Call: WRITE	Prompt: ?67,PSDT2," ",$P(^PSRX(PSA,0),"^") Line Location: SCRPTOLD+0
Function Call: WRITE	Prompt: ?85,$$ZZ^PSOSUTL(PSA) Line Location: SCRPTOLD+1
Function Call: WRITE	Prompt: !,?80 Line Location: SCRPTOLD+2
Function Call: WRITE	Prompt: @PSOBAR1,X2,@PSOBAR0 Line Location: SCRPTOLD+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	BUILD+4, DOCOLD
^PS(52.5 - [#52.5]	CHK
^PS(55 - [#55]	BUILD+1, RZX
^PS(59 - [#59]	BUILD, BUILD+5, BUILD+6, BUILD+8
^PS(59.7 - [#59.7]	BUILD
^PSRX - [#52]	SCRPTNEW+1, SCRPTOLD, REFILL, REFILL+1, RZX

Label References

Name	Line Occurrences
ADD	DOCNEW+3, DOCNEW+4
BUILD	CHK+1
CHEDI	CHCK2
DOCNEW	DOCEND
DOCOLD	BUILD+8, DOCOLD+5
DTCONNW	SCRPTNEW+1
DTCONOD	SCRPTOLD
EXIT	BUILD+2
INST	CHEDI
REFILL	RZX
RZX	BUILD+1
SCRPTNEW	ADD+1
SCRPTOLD	DOCOLD+3

Naked Globals

Name	Field # of Occurrence
^("IB"	BUILD
^("STA"	RZX
^(0	BUILD+5, RZX
^(1	RZX
^(2	REFILL+1, RZX

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ADDR(2	DOCNEW+2
>> ADDR(3	DOCNEW+3, DOCNEW+4, DOCNEW+5
>> ADDR(4	DOCNEW+3, DOCNEW+4, DOCNEW+5
AMC	EXIT!, DOCOLD+6!, REFILL*
>> COPIES	CHCK2
>> COUNT	BUILD+7*, ADD+1, DOCOLD+3
>> D0	CHK
>> DFN	CHK*, BUILD, BUILD+1, BUILD+4, DOCOLD, RZX
DIWF	EXIT!
DIWL	EXIT!
DIWR	EXIT!
DT	ADD+2, DOCOLD+4, REFILL+1, RZX
IOF	DOCEND, DOCOLD+5
>> J	ADD+1, DOCOLD+3
>> PI	CHCK2, CHEDI
>> PPL	CHCK2, CHEDI*
>> PPL1	CHEDI*
>> PS	BUILD+6*
>> PS1	BUILD*
PSA	BUILD+5, ADD+1, DOCEND, EXIT!, SCRPTNEW, SCRPTNEW+1, SCRPTNEW+2, DTCONNW, DOCOLD+3*, DOCOLD+5 , DOCOLD+6!, SCRPTOLD, SCRPTOLD+1, SCRPTOLD+2, DTCONOD
PSDFN	CHK*, EXIT!, DOCOLD+6!
>> PSDFNFLG	CHCK2
PSDO	CHK*, EXIT!, DOCOLD+6!
PSDT2	EXIT!, SCRPTNEW+1, DTCONNW, DOCOLD+6!, SCRPTOLD, DTCONOD
PSINF	EXIT!, DOCOLD+6!
PSINF("CITY"	BUILD+3, BUILD+4, DOCOLD+2
PSINF("NAME"	BUILD+4*, DOCNEW, DOCOLD+1
PSINF("SSAN"	BUILD+4*, DOCOLD
PSINF("STATE"	BUILD+3, BUILD+4, DOCOLD+2
PSINF("STREET	2" , BUILD+3, DOCNEW+1, DOCOLD+2
PSINF("STREET"	BUILD+3, BUILD+4, DOCNEW+1*, DOCOLD+2
PSINF("ZIP"	BUILD+3, BUILD+4, DOCOLD+2
PSLN	CHEDI*, ADD+2, EXIT!, DOCOLD+4, DOCOLD+6!
PSO9	EXIT!
>> PSOBAR0	SCRPTNEW+2, SCRPTOLD+2
>> PSOBAR1	SCRPTNEW+2, SCRPTOLD+2
>> PSOBARS	BUILD+7, SCRPTNEW+2, SCRPTOLD+2
PSOCR	EXIT!
>> PSOINST	SCRPTNEW+2, SCRPTOLD+2
>> PSOLAPPL	CHCK2
>> PSOPAR	BUILD+2, BUILD+7, SCRPTNEW+2, DOCOLD, SCRPTOLD+2
>> PSORX("PSOL"	CHEDI
>> PSOSITE	BUILD, BUILD+5, BUILD+8
>> PSOSITE7	BUILD*
>> PSOSYS	BUILD*, BUILD+6
PSRFL	EXIT!, DOCOLD+6!, REFILL, REFILL+1, RZX*
PSRX	BUILD, BUILD+1, EXIT!, DOCOLD+6!, RZX
PSRXX	EXIT!, DOCOLD+6!, REFILL, REFILL+1, RZX*
>> PSSPND	BUILD
PSSS	EXIT!, DOCOLD+6!
PSST	EXIT!, DOCOLD+6!
>> RX	CHEDI*
>> RX(	BUILD!, ADD+1, DOCEND, SCRPTNEW+1, DTCONNW, DOCOLD+3, DOCOLD+5, SCRPTOLD, DTCONOD, RZX*
>> RX(0	BUILD+2
TN	SCRPTNEW+1!
>> VA("PID"	BUILD+4
>> VAADDR1	BUILD+5, BUILD+6
>> VAPA(1	BUILD+3, BUILD+4, DOCNEW+2
>> VAPA(11	BUILD+3
>> VAPA(2	BUILD+3
>> VAPA(4	BUILD+3
>> VAPA(5	BUILD+3
>> VAPA(6	BUILD+3
>> VASTREET	BUILD+5, BUILD+6
>> X	SCRPTNEW+2, SCRPTOLD+2, REFILL+1
>> X1	SCRPTNEW+2, SCRPTOLD+2, REFILL+1*
>> X2	SCRPTNEW+2, SCRPTOLD+2, REFILL+1*
ZDRUG	SCRPTNEW!, SCRPTOLD+1!
>> ZI	CHK

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOTRLBL

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: