Routine: PSXLBL2

Package	Total	Call Graph
CMOP	1	TOP^PSXLBLNR
VA Fileman	1	(,NOW)^%DTC

Package	Total	Caller Graph
CMOP	1	PSXLBL1

Entry Points

External References

Name	Field # of Occurrence
^%DTC	L10+2
NOW^%DTC	L2+2, UPDATE+1
TOP^PSXLBLNR	L10+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?3,"VAMC ",SCITY,", ",SSTATE," ",SZIP Line Location: L1+0
Function Call: WRITE	Prompt: ?54,"VAMC ",SCITY,", ",SSTATE," ",SZIP Line Location: L1+1
Function Call: WRITE	Prompt: ?102,"(REPRINT)" Line Location: L1+2
Function Call: WRITE	Prompt: !,?3,SITE," ",STEL," ",CLKRPH Line Location: L2+0
Function Call: WRITE	Prompt: ?54,SITE," ",STEL," ",CLKRPH Line Location: L2+1
Function Call: WRITE	Prompt: ?102,SITE," ",CLKRPH," ",RNOW Line Location: L2+3
Function Call: WRITE	Prompt: !,RX," ",FDT," Fill ",RFTXT Line Location: L3+0
Function Call: WRITE	Prompt: ?54,RX," ",FDT," Fill ",RFTXT Line Location: L3+1
Function Call: WRITE	Prompt: ?102,RX," ",FDT," Fill ",RFTXT Line Location: L3+2
Function Call: WRITE	Prompt: !,PNAME," ",$P(SSN,"-",2,3),?54,PNAME," ",$P(SSN,"-",2,3),?102,PNAME," ",$P(SSN,"-",2,3) Line Location: L4+0
Function Call: WRITE	Prompt: ! Line Location: L4+3
Function Call: WRITE	Prompt: $G(SIG(I)),?54,$G(SIG(I)),?102,$G(SIG(I)) Line Location: L4+4
Function Call: WRITE	Prompt: @IOF Line Location: L4+5
Function Call: WRITE	Prompt: ! Line Location: L4+8
Function Call: WRITE	Prompt: !,$G(PHYS),?54,$G(PHYS),?102,$G(PHYS) Line Location: L8+0
Function Call: WRITE	Prompt: !,"Qty: "_$G(QTY)_" "_$G(VADU)_" "_$G(NURSE) Line Location: L8+1
Function Call: WRITE	Prompt: ?54,"Qty: "_$G(QTY)_" "_$G(VADU)_" "_$G(NURSE) Line Location: L8+2
Function Call: WRITE	Prompt: ?102,"Qty: "_$G(QTY)_" "_$G(VADU)_" "_$G(NURSE) Line Location: L8+3
Function Call: WRITE	Prompt: !,TRUG,?54,TRUG,?102,TRUG Line Location: L10+0
Function Call: WRITE	Prompt: !,?54,REFREM," Refills remain prior to ",$G(EXPDT),?102,"Mfg ________ Lot# ________" Line Location: L10+3
Function Call: WRITE	Prompt: !,?54,"Last fill prior to ",$G(EXPDT),?102,"Mfg ________ Lot# ________" Line Location: L11+0
Function Call: WRITE	Prompt: !,SADD1,?54,COPAY," Days Supply: ",$G(TAYS),?102,"Tech__________RPh_________" Line Location: L12+0
Function Call: WRITE	Prompt: !,SCITY,", ",SSTATE," ",SZIP Line Location: L12+1
Function Call: WRITE	Prompt: ?54,@IOBARON,X2,@IOBAROFF,*13 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: !,?54,$G(PADD1) Line Location: L12+6
Function Call: WRITE	Prompt: !,"*CRITICAL MEDICAL SHIPMENT*",?54,$G(PADD2),?102,"Routing: "_$S($G(REGMAIL)=1:"CERTIFIED",1:"REGULAR")_" MAIL" Line Location: L12+7
Function Call: WRITE	Prompt: !,?54,$G(PADD3),?102,"Days supply: ",$G(TAYS)," Cap: ",$S($G(CAP):"NON-SFTY",1:"SAFETY") Line Location: L12+8
Function Call: WRITE	Prompt: !,?54,$G(PADD4),?102,"Isd: ",$G(ISD)," Exp: ",$G(EXPDT) Line Location: L12+9
Function Call: WRITE	Prompt: !,PNAME,?54,"*Indicate address change on back of this form",?102,"Last Fill: ",$G(REFLST) Line Location: L12+10
Function Call: WRITE	Prompt: !,PADD1,?54,"[ ] Permanent",?102,"Pat. Stat ",PSTAT," Clinic: ",CLINIC Line Location: L12+11
Function Call: WRITE	Prompt: !,$G(PADD2),?54,"[ ] Temporary until ",$S($G(PTEMP)]"":PTEMP,1:"__/__/__") Line Location: L12+12
Function Call: WRITE	Prompt: !,$G(PADD3) Line Location: L12+14
Function Call: WRITE	Prompt: !,$G(PADD4),?54,"Signature__________________________________" Line Location: L12+15
Function Call: WRITE	Prompt: ?102,@IOBARON,X2,@IOBAROFF,*13 Line Location: L12+16
Function Call: WRITE	Prompt: @IOF Line Location: L13+0
Function Call: WRITE	Prompt: @IOF Line Location: L13+2
Function Call: WRITE	Prompt: !,?54,W3 Line Location: L13+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	L2+2
^PS(54 - [#54]	L13+8, L13+9, L13+10
^PSX(552.3	UPDATE+3, UPDATE+4, ADD, ADD+1, ADD+2, AD1, AD1+1, AD1+2, AD1+3, AD1+4 , AD1+5

Label References

Name	Line Occurrences
AD1	AD1, AD1+1
L11	L10+2
L12	L10+3
L13	L10+1

Naked Globals

Name	Field # of Occurrence
^(	UPDATE+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	L2+2!, UPDATE+4, AD1+3, AD1+6!
%I	AD1+6!
>> B	UPDATE+4, AD1+3
>> BAR	L12+2, L12+16, AD1+3, AD1+4
>> BATREF	UPDATE+4, AD1+3
>> CAP	L12+8
>> CLINIC	L12+11
>> CLKRPH	L2, L2+1, L2+3
CNT	ADD+1, AD1, AD1+1, AD1+2, AD1+3, AD1+4, AD1+5, AD1+6!
CNT4	ADD+2, AD1, AD1+2, AD1+6!
>> COPAY	L12
DT	L10+2
DTIME	ADD
DUZ	AD1+3
>> EXPDT	L10+3, L11, L12+9
>> EXPDT1	L10+2
>> FDT	L3, L3+1, L3+2
I	PSXLBL2+2~, L4+4*, L4+5, L4+6
>> IOBAROFF	L12+2, L12+16
>> IOBARON	L12+2, L12+16
IOF	L4+5, L13, L13+2
>> ISD	L12+9
>> ISD1	L10+2
NURSE	L8+1, L8+2, L8+3, L8+4!
>> PADD1	L12+6, L12+11
>> PADD2	L12+7, L12+12
>> PADD3	L12+8, L12+14
>> PADD4	L12+9, L12+15
>> PHYS	L8
>> PNAME	L4, L12+10, L13+3
>> PSTAT	L12+11
>> PSXBAR	L12+2, L12+3, L12+16
>> PSXBLR	UPDATE+2
>> PTEMP	L12+12
>> QTY	L8+1, L8+2, L8+3
>> REFLST	L12+10
>> REFREM	L10+1, L10+3
>> REGMAIL	L12+5, L12+7
>> REPRINT	L1+2, UPDATE+2
>> RFTXT	L3, L3+1, L3+2
>> RNOW	L2+2*, L2+3
>> RX	L3, L3+1, L3+2, L13+4, UPDATE+4, AD1+3
>> SADD1	L12
SC	L4+2, L4+4, L4+5, L4+8, L8+4!
>> SCITY	L1, L1+1, L12+1
>> SIG(	L4+4, L4+5, L4+6
>> SIGN	L4+4
>> SITE	L2, L2+1, L2+3
>> SSN	L4
>> SSTATE	L1, L1+1, L12+1
>> STEL	L2, L2+1
>> SZIP	L1, L1+1, L12+1
>> TAYS	L12, L12+8
>> TRUG	L10, L13+5
UX	UPDATE+3*, UPDATE+4, UPDATE+5!, AD1+6!
UXN	UPDATE+3*, UPDATE+4, UPDATE+5!, AD1+6!
UXOUT	UPDATE+3, UPDATE+4*, UPDATE+5!, AD1+6!
VADU	L8+1, L8+2, L8+3, L8+4!
W	L13+7*, L13+11!
W1	L13+7*, L13+8, L13+9, L13+10, L13+11!
W2	L13+9*, L13+10, L13+11!
W3	L13+10*, L13+11!
>> WARN	L12+13, L13+2, L13+7
X	L2+2!, L10+2, L12+2, L12+16, L13+11!, AD1+6!
>> X1	L10+2, L12+2, L12+16*
>> X2	L10+2, L12+2, L12+16*
Y	L2+2!, L10+2
ZP	L4+8*, L8+4!

Customize PDF page

Package: CMOP

Routine: PSXLBL2

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:

Name	Comments	DBIA/ICR reference
UPDATE	; UPDATE 552.3
AD1
L10
L11
L12
L13
L4
L2
L3
L1
ADD
L8