Routine: APSPLBL1

Package	Total	Call Graph
IHS Changes To Pharmacy	1	$$NDCVAL^APSPFUNC
IHS Patient	1	$$HRN^AUPNPAT
Kernel	1	$$NOW^XLFDT
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Changes To Pharmacy	1	APSPLBL
Outpatient Pharmacy	1	PSOLLLI

Entry Points

External References

Name	Field # of Occurrence
$$NDCVAL^APSPFUNC	NEXT+5
$$HRN^AUPNPAT	START+4, SUMMARY+14
$$GET1^DIQ	START+4, SUMMARY+14, USRINI+2
$$NOW^XLFDT	ZZE+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: START+0
Function Call: WRITE	Prompt: !,?PSZTAB,$E(PNM,1,PSZW-8),?(PSZW+PSZTAB)-6 Line Location: START+4
Function Call: WRITE	Prompt: $$HRN^AUPNPAT(DFN,$$GET1^DIQ(59,PSOSITE,100,"I")) Line Location: START+4
Function Call: WRITE	Prompt: ! Line Location: C1+1
Function Call: WRITE	Prompt: !,?PSZTAB,"** CONTINUED **" Line Location: C1+3
Function Call: WRITE	Prompt: ! Line Location: C1+4
Function Call: WRITE	Prompt: ! Line Location: C1+5
Function Call: WRITE	Prompt: " ",PSZQ Line Location: NEXT+0
Function Call: WRITE	Prompt: !,?PSZTAB,DRUG Line Location: NEXT+1
Function Call: WRITE	Prompt: " ",PSZQ Line Location: NEXT+1
Function Call: WRITE	Prompt: !,?PSZTAB,"Rx ",RXN,?$X+1,$S(VRPH:$$USRINI(VRPH),1:TECH),?(PSZTAB+16),PSZQ Line Location: NEXT+2
Function Call: WRITE	Prompt: !,?PSZTAB,$E($G(PHYS),1,17),?(PSZTAB+18),+$E(FDT,4,5),"-",$E(FDT,6,7),"-",$E(FDT,2,3) Line Location: NEXT+8
Function Call: WRITE	Prompt: !,?PSZTAB,APSPMF_" "_APSPLOT_" Exp "_APSPDY Line Location: NEXT+9
Function Call: WRITE	Prompt: ! Line Location: NEXT+10
Function Call: WRITE	Prompt: !,?PSZTAB,X Line Location: SIG1+0

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^PS(59 - [#59]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APSPCTRL - [#9009033]	SUM, EXTINF+7, EXTINF+8
^PSRX - [#52]	NEXT+4, ZZE+3, ZZE+4, ZZE+5, ZZE+8, ZZE+9*

Label References

Name	Line Occurrences
$$EXTINF	Z+5
$$USRINI	NEXT+2, NEXT+6
C1	C1+6
CON	SIG+1
NEXT	SIG+2, C1+2
SIG1	SIG+1, C1
START	SUM+2
SUM	Z+6
SUMMARY	SUM

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	END!
ADDR	END!
>> APS("DISP UNI	TS" , NEXT+1, END+3!
>> APSHRN	SUMMARY+14*, SUMMARY+24
>> APSPDY	NEXT+9
>> APSPLOT	NEXT+9
>> APSPMAN	START+2, NEXT+9
>> APSPMF	NEXT+9
APSPREIS	ZZE+8, END+3!
APSPZNDC	NEXT+5*, NEXT+6, NEXT+7!
APSPZREF	NEXT+4*, NEXT+5, NEXT+7!
>> APSPZZN	SUMMARY+19*, SUMMARY+24
>> APSQDNDC	NEXT+2
>> ARRAY(	SUMMARY+24*
COPIES	Z+5, Z+6, START, SUM, SUM+2, END!
DEA	END!
>> DFN	START+4, SUMMARY+14
DOB	END+1!
DR	SIG+1, CON, C1*, C1+1, C1+2, C1+5, C1+6, END!, SIG1
DR1	END!
DRUG	NEXT+1, END!, END+1!, SUMMARY+11, SUMMARY+13
DRX	END!
DUZ	ZZE+8
END	SUMMARY+10~, SUMMARY+11, SUMMARY+12, SUMMARY+13
EXT	EXTINF+1~, EXTINF+2*
>> F	CON, C1+2, C1+3
FDA	ZZE+2~, ZZE+4*
FDT	NEXT+8, END!, SUMMARY+24
FIND	SUMMARY+10~, SUMMARY+11*
I	START, C1, C1+1, C1+2, C1+4, C1+5, NEXT+10, ZZE+2~, ZZE+3
I1	END+1!
IEN	USRINI~, USRINI+1, USRINI+2
II	C1+1*, END+1!
INT	END+1!
IR	ZZE+2~, ZZE+4, ZZE+5, ZZE+8
ISD	END+1!
>> L	Z*, Z+2, Z+3
>> LEXDT	START+1
LIM	END+1!
LINE	END+1!
LMI	END+1!
LP	SUMMARY+10~, SUMMARY+21*
MAIL	END+2!
MW	END+2!
>> N	START, SUMMARY+19
PATST	END+2!
>> PCOMX	ZZE+8
PHYS	NEXT+8, END+2!
PNM	START+4, END+2!, SUMMARY+24
PRTFL	END+2!
PS	END+1!
PS1	END+1!
PS2	END+1!
>> PSOPAR	EXTINF+4, EXTINF+5
>> PSOSITE	START+4, SUM, SUMMARY+14, EXTINF+7, EXTINF+8
>> PSZB	START, C1+4
PSZDRUG	SUMMARY+10~, SUMMARY+13*, SUMMARY+24
>> PSZE	C1+4, NEXT+10
>> PSZL	START+3, C1, C1+1
PSZLA	START+3*, SIG+1, C1+1, C1+2, C1+5, END+1!
PSZM	C1+5*, END+1!
>> PSZQ	NEXT+1*, NEXT+2, NEXT+6
>> PSZRM	Z, Z+2, Z+3
>> PSZTAB	START+4, C1+3, C1+5, NEXT+1, NEXT+2, NEXT+6, NEXT+8, NEXT+9, SIG1
>> PSZW	Z+2, Z+3, START+4, NEXT+1, SUMMARY+24
PSZZL	START+1, START+2, START+3, END+1!
>> QTY	NEXT+1, SUMMARY+24
REPRINT	Z+5, ZZE+8, EXTINF~, EXTINF+5
RET	EXTINF+1~, EXTINF+2, EXTINF+7, EXTERR
RFL	END!
RFLMSG	END!
RX	Z+5, NEXT+4, NEXT+5, ZZE+3, ZZE+4, ZZE+5, ZZE+8, ZZE+9, EXTINF~
RXF	ZZE+2~, ZZE+3*, ZZE+8
>> RXN	NEXT+2, NEXT+6, SUMMARY+24
>> RXP	ZZE+8
>> RXPI	ZZE+8
RXY	END!
RXZ	END!
RYY	END!
S	END+2!
SGC	Z+1, Z+2, Z+3, SIG+1, C1+5, C1+6, END+3!, SUMMARY+21
SGY	EP+3, END!
SGY(	Z+2, Z+3, C1, C1+1, C1+2, SIG1
SGYY	EP+3, END+3!, SUMMARY+20, SUMMARY+21*, SUMMARY+24
SGYY(	SUMMARY+21
SIDE	SUM+2*, END+2!
SL	END+2!
SS	END+2!
SSNP	END+2!
ST	END+2!
ST1	END+2!
STATE	END+2!
>> TECH	NEXT+2, NEXT+6
U	SUM, EXTINF+4, EXTINF+5
>> VRPH	NEXT+2, NEXT+6
X	SIG1*, EXTINF+6~, EXTINF+7

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPLBL1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
END
EXTINF(RX,REPRINT)	;EP
SUM
ZZE	;IHS/DSD/ENM NEXT 6 LINES ADDED FOR LBL NODE 12/1/95
USRINI(IEN)	;EP
NEXT	;W !,?PSZTAB,DRUG S PSZQ="#"_$P(RXY,"^",7)_" "_APS("DISP UNITS") I $X+$L(PSZQ)+2<PSZW W " ",PSZQ S PSZQ=""
SIG1
START
SUMMARY	;IHS/BAO/JCM;FEB 15,1988
SIG	;
EXTERR
C1
Z
EP	; This IHS routine is a rewrite of and not the same as the ; VA PSOLBL1 rtn.
CON