Routine: APCHSM

Package

Total

Call Graph

^DIC ^DIR

(EN,EOJ)^APCHS

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"* * * B A T C H H E A L T H S U M M A R Y P R O G R A M * * *",!! Line Location: APCHSM+5
Function Call: WRITE	Prompt: ! Line Location: SELTYP+4
Function Call: WRITE	Prompt: !,APCHMJ,$S(APCHMJ=1:" entry",1:" entries")," added." Line Location: SELPT+14
Function Call: WRITE	Prompt: ! Line Location: SELPT+17
Function Call: WRITE	Prompt: !,$C(7),"All selections cancelled!" Line Location: SELPT+18
Function Call: WRITE	Prompt: !,?2,X Line Location: LIST+1
Routine Call	DIC Line Location: SELTYP+4 SELPT+11 SELPT+15
Routine Call	DIR Line Location: SELPT+6 LIST+3
Routine Call	%ZIS Line Location: SELDEV+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	APCHSM+6, SELDEV+2
^APCHSCTL - [#9001015]	SELTYP+2
^AUPNPAT - [#9000001]	LIST+1
^DIBT(	SELPT+13
^DISV(	SELTYP+2
^DISV($I	APCHSM+6, SELDEV+2

Name	Field # of Occurrence
^("^APCHSCTL("	SELTYP+2
^(0	SELTYP+2

Name	Field # of Occurrence
%ZIS	SELDEV+1!*
APCHMJ	SELPT+13, SELPT+14, END!, LIST+1, LIST+2, LIST+3
APCHMK	LIST+1*, LIST+5!
APCHSALL	END+1!
APCHSM	END!
APCHSMF	SELPT+20, SELPT+21, END!, SELDEV+1*, SELDEV+2
APCHSMI	SELTYP+4, SELPT+13, SELPT+16, SUMLOOP+1, END!
APCHSMK	END!
APCHSMQ	SUMLOOP+1*, END!
APCHSPAT	SELTYP+4!, SELPT+13, SELPT+16, SELPT+18!, SUMLOOP+1, END!, LIST+1
APCHSPAT(	SELPT+13, SELPT+16, SUMLOOP+1, LIST+1
APCHSPAT(""	SELPT+19
APCHSTAT	END+1!
APCHSTYP	SELTYP+4*, END!
AUPNDAYS	END+3!
AUPNDOB	END+3!
AUPNDOD	END+3!
AUPNPAT	END+3!
AUPNSEX	END+3!
DIC	SELTYP!, SELPT+11!, SELPT+15!*, END+4!
DIC("A"	SELTYP*
DIC("B"	SELTYP+3*
DIC("S"	SELPT+11*
DIC(0	SELTYP, SELPT+11, SELPT+15*
DIR	SELPT+6!, LIST+3!, LIST+4!
DIR("?"	SELPT+3, SELPT+4, SELPT+5*
DIR("??"	SELPT+5*
DIR("A"	SELPT+2*
DIR(0	SELPT+2, LIST+3
DIRUT	LIST+3!
DTOUT	LIST+3!
DUOUT	LIST+3!
DUZ	SELTYP+2
G	END+1!, QUE+1*
IO	SELPT+20*, SELDEV+2
IO("Q"	SELDEV+1
IO(0	SELPT+20
ION	QUE+2
IOP	SELDEV+1!
IOSL	LIST+1, LIST+2
>> POP	SELDEV+1
U	SELTYP+2, SELPT+1, SELPT+7, SELPT+18, LIST+1
X	SELTYP+1, SELTYP+2, SELTYP+3, SELPT+1, SELPT+7, SELPT+8, SELPT+9, SELPT+11, SELPT+18, END+1! , LIST+1, LIST+4
Y	SELTYP+2, SELTYP+4, SELPT+12, SELPT+13, SELPT+16, END+1!, LIST+3
ZTDESC	QUE+2*, QUE+4!
ZTDTH	QUE+2*, QUE+4!
ZTIO	QUE+2*, QUE+4!
ZTRTN	QUE+2*, QUE+4!
ZTSAVE	QUE+1!, QUE+4!
ZTSAVE(	QUE+1*
ZTSK	SELPT+22!, QUE+4!

Information