Routine: PSOLBLN

Package	Total	Call Graph
Outpatient Pharmacy	7	$$CHKRX^PSOBAI DEVBAR^PSOBMST (KILL,REP,TRAIL,WARN)^PSOLBL2 (,ALLWARN)^PSOLBLN1 ALL^PSOLBLS PSOSTALK^PSOTALK1 CHCK2^PSOTRLBL
Registration	1	ADD^VADPT
VA Fileman	1	(,NOW)^%DTC

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOLBL

Entry Points

Name	Comments	DBIA/ICR reference
END	;
REP
L11
L12
L13
L1
ST

External References

Name	Field # of Occurrence
^%DTC	ST+3
NOW^%DTC	ST+4, REP+1
$$CHKRX^PSOBAI	REP+6
DEVBAR^PSOBMST	PSOLBLN+5
KILL^PSOLBL2	END+2
REP^PSOLBL2	ST+2
TRAIL^PSOLBL2	REP+16
WARN^PSOLBL2	L13
^PSOLBLN1	L1+15
ALLWARN^PSOLBLN1	REP+12, REP+14
ALL^PSOLBLS	REP+13, REP+14
PSOSTALK^PSOTALK1	PSOLBLN+4
CHCK2^PSOTRLBL	REP+15
ADD^VADPT	PSOLBLN+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?3,"VAMC ",$P(PS,"^",7),", ",STATE," ",$G(PSOHZIP),?54,"VAMC ",$P(PS,"^",7),", ",STATE," ",$G(PSOHZIP),?102 Line Location: L1+0
Function Call: WRITE	Prompt: $S($D(REPRINT)&($G(PSOBLALL)):"(GROUP REPRINT)",$D(REPRINT):"(REPRINT)",1:"") Line Location: L1+0
Function Call: WRITE	Prompt: "(PARTIAL)" Condition for execution: $G(RXP) Line Location: L1+0
Function Call: WRITE	Prompt: !?3,$P(PS2,"^",2)," ",$P(PS,"^",3),"-",$P(PS,"^",4)," ",TECH,?54,$P(PS2,"^",2)," ",$P(PS,"^",3),"-",$P(PS,"^",4)," ",TECH,?102,$P(PS2,"^",2)," ",TECH," ",NOW Line Location: L1+1
Function Call: WRITE	Prompt: !,"Rx# ",RXN," ",DATE," Fill ",RXF+1," of ",1+$P(RXY,"^",9),?54,"Rx# ",RXN," ",DATE," Fill ",RXF+1," of ",1+$P(RXY,"^",9),?102,"Rx# ",RXN," ",DATE," Fill ",RXF+1," of ",1+$P(RXY,"^",9) Line Location: L1+2
Function Call: WRITE	Prompt: !,PNM," ",$G(SSNPN),?54,PNM," ",$G(SSNPN),?102,PNM," ",$G(SSNPN) Line Location: L1+3
Function Call: WRITE	Prompt: !,$G(SGY(DR)),?54,$G(SGY(DR)),?102,$S($G(OSGY(DR))]"":OSGY(DR),1:$G(SGY(DR))) Line Location: L1+4
Function Call: WRITE	Prompt: ! Line Location: L1+5
Function Call: WRITE	Prompt: ! Line Location: L1+6
Function Call: WRITE	Prompt: !! Line Location: L1+7
Function Call: WRITE	Prompt: ! Line Location: L1+8
Function Call: WRITE	Prompt: !,$G(PHYS),?54,$G(PHYS),?102,$G(PHYS) Line Location: L1+9
Function Call: WRITE	Prompt: !,"Qty: "_$G(QTY)," ",$G(PSDU),?54,"Qty: "_$G(QTY)," ",$G(PSDU),?102,"Qty: "_$G(QTY)," ",$G(PSDU) Line Location: L1+11
Function Call: WRITE	Prompt: !,DRUG,?54,DRUG,?102,DRUG Line Location: L1+13
Function Call: WRITE	Prompt: !,$S($G(PSOSTALK):ZTKDRUG,1:DRUG),?54,DRUG,?102,DRUG Line Location: L1+14
Function Call: WRITE	Prompt: !?54,$P(RXY,"^",9)-RXF," Refills remain prior to ",EXPDT,?102,"Mfg "_$G(MFG)_" Lot# "_$G(LOT) Line Location: L1+17
Function Call: WRITE	Prompt: !?54,"Last fill prior to ",$G(EXPDT),?102,"Mfg "_$G(MFG)_" Lot# "_$G(LOT) Line Location: L11+0
Function Call: WRITE	Prompt: !,$P(PS,"^",2),?54,$S($L($G(COPAYVAR)):$G(COPAYVAR)_" ",1:""),"Days Supply: ",$G(DAYS),?102,"Tech__________RPh_________",!,$P(PS,"^",7),", ",STATE," ",$G(PSOHZIP) Line Location: L12+0
Function Call: WRITE	Prompt: ?54,@PSOBAR1,X2,@PSOBAR0,$C(13) Line Location: L12+2
Function Call: WRITE	Prompt: ! Condition for execution: IOST["P-MT661BC" Line Location: L12+2
Function Call: WRITE	Prompt: !!! Line Location: L12+3
Function Call: WRITE	Prompt: !,"FORWARDING SERVICE REQUESTED" Line Location: L12+4
Function Call: WRITE	Prompt: !,?21,"CERTIFIED MAIL" Condition for execution: "C"[$E(MW) Line Location: L12+4
Function Call: WRITE	Prompt: !?54,$G(VAPA(1)) Line Location: L12+4
Function Call: WRITE	Prompt: !,$S($G(PS55)=2:"*DO NOT MAIL",1:"CRITICAL MEDICAL SHIPMENT*"),?54,$G(ADDR(2)),?102,"Routing: "_$S("W"[$E(MW):MW,1:MW_" MAIL") Line Location: L12+5
Function Call: WRITE	Prompt: !?54,$G(ADDR(3)),?102,"Days supply: ",$G(DAYS)," Cap: ",$S(PSCAP:"NON-SFTY",1:"SAFETY") Line Location: L12+6
Function Call: WRITE	Prompt: !?54,$G(ADDR(4)),?102,"Isd: ",ISD," Exp: ",EXPDT Line Location: L12+7
Function Call: WRITE	Prompt: !,PNM,?54,"*Indicate address change on back of this form",?102,"Last Fill: ",$G(PSOLASTF) Line Location: L12+8
Function Call: WRITE	Prompt: !,$S($D(PSMP(1)):PSMP(1),1:$G(VAPA(1))),?54,"[ ] Permanent",?102,"Pat. Stat ",PATST," Clinic: ",PSCLN Line Location: L12+9
Function Call: WRITE	Prompt: !,$S($D(PSMP(3)):PSMP(3),$D(PSMP(1)):"",1:$G(ADDR(3))),!,$S($D(PSMP(4)):PSMP(4),$D(PSMP(1)):"",1:$G(ADDR(4))),?54,"Signature",ULN Line Location: L12+11
Function Call: WRITE	Prompt: ?102,@PSOBAR1,X2,@PSOBAR0,$C(13) Line Location: L12+12
Function Call: WRITE	Prompt: @IOF Line Location: L13+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ST+3, ST+4
^PSDRUG - [#50]	L1+10
^PSRX - [#52]	ST, ST+1, ST+3, ST+5, L1+10, REP+1, REP+2, REP+3, REP+4, REP+9* , REP+10, REP+11
^VA(200 - [#200]	ST+1

Label References

Name	Line Occurrences
L11	L1+16
L12	L1+17
L13	L1+15
REP	ST+2
ST	PSOLBLN+9, PSOLBLN+10, PSOLBLN+11, REP

Naked Globals

Name	Field # of Occurrence
^(0	ST

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ST+4, REP+1!
%H	REP+1!
%I	REP+1!
>> ADDR(2	PSOLBLN+9, PSOLBLN+10, PSOLBLN+11, PSOLBLN+12, L12+5, L12+10
>> ADDR(22	PSOLBLN+7, PSOLBLN+8, PSOLBLN+9
>> ADDR(3	PSOLBLN+9, PSOLBLN+10, PSOLBLN+11, PSOLBLN+12, L12+6, L12+11
>> ADDR(33	PSOLBLN+7, PSOLBLN+8, PSOLBLN+9
>> ADDR(4	PSOLBLN+9, PSOLBLN+10, PSOLBLN+11*, L12+7, L12+11
>> COPAYVAR	L12
>> COPIES	ST+2*, REP
>> DATE	ST+4*, L1+2
>> DAYS	L12, L12+6
>> DFN	PSOLBLN+6
>> DIFF	ST+3*, L1+16
>> DR	L1+4*, L1+6, L1+7, L1+8
>> DRUG	L1+13, L1+14
DT	ST+3
>> EXPDT	ST+3*, L1+17, L11, L12+7
FDA	REP+2*, REP+11!
>> GG	L1+5*
>> HH	L1+6*
I	REP+1*, REP+11!
IOF	L13+1
>> IOS	PSOLBLN+5
IOST	L12+2
IR	REP+2, REP+3, REP+4, REP+9*, REP+10, REP+11!
>> ISD	ST+3*, L12+7
>> KK	L1+6*
>> LOT	L1+17, L11
>> MFG	L1+17, L11
>> MW	L12+4, L12+5, REP+10
NOW	ST+4, L1+1, REP+1, REP+4, REP+10, REP+11!
>> NURSE	L1+10
>> OSGY(	L1+4
>> PATST	L12+9
>> PCOMH(	REP+4, REP+11!
>> PCOMX	REP+4
>> PDUZ	REP+4, REP+10
>> PHYS	ST+1*, L1+9
>> PNM	L1+3, L12+8
>> PS	ST+6, L1, L1+1, L12
>> PS2	L1+1
>> PS55	L12+5
>> PSCAP	L12+6
>> PSCLN	L12+9
>> PSDFNFLG	L13, REP+12, REP+13, REP+15
PSDU	L1+10*, L1+11, L1+13!, L1+14!
PSMF	L1+10*, L1+13!, L1+14!
>> PSMP(1	L12+9, L12+10, L12+11
>> PSMP(2	L12+10
>> PSMP(3	L12+11
>> PSMP(4	L12+11
PSOBADR	REP+5~, REP+6, REP+7, REP+8
>> PSOBAR0	PSOLBLN+5, L12+2, L12+12
>> PSOBAR1	PSOLBLN+5, L12+2, L12+12
>> PSOBARS	PSOLBLN+5, L12+2, L12+12
>> PSOBLALL	L1, L13, REP+14, REP+15, REP+16
>> PSOHZIP	ST+6*, L1, L12
>> PSOINST	L12+2, L12+12
>> PSOIOS	PSOLBLN+5*
>> PSOLAPPL	L13, REP+12, REP+13, REP+15
>> PSOLASTF	L12+8
>> PSOPAR	ST+5, L12+2, REP+15
>> PSOPROV	ST*, ST+1
>> PSOSTALK	L1+14
PSOSTLK	PSOLBLN+4!*, L1+13, L1+14
PSOTEMP	REP+5~, REP+7*, REP+8
>> PSOTRAIL	ST+2*
>> PSSPND	REP+15
>> PSZIP	ST+6*
>> QTY	L1+11
>> REPRINT	L1, REP+4
>> RX	ST, ST+1, ST+3, ST+5, L1+10, L12+2, L12+12, REP+1, REP+2, REP+3 , REP+4, REP+6, REP+9, REP+10, REP+11, END+1
RXF	ST, L1+2, L1+15, L1+17, REP+1*, REP+4, REP+10, REP+11!
>> RXFL(	END+1*
RXFLX	END+1!
RXFLX(	END+1
>> RXN	L1+2
>> RXP	ST, L1, REP+4, REP+10
>> RXPI	REP+4, REP+10
>> RXY	ST+5, L1+2, L1+15, L1+17
>> SGY(	L1+4
>> SIDE	ST+2, REP*
>> SSNPN	L1+3
>> STATE	L1, L12
>> TECH	ST+5*, L1+1
>> ULN	ST+2*, L12+11
>> VAPA(1	L12+4, L12+9
>> VAPA(10	L12+10
>> VAPA(11	PSOLBLN+7
>> VAPA(2	PSOLBLN+8, PSOLBLN+9, PSOLBLN+10, PSOLBLN+11, PSOLBLN+12
>> VAPA(3	PSOLBLN+8, PSOLBLN+9, PSOLBLN+10, PSOLBLN+11, PSOLBLN+12
>> VAPA(4	PSOLBLN+7
>> VAPA(5	PSOLBLN+7
>> VAPA(6	PSOLBLN+7
>> VRPH	ST+5
>> WARN	L12+10, L13, REP+12, REP+13, REP+14
>> X	ST+3, L12+2, L12+12
>> X1	ST+3, L12+2, L12+12*
>> X2	ST+3, L12+2, L12+12*
>> Y	ST+3, ST+4
ZTKDRUG	PSOLBLN+4!, L1+12*, L1+14

Marked Items

Name	Field # of Occurrence
$T(PSOSTALK^PSOTALK1	PSOLBLN+4

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOLBLN

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items