Routine: APSPDSC

Package	Total	Caller Graph
IHS Changes To Pharmacy	1	APSPDSC1

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !?20,"NO PHARMACY INFORMATION" Line Location: PAT+4
Function Call: WRITE	Prompt: !,APS3 Line Location: ASK+9
Function Call: WRITE	Prompt: !?5,"Enter the item #(s) or RX #(s) you wish to print seperated by commas or dash." Line Location: QUES+1
Function Call: WRITE	Prompt: !?5,"For example: 1,2,5 or 1-5 or 123456,33254A,232323B." Line Location: QUES+2
Function Call: WRITE	Prompt: !?5,"Do not enter the same number twice, duplicates are not allowed." Line Location: QUES+3
Function Call: WRITE	Prompt: !!,"Sorry, you cannot queue to your screen or to a slave printer.",! Line Location: DEVICE+4
Routine Call	DIC Line Location: PAT+1
Routine Call	DIR Line Location: ASK+2 COPIES+3
Routine Call	%ZIS Line Location: DEVICE+2

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	INIT+6
^DIC(4 - [#4]	INIT+7
^DPT - [#2]	PAT+6
^PS(55 - [#55]	PAT+4

Name	Field # of Occurrence
^(0	INIT+7, PAT+6

Name	Field # of Occurrence
%ZIS	DEVICE+1*, EOJ+1!
%ZIS("A"	DEVICE+2*
APS	ASK+12*, ASKX+1!, EOJ+1!
APS1	ASK+12*, ASK+13, ASK+15, ASKX+1!, EOJ+1!
APS2	ASK+13*, ASK+15, ASKX+1!, EOJ+1!
APS3	ASK+13, ASK+14, ASK+16, ASKX+1!, EOJ+1!
APSF	DEVICE+7*, EOJ+1!
APSPAGE	INIT+5*, EOJ+1!
APSPDSC	EOJ+1!
APSPDSC("COPIES"	COPIES+5*
APSPDSC("DATE"	INIT+6*
APSPDSC("FAC"	INIT+7*
APSPDSC("FLG"	START, START+3, START+4, START+6, START+7, INIT+1, INIT+3, PAT+2, ASK+3, ASK+5 , DEVICE+3, DEVICE+11, COPIES+4*
APSPDSC("NAME"	PAT+6*
APSPDSC("ST"	START+2*
>> APSPZDT	ASK+2
APSX	ASK+16*, EOJ+1!
DIC	PAT+1*!, EOJ+1!
DIC(0	PAT+1*
DIR	ASK+1!, ASK+2!, COPIESX+1!, EOJ+4!
DIR("?"	ASK+2*
DIR("A"	ASK+2, COPIES+2
DIR("B"	COPIES+2*
DIR(0	ASK+2, COPIES+1
DIRUT	ASK+3, COPIES+4, EOJ+4!
DR	PAT+1!
DRG	EOJ+3!
DRX0	EOJ+3!
DT	INIT+2, INIT+6
DTOUT	ASK+3, COPIES+4, EOJ+4!
>> DUOUT	ASK+3
DUZ(2	INIT+7
IO	DEVICE+4
IO("Q"	DEVICE+4!, DEVICE+5, EOJ+2!
IO(0	DEVICE+4
ION	DEVICE+8
POP	DEVICE+3!, EOJ+2!
PS	EOJ+3!
PSC	EOJ+3!
PSEED	INIT+2*, EOJ+1!
PSFROM	INIT+3*, EOJ+2!
PSISD	EOJ+3!
PSLC	EOJ+3!
PSODFN	INIT+3!, PAT+5*, PAT+6, EOJ+1!
>> PSOOPT	INIT+4*
PSOSD	START+3, INIT+3!*, ASK+7, EOJ+1!, EOJ+2!
PSOSD("ACTIVE"	ASK+14, ASK+16
PSRXS	ASK+4*, ASK+5, ASK+6, ASK+7, ASK+12, EOJ+2!
REFRM	EOJ+3!
RX0	EOJ+3!
RX2	EOJ+3!
RX3	EOJ+3!
ST	EOJ+3!
ST0	EOJ+3!
STAR	EOJ+3!
U	INIT+7, PAT+6, ASK+16
W	EOJ+3!
X	INIT+2!, PAT+2, ASK+1!, EOJ+2!
X1	INIT+2*!, EOJ+2!
X2	INIT+2*!, EOJ+2!
Y	INIT+6*, PAT+3, PAT+4, PAT+5, ASK+4, COPIES+5, EOJ+2!
Z0	EOJ+3!
Z1	EOJ+3!
ZTDESC	DEVICE+9*, EOJ+2!
ZTIO	DEVICE+8*, EOJ+2!
ZTRTN	DEVICE+8*, EOJ+2!
ZTSAVE	DEVICE+6!, EOJ+2!
ZTSAVE(	DEVICE+7*