Routine: APSPRT1

Package	Total	Call Graph
Kernel	1	^%ZIS
VA Fileman	1	^%DT

Package	Total	Caller Graph
IHS Changes To Pharmacy	1	APSPRT

Entry Points

Name	Comments	DBIA/ICR reference
EN	;EP
EXPDATE	;
SIG1
START	;
SIG2	;
INITX	; Exit point for INIT subroutine

Name	Field # of Occurrence
^%DT	EXPDATE+1
^%ZIS	START+11

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You must first enter the IHS site parameters dealing with",!,"prepack label sizes and widths . Thank you" Line Location: START+3
Function Call: WRITE	Prompt: !,"You must first enter a Prepack Label Width under the IHS site parameters. Thank you" Line Location: START+4
Routine Call	%ZIS Line Location: START+11

Name	Line Occurrences (* Changed, ! Killed)
^APSPCTRL - [#9009033]	START+2
^APSPP(31 - [#9009031]	START+16, START+17

Name	Field # of Occurrence
^(0	START+2

Name	Field # of Occurrence
>> %APSITE	START+2*, START+3, START+4, START+5, START+6, START+7, START+8, START+9, START+10
%ZIS	START+11*, START+12!
%ZIS("A"	START+11*
>> APSP	EN+2*
>> APSP(	START+5, START+6
>> APSP("DRUG"	SIG1+3
>> APSP("EXPDATE"	EXPDATE+3*
>> APSP("LASTP"	START+16*
>> APSP("LASTU"	START+17*
>> APSP("LINE1"	START+9*
>> APSP("LINE2"	START+10*
>> APSP("QTY"	SIG1+3, SIG2+1, SIG2+2
>> APSP("QTYFLG"	SIG2+1, SIG2+2
>> APSP("SIG"	EN+2, SIG1+4!
>> APSP(22	EN+3, SIG1, SIG1+1, SIG1+3, SIG2+1
>> APSP(29	START+7*
>> APSP(31	START+8*
>> APSPDR1	EN+3, SIG1+1, SIG1+2
APSPE	EN+3, SIG1, SIG1+1, SIG1+2, SIG1+4!
APSPF	SIG1*, SIG1+4!
>> APSPGC	SIG1+2, SIG2+1, SIG2+2
>> APSPGY	EN+2*, SIG1, SIG1+1, SIG1+2
>> APSPGY(	SIG1+1, SIG1+2, SIG2+1, SIG2+2
>> APSPRT("IO"	START+13*
>> APSPRT("QUIT"	START+3, START+4, START+14*
APSPS	EN+3, SIG1, SIG1+1, SIG1+4!
APSPY	EN+3, SIG1, SIG1+1, SIG1+4!
>> I	START+5, START+6
ION	START+13
>> POP	START+13, START+14
>> PSOSITE	START+2
U	START+3, START+4, START+5, START+6, START+7, START+8, START+9, START+10, START+16, START+17
>> X	EXPDATE+1, EN+2, SIG1+1*
>> Y	EXPDATE+3