Routine: PSOLBLN1

Package	Total	Call Graph
Adverse Reaction Tracking	1	^GMRADPT
Outpatient Pharmacy	1	(PRINT,WARN)^PSOLBL2

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOLBLN

Entry Points

Name	Comments	DBIA/ICR reference
START
PRT
ALLWARN	;ALLERGIES WITH DRUG WARNING
NORENW	;NO RENEW

External References

Name	Field # of Occurrence
^GMRADPT	ALLWARN+14
PRINT^PSOLBL2	PRT
WARN^PSOLBL2	ALLWARN+1, ALLWARN+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?54,$S($L($G(COPAYVAR)):$G(COPAYVAR)_" ",1:""),"Days Supply: ",$G(DAYS),?102,"Mfg "_$G(MFG)_" Lot# "_$G(LOT) Line Location: START+0
Function Call: WRITE	Prompt: !,$P(PS,"^",2),?102,"Tech__________RPh__________" Line Location: START+3
Function Call: WRITE	Prompt: !,$P(PS,"^",7),", ",STATE," ",$G(PSOHZIP) Line Location: START+4
Function Call: WRITE	Prompt: ?54,@PSOBAR1,X2,@PSOBAR0,$C(13) Line Location: START+5
Function Call: WRITE	Prompt: !!!! Line Location: START+6
Function Call: WRITE	Prompt: "FORWARDING SERVICE REQUESTED",?54,"* NO REFILLS REMAINING ** PHYSICIAN USE ONLY *",! Line Location: START+7
Function Call: WRITE	Prompt: ?21,"CERTIFIED MAIL" Condition for execution: "C"[$E(MW) Line Location: START+7
Function Call: WRITE	Prompt: ?54,"Signature:____________________________SC NSC" Line Location: START+7
Function Call: WRITE	Prompt: !,?54,"Print Name:",ULN,"",! Line Location: START+8
Function Call: WRITE	Prompt: $S($G(PS55)=2:"*DO NOT MAIL",1:"CRITICAL MEDICAL SHIPMENT*") Line Location: START+8
Function Call: WRITE	Prompt: $S($G(PS55)=2:"*DO NOT MAIL",1:"CRITICAL MEDICAL SHIPMENT*") Line Location: START+8
Function Call: WRITE	Prompt: !,?54,"Refills: 0 1 2 3 4 5 6 7 8 9 10 11",?99,"",?102,"Days Supply: ",$G(DAYS)," Cap: ",$S(PSCAP:"NON-SFTY",1:"SAFETY") Line Location: START+9
Function Call: WRITE	Prompt: !,?54,"*** To be filled in VA Pharmacies only ***",?102,"Isd: ",ISD," Exp: ",EXPDT,!,PNM,?54,$G(VAPA(1)),?102,"Last Fill: ",$G(PSOLASTF) Line Location: START+10
Function Call: WRITE	Prompt: !,$S($D(PSMP(1)):PSMP(1),1:VAPA(1)),?54,$G(ADDR(2)),?102,"Pat. Stat ",PATST," Clinic: ",PSCLN Line Location: START+11
Function Call: WRITE	Prompt: !,$S($D(PSMP(3)):PSMP(3),$D(PSMP(1)):"",1:$G(ADDR(3))),?54,$G(ADDR(4)) Line Location: START+13
Function Call: WRITE	Prompt: !,$S($D(PSMP(4)):PSMP(4),$D(PSMP(1)):"",1:$G(ADDR(4))),?54,"*Indicate address change on back of this form",!,?54,"[ ] Permanent [ ] Temporary until ",$S($P($G(VAPA(10)),"^",2)]"":$P($G(VAPA(10)),"^",2),1:"__/__/__") Line Location: START+14
Function Call: WRITE	Prompt: ?102,@PSOBAR1,X2,@PSOBAR0,$C(13) Line Location: START+15
Function Call: WRITE	Prompt: !,$P(PS,"^",2),?102,"Tech__________RPH__________" Line Location: NORENW+1
Function Call: WRITE	Prompt: !,$P(PS,"^",7),", ",STATE," ",$G(PSOHZIP) Line Location: NORENW+2
Function Call: WRITE	Prompt: ?54,@PSOBAR1,X2,@PSOBAR0,$C(13) Line Location: NORENW+3
Function Call: WRITE	Prompt: !!!! Line Location: NORENW+4
Function Call: WRITE	Prompt: "FORWARDING SERVICE REQUESTED",?54,"* This prescription CANNOT be renewed *",! Line Location: NORENW+5
Function Call: WRITE	Prompt: ?21,"CERTIFIED MAIL" Condition for execution: "C"[$E(MW) Line Location: NORENW+5
Function Call: WRITE	Prompt: ?54,"",?96,"",!,?54,"* A NEW PRESCRIPTION IS REQUIRED *" Line Location: NORENW+5
Function Call: WRITE	Prompt: !,$S($G(PS55)=2:"*DO NOT MAIL",1:"CRITICAL MEDICAL SHIPMENT"),?54,"",?96,"",!,?54,"** Please contact your physician *****" Line Location: NORENW+6
Function Call: WRITE	Prompt: !,?54,$G(VAPA(1)),?102,"Routing: "_$S("W"[$E(MW):MW,1:MW_" MAIL"),!,?54,$G(ADDR(2)),?102,"Days supply: ",$G(DAYS)," Cap: ",$S(PSCAP:"NON-SFTY",1:"SAFETY") Line Location: NORENW+7
Function Call: WRITE	Prompt: !,PNM,?54,$G(ADDR(3)),?102,"Isd: ",ISD," Exp: ",EXPDT Line Location: NORENW+8
Function Call: WRITE	Prompt: !,$S($D(PSMP(1)):PSMP(1),1:VAPA(1)),?54,$G(ADDR(4)),?102,"Last Fill: ",$G(PSOLASTF) Line Location: NORENW+9
Function Call: WRITE	Prompt: !,$S($D(PSMP(2)):PSMP(2),$D(PSMP(1)):"",1:$G(ADDR(2))),?54,"*Indicate address change on back of this form",?102,"Pat. Stat ",PATST," Clinic: ",PSCLN Line Location: NORENW+10
Function Call: WRITE	Prompt: !,$S($D(PSMP(4)):PSMP(4),$D(PSMP(1)):"",1:$G(ADDR(4))) Line Location: NORENW+12
Function Call: WRITE	Prompt: ?102,@PSOBAR1,X2,@PSOBAR0,$C(13) Line Location: NORENW+12

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(54 - [#54]	ALLWARN+4, ALLWARN+7, ALLWARN+8
^TMP($J	ALLWARN+2!, ALLWARN+8, ALLWARN+11, ALLWARN+12, ALLWARN+13!, ALLWARN+14, ALLWARN+15, ALLWARN+16, ALLWARN+17, ALLWARN+19 , ALLWARN+20, ALLWARN+21, ALLWARN+22, ALLWARN+23, ALLWARN+25, ALLWARN+26, ALLWARN+27, ALLWARN+28, ALLWARN+29, ALLWARN+30

Label References

Name	Line Occurrences
NORENW	START+1

Naked Globals

Name	Field # of Occurrence
^(2	ALLWARN+11, ALLWARN+15
^(3	ALLWARN+11, ALLWARN+15
^(4	ALLWARN+11, ALLWARN+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ADDR(2	START+11, START+12, NORENW+7, NORENW+10
>> ADDR(3	START+12, START+13, NORENW+8, NORENW+11
>> ADDR(4	START+13, START+14, NORENW+9, NORENW+12
>> ALCNT	ALLWARN+16, ALLWARN+17, ALLWARN+19, ALLWARN+20, ALLWARN+21, ALLWARN+22, ALLWARN+23, ALLWARN+25, ALLWARN+26, ALLWARN+27 , ALLWARN+28, ALLWARN+29, ALLWARN+30*
>> COPAYVAR	START
>> DAYS	START, START+9, NORENW+7
>> DRUG	ALLWARN+11
>> EEE	ALLWARN+16, ALLWARN+17, ALLWARN+18, ALLWARN+22, ALLWARN+23, ALLWARN+24
>> EXPDT	START+10, NORENW+8
>> GMRA	ALLWARN+14*
>> GMRAL	ALLWARN+14, ALLWARN+19, ALLWARN+25
>> GMRAL(	ALLWARN+14
>> ISD	START+10, NORENW+8
>> JJJ	ALLWARN+6, ALLWARN+7, ALLWARN+8
>> LOT	START
>> MFG	START
>> MW	START+7, START+8, NORENW+5, NORENW+7
>> PATST	START+11, NORENW+10
>> PI	ALLWARN+1
>> PNM	START+10, NORENW+8, ALLWARN+11, ALLWARN+15
>> PPL	ALLWARN+1
>> PRTFL	START+1
>> PS	START+3, START+4, NORENW+1, NORENW+2
>> PS55	START+8, NORENW+6
>> PSCAP	START+9, NORENW+7
>> PSCLN	START+11, NORENW+10
>> PSMP(1	START+11, START+12, START+13, START+14, NORENW+9, NORENW+10, NORENW+11, NORENW+12
>> PSMP(2	START+12, NORENW+10
>> PSMP(3	START+13, NORENW+11
>> PSMP(4	START+14, NORENW+12
>> PSOBAR0	START+5, START+15, NORENW+3, NORENW+12
>> PSOBAR1	START+5, START+15, NORENW+3, NORENW+12
>> PSOBARS	START+5, START+15, NORENW+3, NORENW+12
>> PSOBLALL	ALLWARN+1
>> PSOHZIP	START+4, NORENW+2
>> PSOINST	START+5, START+15, NORENW+3, NORENW+12
>> PSOLASTF	START+10, NORENW+9
>> PSOLG	ALLWARN+16, ALLWARN+22, ALLWARN+28, ALLWARN+30
>> PSOLGA	ALLWARN+16, ALLWARN+22, ALLWARN+28, ALLWARN+30
PSONKA	ALLWARN+2!
PSONULL	ALLWARN+2!
>> PSOPAR	START+5, NORENW+3
>> PSORY	ALLWARN+14*
>> PSOWARN	ALLWARN+4*, ALLWARN+7, ALLWARN+8
>> RRR	ALLWARN+12*
>> RX	START+5, START+15, NORENW+3, NORENW+12
>> RXN	ALLWARN+11
>> SSNP	ALLWARN+15
>> STATE	START+4, NORENW+2
>> ULN	START+8
>> VAPA(1	START+10, START+11, NORENW+7, NORENW+9
>> VAPA(10	START+14, NORENW+11
>> WARN	START+12, NORENW+11, ALLWARN+4
>> WCNT	ALLWARN+12*
>> WWW	ALLWARN+4, ALLWARN+12
>> X	START+5, START+15, NORENW+3, NORENW+12
>> X1	START+5, START+15, NORENW+3, NORENW+12
>> X2	START+5, START+15, NORENW+3, NORENW+12

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOLBLN1

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: