Routine: APSPLBL2

Package	Total	Call Graph
Outpatient Pharmacy	5	INV^PSOCPE ^PSOLBL3 ^PSOLBLN2 ^PSOLBLS PSOSTALK^PSOTALK1
VA Fileman	3	EN^DIQ1 ^DIWP ^DIWW
Adverse Reaction Tracking	1	^GMRADPT
Registration	1	PID^VADPT

Package	Total	Caller Graph
IHS Changes To Pharmacy	1	APSPLBL

Entry Points

External References

Name	Field # of Occurrence
EN^DIQ1	SIGOLD+2
^DIWP	WARN+1
^DIWW	WARN+1
^GMRADPT	GMRA+1
INV^PSOCPE	TRAIL+1
^PSOLBL3	APSPLBL2+9
^PSOLBLN2	TRAIL
^PSOLBLS	TRAIL+1
PSOSTALK^PSOTALK1	REP+1
PID^VADPT	DPT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?54,PNM,!,?54,"Rx# ",RXN,!,?54,DRUG,!,?54,"DRUG WARNING:" Line Location: WARN+0
Function Call: WRITE	Prompt: "VAMC ",$P(PS,"^",7),", ",STATE," ",$G(PSOHZIP),?102,"(REPRINT)" Line Location: REP+5
Function Call: WRITE	Prompt: "(PARTIAL)" Condition for execution: $G(RXP) Line Location: REP+5
Function Call: WRITE	Prompt: !,$P(PS2,"^",2)," ",$P(PS,"^",3),"-",$P(PS,"^",4)," ",TECH Line Location: REP+5
Function Call: WRITE	Prompt: !,"Rx# ",RXN," ",DATE," Fill ",RXF+1," of ",1+$P(RXY,"^",9),!,PNM," ",$G(SSNPN) Line Location: REP+6
Function Call: WRITE	Prompt: !,$G(SGY(DR)) Line Location: REP+7
Function Call: WRITE	Prompt: ! Line Location: REP+8
Function Call: WRITE	Prompt: ! Line Location: REP+9
Function Call: WRITE	Prompt: !! Line Location: REP+10
Function Call: WRITE	Prompt: ! Line Location: REP+11
Function Call: WRITE	Prompt: ! Line Location: REP+12
Function Call: WRITE	Prompt: $G(PHYS),!,"Qty: "_$G(QTY)," ",$G(PSDU),$S($G(PSDU)="":" ",1:" "),$S($G(NURSE):"Mfg______Exp______",1:"") Line Location: REP+12
Function Call: WRITE	Prompt: !,DRUG Line Location: REP+14
Function Call: WRITE	Prompt: !!,$P(PS,"^",2),!,$P(PS,"^",7),", ",STATE," ",$G(PSOHZIP),!!!!,"FORWARDING SERVICE REQUESTED",! Line Location: REP+15
Function Call: WRITE	Prompt: ?21,"CERTIFIED MAIL",! Line Location: REP+16
Function Call: WRITE	Prompt: ! Line Location: REP+17
Function Call: WRITE	Prompt: !,$S($G(PS55)=2:"*DO NOT MAIL",1:"CRITICAL MEDICAL SHIPMENT*") Line Location: REP+18
Function Call: WRITE	Prompt: !!!,PNM,!,$S($D(PSMP(1)):PSMP(1),1:VAPA(1)),!,$S($D(PSMP(2)):PSMP(2),$D(PSMP(1)):"",1:$G(ADDR(2))),!,$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))) Line Location: REP+19
Function Call: WRITE	Prompt: @IOF Line Location: REP+20
Function Call: WRITE	Prompt: !,"Use the label above to mail the computer",!,"copies back to us. Apply enough postage",!,"to your envelope to ensure delivery." Line Location: MUL+3
Function Call: WRITE	Prompt: !,"Use the label above to mail the computer",?54,"(",PSLN,")",!,"copies back to us. Apply enough postage",?60,"PATIENT'S SIGNATURE "_$E(DT,4,5),"/",$E(DT,6,7),"/",($E(DT,1,3)+1700),!,"to your envelope to ensure delivery." Line Location: MULT+0
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	REP+3
^DPT - [#2]	DPT
^PS(51 - [#51]	SIG+1, SIG+2, SIG+3
^PS(54 - [#54]	WARN, WARN+1
^PS(55 - [#55]	SIG+2, SIGOLD+6
^PS(59 - [#59]	TRAIL, TRAIL+1
^PSDRUG - [#50]	REP+12
^PSRX - [#52]	APSPLBL2+9, REP+3, REP+12
^TMP($J	PRINT+1, PRINT+2, PRINT+4!, TRAIL+1, TRAIL+3!
^UTILITY($J	WARN+1!

Label References

Name	Line Occurrences
SIG	APSPLBL2+10
SIGOLD	APSPLBL2+9
SIGPH	SIGOLD+4

Naked Globals

Name	Field # of Occurrence
^(	WARN+1, PRINT+1, PRINT+2
^(0	DPT

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	SIG+3*
>> %APSITE	SIGOLD+4, SIGPH+1
AA	WARN+1*, WARN+2!
ADDR	TRAIL+2!
ADDR(2	REP+19
ADDR(3	REP+19
ADDR(4	REP+19
>> AL	GMRA+1*
ALCNT	PRINT+4!
ALG	PRINT+4!
CCC	PRINT*, PRINT+1, PRINT+2, PRINT+4!
COPAYVAR	KILL!, TRAIL+2!
COPIES	KILL!, TRAIL+2!
>> DA	SIGOLD+1*
DATE	REP+3*, REP+6, KILL!
DAYS	KILL!
DEA	TRAIL+2!
>> DFN	SIG+2, SIGOLD+1, SIGOLD+6, DPT, TRAIL+1
DIC	SIGOLD+1!*, SIGOLD+2!
DIFF	KILL!
DIQ	SIGOLD+1!*, SIGOLD+2!
DIQ(0	SIGOLD+1*
>> DIWF	WARN*
>> DIWL	WARN*
>> DIWR	WARN*
>> DOB	DPT*
DR	SIGOLD+1!, SIGOLD+2!, REP+7, REP+9, REP+10, REP+11, KILL!
DRUG	WARN, REP+13, REP+14, KILL!
DT	MULT
E	QUIT!, DPT+2!
EEE	PRINT+4!
EXDT	TRAIL+2!
EXPDT	KILL!
F	QUIT!, DPT+2!
FDT	TRAIL+2!
FFF	PRINT+4!
GG	REP+8*, KILL!
GMRA	GMRA+1*, PRINT+4!
GMRAL	PRINT+4!
GMRAL(	GMRA+1
HH	REP+9*, KILL!
>> I	GMRA+1*
I1	GMRA+1*, KILL!
INRX	TRAIL+2!
INT	KILL!
INT(	GMRA+1*
INT(1	GMRA, GMRA+1
INT(2	GMRA, GMRA+1
INT(3	GMRA, GMRA+1
IOF	WARN, WARN+2, REP+20, PRINT+4
ISD	KILL!, TRAIL+2!
>> J	SIG+5, SIGPH+1, MUL+1, MUL+2
JJJ	PRINT+4!
KK	REP+9*, KILL!
>> L	DPT*
LFLDT	KILL!
LINE	KILL!
LMI	KILL!
LOT	KILL!
MFG	TRAIL+2!
MW	REP+16, KILL!
NHC	SIGOLD!, SIGOLD+1!
NHC(2	SIGOLD+6
NLWS	KILL!
NURSE	REP+12, KILL!, TRAIL+2!
OSGY	KILL+1!
OSIG	KILL+1!
OT	SIG!, SIG+2*!
>> P	SIG*, SIG+3
PARST	TRAIL+2!
PATST	KILL!
PDA	TRAIL+2!
PHYS	REP+12, KILL!, TRAIL+2!
PNM	DPT+1*, WARN, REP+6, REP+19, TRAIL+2!
PRTFL	KILL!
PS	REP+4, REP+5, REP+15, TRAIL+2!
PS1	TRAIL+2!
PS2	REP+5, TRAIL+2!
PS55	REP+18, KILL!
PS55X	KILL!
PSCAP	KILL!
PSCLN	KILL!
PSDFNFLG	TRAIL+3!
PSDU	REP+12*, REP+15!
PSL	TRAIL+2!
>> PSLN	MULT
PSMP	KILL!
PSMP(1	REP+19
PSMP(2	REP+19
PSMP(3	REP+19
PSMP(4	REP+19
PSNP	TRAIL+2!
PSOASTOP	PRINT, PRINT+2, PRINT+3, PRINT+4!
>> PSOBARS	MUL+1
>> PSOBLALL	WARN, WARN+2, TRAIL+4
PSOCPN	TRAIL+3, TRAIL+4!
PSODBQ	TRAIL+2!
PSOHZIP	REP+4*, REP+5, REP+15, KILL!
PSOINST	TRAIL+2!
PSOIOS	TRAIL+2!
PSOLAPPL	TRAIL+2!, TRAIL+3!
PSOLASTF	TRAIL+2!
PSOLBLCP	TRAIL+4!
PSOLBLDR	KILL+1!
PSOLBLPS	KILL+1!
PSOLG	PRINT+4!
PSOLGA	PRINT+4!
PSONKA	PRINT+4!
PSONOPR	PRINT, PRINT+3, PRINT+4!
PSONULL	PRINT+4!
>> PSOPAR	SIG+5, SIGOLD, DPT+2, REP+3, MUL+1
PSOPROV	KILL!
PSORX	TRAIL+2!
PSORY	PRINT+4!
>> PSOSITE	TRAIL, TRAIL+1
PSOSTLK	REP+1!*, REP+13, REP+14
>> PSOTALK	REP+13
>> PSOTREP	REP+13
PSOWARN	WARN*, WARN+1, WARN+2!, PRINT+4!
PSOWSTOP	PRINT, PRINT+1, PRINT+3, PRINT+4!
PSZIP	REP+4*, KILL!
QTY	REP+12, TRAIL+2!
REPRINT	KILL!
RFLMSG	KILL!
RR	TRAIL+2!
RRR	PRINT+4!
>> RX	APSPLBL2+9, REP+3, REP+12
>> RXF	REP+6
RXN	WARN, REP+6, TRAIL+2!
RXP	REP+5, TRAIL+2!
RXPI	TRAIL+2!
RXY	REP+3, REP+6, KILL!, TRAIL+2!
S	QUIT!, DPT+2!
SGC	SIG+5, SIGOLD+6, KILL!
>> SGCPH	SIGPH+1*
SGY	APSPLBL2+9!, SIG, SIG+4, SIG+5, KILL!
SGY(	SIG+5, SIGOLD+6, REP+7
SIDE	KILL!, TRAIL+2!
SIG	QUIT!, SIG, SIG+3, DPT+2!, SIGPH+1
>> SIGPH	SIGPH+1*
>> SIGPH(	SIGPH+1*
>> SS	DPT+1*
SSNP	DPT+1*, TRAIL+2!
>> SSNPN	REP+6
STATE	REP+5, REP+15, KILL!, TRAIL+2!
TECH	REP+3*, REP+5, KILL!, TRAIL+2!
U	SIGOLD+4, GMRA+1, SIGPH+1
ULN	KILL!
>> VA("BID"	DPT+1
>> VA("PID"	DPT+1
VADT	TRAIL+2!
>> VAPA(1	REP+19
VRPH	REP+3, KILL!
WARN	WARN, TRAIL+2!
WCNT	PRINT+4!
WW	WARN*, WARN+2!
WWW	PRINT+4!
X	SIG, SIG+1, SIG+2, SIG+3, SIG+4, SIG+5, DPT, DPT+1, SIGPH+1, WARN+1* , KILL!
X1	KILL!
X2	KILL!
XTYPE	TRAIL+2!
XXX	TRAIL+2!
Y	SIG+3, DPT+1, REP+3*, KILL!
>> Z	SIG+5, SIGPH+1
ZTKDRUG	REP+1!, REP+2*, REP+13
ZZ	KILL!

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPLBL2

Information

Source Information

Call Graph

Call Graph Total: 10

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

Name	Comments	DBIA/ICR reference
QUIT
DPT
REP	;LEFT SIDE ONLY REPRINT FOR NEW LABEL STOCK
GMRA
KILL
WARN
TRAIL
SIGPH	;S SIGPH=SIG,X="",SGCPH=1 F J=1:1:100 S Z=$P(SIGPH," ",J) S:Z="" SIGPH(SGCPH)=X S:$L(X)+$L(Z)'<34 SIGPH(SGCPH)=X,SGCPH=SGCPH+1,X="" S X=X_Z_" "
SIG
MUL	;
PRINT
SIGOLD
MULT