Routine: PSXLBLNR

Package	Total	Caller Graph
CMOP	1	PSXLBL2

Entry Points

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?54,COPAY," Days Supply: ",$G(TAYS),?102,"Mfg ________ Lot# ________" Line Location: TOP+0
Function Call: WRITE	Prompt: !,SADD1,?102,"Tech__________RPh__________" Line Location: TOP+1
Function Call: WRITE	Prompt: !,SCITY,", ",SSTATE," ",SZIP Line Location: TOP+2
Function Call: WRITE	Prompt: ?54,@IOBARON,X2,@IOBAROFF,*13 Line Location: TOP+3
Function Call: WRITE	Prompt: !!!! Line Location: TOP+4
Function Call: WRITE	Prompt: "FORWARDING SERVICE REQUESTED" Line Location: TOP+5
Function Call: WRITE	Prompt: ?54,"* NO REFILLS REMAINING ** PHYSICIAN USE ONLY *" Line Location: NOREFILL+1
Function Call: WRITE	Prompt: ! Line Location: NOREFILL+2
Function Call: WRITE	Prompt: ?21,"CERTIFIED MAIL" Line Location: NOREFILL+2
Function Call: WRITE	Prompt: ?54,"Signature:____________________________SC NSC" Line Location: NOREFILL+3
Function Call: WRITE	Prompt: !,?54,"Print Name:_________________________________" Line Location: NOREFILL+4
Function Call: WRITE	Prompt: !,"*CRITICAL MEDICAL SHIPMENT*" Line Location: NOREFILL+5
Function Call: WRITE	Prompt: ?54,"DEA or VA#_________________Date_____________" Line Location: NOREFILL+6
Function Call: WRITE	Prompt: ?102,"Routing: MAIL" Line Location: NOREFILL+7
Function Call: WRITE	Prompt: !,?54,"Refills: 0 1 2 3 4 5 7 8 9 10 11 " Line Location: NOREFILL+8
Function Call: WRITE	Prompt: ?99,"",?102,"Days Supply: ",$G(TAYS)," Cap: ",$S($G(CAP):"NON-SAFETY*",1:"SAFETY") Line Location: NOREFILL+9
Function Call: WRITE	Prompt: !,?54,"*** To be filled in VA Pharmacies only ***" Line Location: NOREFILL+10
Function Call: WRITE	Prompt: ?102,"Isd: ",$G(ISD)," Exp: ",$G(EXPDT) Line Location: NOREFILL+11
Function Call: WRITE	Prompt: !,PNAME,?54,$G(PADD1),?102,"Last fill: ",$G(REFLST) Line Location: NOREFILL+12
Function Call: WRITE	Prompt: !,$G(PADD1),?54,$G(PADD2),?102,"Pat. St ",PSTAT," Clinic: ",CLINIC Line Location: NOREFILL+13
Function Call: WRITE	Prompt: !,$G(PADD3),?54,$G(PADD4) Line Location: NOREFILL+15
Function Call: WRITE	Prompt: !,$G(PADD4),?54,"*Indicate address change on back of this form" Line Location: NOREFILL+16
Function Call: WRITE	Prompt: !,?54,"[ ] Permanent [ ] Temporary until ",$S($G(PTEMP)]"":PTEMP,1:"__/__/__") Line Location: NOREFILL+17
Function Call: WRITE	Prompt: ?102,@IOBARON,X2,@IOBAROFF,*13 Line Location: BAR+0
Function Call: WRITE	Prompt: ?54,"* This prescription CANNOT be renewed *" Line Location: NORENEW+0
Function Call: WRITE	Prompt: !?21,$S($G(REGMAIL)=1:"CERTIFIED MAIL",1:""),?54,"",?96,"" Line Location: NORENEW+1
Function Call: WRITE	Prompt: !,?54,"* A NEW PRESCRIPTION IS REQUIRED *" Line Location: NORENEW+2
Function Call: WRITE	Prompt: !,"*CRITICAL MEDICAL SHIPMENT",?54,"",?96,"*" Line Location: NORENEW+3
Function Call: WRITE	Prompt: !,?54,"*** Please contact your physician *****" Line Location: NORENEW+4
Function Call: WRITE	Prompt: !,?54,$G(PADD1),?102,"Routing: MAIL" Line Location: NORENEW+5
Function Call: WRITE	Prompt: !,?54,PADD2,?102,"Days Supply: ",$G(TAYS)," Cap: ",$S($G(CAP):"NON-SFTY",1:"SAFETY") Line Location: NORENEW+6
Function Call: WRITE	Prompt: !,PNAME,?54,$G(PADD3),?102,"Isd: ",$G(ISD)," Exp: ",$G(EXPDT) Line Location: NORENEW+7
Function Call: WRITE	Prompt: !,PADD1,?54,$G(PADD4),?102,"Last Fill: ",$G(REFLST) Line Location: NORENEW+8
Function Call: WRITE	Prompt: !,PADD2,?54,"*Indicate address change on back of this form",?102,"Pat. Stat ",PSTAT," Clinic: ",CLINIC Line Location: NORENEW+9
Function Call: WRITE	Prompt: !,$G(PADD3),?54,"[ ] Permanent [ ] Temporary until ",$S($G(PTEMP)]"":PTEMP,1:"__/__/__") Line Location: NORENEW+10
Function Call: WRITE	Prompt: !,$G(PADD4) Line Location: NORENEW+12
Function Call: WRITE	Prompt: ?102,@IOBARON,X2,@IOBAROFF,*13 Line Location: NORENEW+13

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BAR	TOP+3, BAR, NORENEW+13
>> CAP	NOREFILL+9, NORENEW+6
>> CLINIC	NOREFILL+13, NORENEW+9
>> COPAY	TOP
>> EXPDT	NOREFILL+11, NORENEW+7
>> IOBAROFF	TOP+3, BAR, NORENEW+13
>> IOBARON	TOP+3, BAR, NORENEW+13
>> ISD	NOREFILL+11, NORENEW+7
>> PADD1	NOREFILL+12, NOREFILL+13, NORENEW+5, NORENEW+8
>> PADD2	NOREFILL+13, NOREFILL+14, NORENEW+6, NORENEW+9
>> PADD3	NOREFILL+14, NOREFILL+15, NORENEW+7, NORENEW+10
>> PADD4	NOREFILL+15, NOREFILL+16, NORENEW+8, NORENEW+12
>> PNAME	NOREFILL+12, NORENEW+7
>> PSTAT	NOREFILL+13, NORENEW+9
>> PSXBAR	TOP+3, BAR, NORENEW+13
>> PTEMP	NOREFILL+17, NORENEW+10
>> REFLST	NOREFILL+12, NORENEW+8
>> REGMAIL	NOREFILL+2, NORENEW+1
>> RENW	TOP+6
>> SADD1	TOP+1
>> SCITY	TOP+2
>> SSTATE	TOP+2
>> SZIP	TOP+2
>> TAYS	TOP, NOREFILL+9, NORENEW+6
>> WARN	NOREFILL+14, NORENEW+11
>> X	TOP+3, BAR, NORENEW+13*
>> X1	TOP+3, BAR, NORENEW+13*
>> X2	TOP+3, BAR, NORENEW+13*

Customize PDF page

Package: CMOP

Routine: PSXLBLNR

Information

Source Information

Caller Graph

Caller Graph Total: 1

Entry Points

Interaction Calls

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
NOREFILL	;NO REFILLS REMAIN PRINT SECTION
TOP
BAR
NORENEW