Routine: APSPLBL

Package	Total	Call Graph
Outpatient Pharmacy	6	DEVBAR^PSOBMST ENLBL^PSOBSET ^PSOLLLI ^PSORFL AREC^PSOSUSRP (AREC,AREC1)^PSOSUTL
IHS Changes To Pharmacy	5	AUTOREL^APSPAUTO ($$FILLDT,$$RXSTAT)^APSPFUNC (,$$USRINI)^APSPLBL1 ^APSPLBL2 ENL^APSQSIGN
VA Fileman	3	C^%DTC ^DIE $$GET1^DIQ
CMOP	1	AREC^PSXSRP
Kernel	1	($$DT,$$NOW)^XLFDT
Registration	1	(6,PID)^VADPT

Package	Total	Caller Graph
Outpatient Pharmacy	6	PSOBMST PSOLLL1 PSOLLLI PSORXL PSOSULBL PSOSUSRP
IHS Changes To Pharmacy	1	APSPAUTO

Entry Points

Name	Comments	DBIA/ICR reference
LBLINI(RXN,TYPE,IEN)	;
APSPM	; get Mfg data 12.23.94
CUT	;CUT DOWN THE PHYSICIAN VARIABLE IF NEED BE--PHYS IHS/OKCAO/POC 3/16/2001
DQ1	;EP
STA
EN01
C	;EP
STATCHK(RX)	; EP
ZCP
PARM	;EP
DQ
REF
LBL	;USE IHS LABEL RTN
ORIG	;S TECH=$P($G(^VA(200,+$P(^PSRX(RX,0),"^",16),0)),"^",2)

External References

Name	Field # of Occurrence
C^%DTC	STA+18
AUTOREL^APSPAUTO	DQ1+19
$$FILLDT^APSPFUNC	C+12
$$RXSTAT^APSPFUNC	C+12
^APSPLBL1	LBL+1
$$USRINI^APSPLBL1	LBLINI+10
^APSPLBL2	STA+15
ENL^APSQSIGN	DQ1+11, DQ1+16
^DIE	C+19
$$GET1^DIQ	DQ1+6, C+5, ORIG+8, REF+6
DEVBAR^PSOBMST	DQ
ENLBL^PSOBSET	DQ1+13
^PSOLLLI	DQ1+7, C+5
^PSORFL	STA+15
AREC^PSOSUSRP	C+26
AREC^PSOSUTL	C+25
AREC1^PSOSUTL	C+24
AREC^PSXSRP	C+28
6^VADPT	ORIG+3, REF+3
PID^VADPT	ORIG+3, REF+3
$$DT^XLFDT	C+12
$$NOW^XLFDT	DQ1+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DQ1+17
Routine Call	DIE Line Location: C+19

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSRX - [#52]	GET1^DIQ
^PS(52.5 - [#52.5]	Classic Fileman Calls
^APSPCTRL - [#9009033]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	EN01
^%ZIS(2 - [#3.2]	DQ1+6, C+5, EN01
^%ZOSF("RM"	C+9
^%ZOSF("TEST"	C+28
^APSPCTRL - [#9009033]	PARM+2, PARM+3
^DD("SITE"	C+29
^DIC(5 - [#5]	STA
^DIC(7 - [#7]	ORIG+6, REF+4
^PS(52.5 - [#52.5]	C+15, C+17, C+18
^PS(53 - [#53]	STA+16
^PS(55 - [#55]	STA+12
^PS(59 - [#59]	DQ+1, C+9, C+46, C+47, EN01+1
^PSDRUG - [#50]	STA+1, STA+3
^PSRX - [#52]	C+9, C+10, C+34, C+46, APSPM+5, APSPM+7, APSPM+8, APSPM+12, ZCP+2, ORIG+1 , ORIG+2, ORIG+5, ORIG+8, ORIG+10, STA+1, STA+4, STA+7, STA+8, STA+9, STA+10 , STA+15*, STA+17, STA+18, STA+21, REF, REF+3, REF+4, REF+6, REF+8, REF+9 , REF+10, STATCHK+4, LBLINI+3, LBLINI+7, LBLINI+8, LBLINI+9
^SC - [#44]	STA+17
^VA(200 - [#200]	ORIG+2, ORIG+5, REF+3, REF+4

Label References

Name	Line Occurrences
$$LBLINI	ORIG+1, REF+2
$$STATCHK	C+11
C	DQ1+13, EN01+3
CUT	ORIG+9, REF+7
LBL	STA+21
PARM	DQ1+13, EN01+2
REF	ZCP+2, ZCP+3
STA	ZCP+2, ZCP+3
ZCP	APSPM+1

Naked Globals

Name	Field # of Occurrence
^("BAR"	EN01
^("STA"	STA+21
^("TN"	STA+1
^(0	C+46, ORIG+2, STA, STA+1, STA+8, STA+12, STA+17, REF+3, REF+8, REF+9 , PARM+2, PARM+3
^(1	C+29, C+46
^(2	ORIG+10, STA+18, REF+10
^(3	ORIG+8, REF+6
^(660	STA+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %APSITE	PARM+2*
>> A	C+18*, C+19
ADDR	DQ1+24!, C+2~
>> APS("DISP UNI	TS" , STA+3*
>> APSP("LOT"	APSPM+4, APSPM+9, APSPM+13*, APSPM+14
>> APSP("MANF"	APSPM+4, APSPM+9, APSPM+13*, APSPM+14
>> APSP("MANXDT"	APSPM+4, APSPM+9, APSPM+13*, APSPM+14
>> APSPCOS	ORIG+8, REF+6
>> APSPCOSE	ORIG+8, REF+6
>> APSPDY	APSPM+14*
>> APSPLOT	APSPM+14*
>> APSPLTYP	APSPM+1
>> APSPMF	APSPM+14*
>> APSPZ	ZCP+4, ORIG+5, ORIG+6, REF+4*
>> APSPZZ	ZCP+4, ORIG+6, ORIG+7, REF+4*, REF+5, CUT+15, CUT+20
APSPZZN	DQ1+4!
>> APSQSGLB	DQ1+11, DQ1+16
COPAYVAR	DQ1+21!
COPIES	DQ1+22!, C+1~, ZCP, ZCP+1
DA	C+16~, C+17*, C+18
>> DATE	STA+15*
>> DAYS	ORIG+10, REF+8
DEA	DQ1+22!, C+2~, STA+1*, STA+16
>> DFN	C+34*, STA+12
DIE	C+16~, C+19*
DR	C+16~, C+19*
DRUG	C+2~, STA+1*
DT	STA+18
EXDT	DQ1+22!, C+1~
EXTRA	CUT+3~, CUT+4, CUT+6, CUT+7, CUT+11, CUT+17
EXTRA1	CUT+7~, CUT+8, CUT+10, CUT+17~*, CUT+19
EXTRA2	CUT+11~*, CUT+13
FDT	DQ1+22!, C+2~, C+46, STA+7, STA+8*, STA+15
>> I	STA+8*
IEN	LBLINI~, LBLINI+3
>> II	STA+15*
INRX	DQ1+23!, C+2~
IO	C+9
IOST(0	DQ1+6, C+5
ISD	DQ1+22!, C+1~, C+34*
>> J	C+34, EN01
LEN	CUT+14~*
>> LINE	C+34*
>> LOT	ORIG+10, REF+8
MFG	DQ1+21!, C+1~, ORIG+10, REF+9, REF+10*
>> MW	STA+8, STA+9, STA+12
NAME1	CUT+10~, CUT+15, CUT+19~, CUT+20
NAME2	CUT+13~, CUT+14, CUT+15
NODE	APSPM+6~, APSPM+8, APSPM+9, APSPM+11~, APSPM+12, APSPM+13, LBLINI+1~, LBLINI+3*, LBLINI+4, LBLINI+5
NURSE	DQ1+21!
ODD	CUT+4~*, CUT+8
PATST	DQ1+23!, C+2~, STA+16, STA+18
PDA	DQ1+23!, C+2~
PHYS	DQ1+21!, C+1~, ORIG+2, ORIG+5, ORIG+7, ORIG+8, REF+3, REF+4, REF+5, REF+6 , CUT+2, CUT+3, CUT+5, CUT+9, CUT+10, CUT+12, CUT+13, CUT+15, CUT+18, CUT+19 , CUT+20
PHYS1	CUT+9~, CUT+10, CUT+13, CUT+18~, CUT+19
PHYS2	CUT+12~*, CUT+13
>> PI	DQ1+13, EN01+3
PNM	DQ1+23!, C+2~
>> PPL	DQ1+11, DQ1+13, DQ1+16, EN01+3
>> PRTFL	STA+16*
PS	DQ1+23!, C+2~, C+46, C+47, STA
PS1	DQ1+23!, C+2~, C+46*
PS2	DQ1+23!, C+2~, C+47*
>> PSCAP	STA+12*
>> PSCLN	STA+17*
>> PSI	STA+10*, STA+11
>> PSJ	STA+10*
PSL	DQ1+23!
>> PSMP	STA+10*
>> PSMP(	STA+10*, STA+11!
PSMPEX	DQ1+23!, C+2~, STA+9, STA+10
PSNP	DQ1+23!
>> PSOBAR0	DQ+1, EN01+1
>> PSOBAR1	DQ+1, EN01+1
>> PSOBARS	DQ+1, EN01+1
>> PSOBLALL	C+14
>> PSOBLRX	C+14*
PSODBQ	DQ1+24!, C+15, STA+21
>> PSOEXREP	C+36
PSOINST	DQ1+22!, C+1~, C+29*
PSOIOS	DQ, DQ1+21!, EN01
>> PSOPULL	C+16, C+24
PSORX	DQ1+21!
>> PSOSITE	DQ+1, DQ1+6, DQ1+11, DQ1+16, C+5, C+9, C+46, EN01+1, PARM+2, PARM+3
>> PSOSITE7	C+46*
>> PSOSUREP	C+26, C+36
>> PSOSUSPR	C+25
>> PSOSXQ	C+16, C+20
>> PSOSYS	C+47
PSOTIME	DQ1+2~, DQ1+3*
PSOTRAIL	DQ1+24!
>> PSXREP	C+27
>> PSZB	PARM+3*
>> PSZE	PARM+3*
>> PSZK	PARM+3*
>> PSZL	PARM+3*
>> PSZRM	STA+15*
>> PSZTAB	PARM+3*
>> PSZW	PARM+3*
QTY	DQ1+23!, C+2~, ORIG+1, REF+3
REF	APSPM+6~, APSPM+7, APSPM+8, STA+15, STA+16, STA+18*
REPRINT	C+13~, C+16!, C+35, C+36
>> RR	C+15*
RX	DQ1+13, C+9, C+10, C+11, C+12, C+14, C+15, C+16, C+17, C+20 , C+24, C+34, C+35, C+36, C+45, C+46, APSPM+5, APSPM+7, APSPM+8, APSPM+12 , ZCP, ZCP+2, ORIG+1, ORIG+2, ORIG+5, ORIG+8, ORIG+10, STA+1, STA+4, STA+7 , STA+8, STA+9, STA+10, STA+15, STA+17, STA+18, STA+21, REF, REF+2, REF+3 , REF+4, REF+6, REF+8, REF+9, REF+10, EN01+3, STATCHK~, STATCHK+2*, STATCHK+3, STATCHK+4
>> RXF	C+34, STA+8, STA+15
RXN	DQ1+22!, C+1~, C+34*, LBLINI~, LBLINI+3, LBLINI+7, LBLINI+8, LBLINI+9
RXP	DQ1+21!, C+1~, C+11, C+16!, C+35, C+45, ZCP+2, ZCP+3, STA+4, STA+7* , STA+8, STA+15
RXPI	DQ1+21!, C+1~, STA+4*
>> RXPR(	C+35, C+45
RXRP	DQ1+25!
RXRP(	C+35, C+36*, ZCP
>> RXRS(	C+16, C+20!, C+24
RXSTA	C+8~, C+10*, C+23
RXY	DQ1+22!, C+1~, C+10, C+11!, C+34, ZCP, STA+1, STA+3, STA+7, STA+8 , STA+15, STA+16, STA+17, STA+18
SIDE	DQ1+22!, C+1~
>> SIG	C+34*
SSNP	DQ1+23!, C+2~
STA	STATCHK+1~, STATCHK+4*, STATCHK+5
STATE	DQ1+22!, C+1~, STA*
TECH	DQ1+21!, C+1~, ORIG+1, REF+2, LBLINI+1~, LBLINI+4, LBLINI+5, LBLINI+7, LBLINI+8, LBLINI+9* , LBLINI+10
TYPE	LBLINI~, LBLINI+2, LBLINI+3
U	C+10, APSPM+9, APSPM+13, STA+3, PARM+3, LBLINI+4, LBLINI+5, LBLINI+7, LBLINI+8, LBLINI+9
VADT	DQ1+22!, C+1~
>> VRPH	STA+17, STA+18
WARN	DQ1+22!, C+2~, STA+1*
X	C+9, C+28~, STA+12, STA+18, PARM+3
X1	C+3~, STA+18*
X2	C+3~, STA+18*
XTYPE	DQ1+23!, C+2~, ZCP+2, ZCP+3, REF, REF+2, REF+3, REF+8, REF+9
XXX	DQ1+21!, C+1~, REF*, REF+2, REF+3, REF+8, REF+9
>> ZTREQ	DQ1+24*
>> ZY	C+34*

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPLBL

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: