Routine: ASDNAA

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT ($$REPEAT,$$STRIP)^XLFSTR
IHS Changes To Scheduling	2	$$ACTV^ASDUT PRTOPT^ASDVAR
VA Fileman	1	^DIR

Package	Total	Caller Graph
Scheduling	1	SD IHS APPT AVAIL

Entry Points

Name	Comments	DBIA/ICR reference
CLA(C)	; -- returns clinic abbrev
END	; -- eoj
FIRST()	; -- returns 1 if first under prin clinic
NEWPG	; -- end of page control
CLN(C)	; -- returns clinic's name
DAYS	; -- creates array of date range
HED	; -- heading
START	;EP; called by ztload
PRINT	; -- loop thru ^tmp and print
PC(C)	; -- returns clinic's prin clinic
LOOP	; -- loop thru clinics for appts

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Principal Clinic: ",ASDPC Line Location: PRINT+8
Function Call: WRITE	Prompt: ! Line Location: PRINT+9
Function Call: WRITE	Prompt: !,ASDC,?8,"\|" Line Location: PRINT+10
Function Call: WRITE	Prompt: $J($G(^TMP("ASDNAA",$J,ASDPC,ASDC,ASDT)),3)," \|" Line Location: PRINT+12
Function Call: WRITE	Prompt: @IOF Line Location: HED+2
Function Call: WRITE	Prompt: !!?20,"NUMBER OF APPTS AVAILABLE BY CLINIC AND DATE" Line Location: HED+3
Function Call: WRITE	Prompt: ?70,"Page ",ASDPG Line Location: HED+4
Function Call: WRITE	Prompt: !?(80-$L(X)/2),X,! Line Location: HED+6
Function Call: WRITE	Prompt: !?8,"\| " Line Location: HED+7
Function Call: WRITE	Prompt: $E(X,6,7)," \| " Line Location: HED+7
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HED+8
Routine Call	%ZIS Line Location: ASDNAA+6
Routine Call	DIR Line Location: NEWPG+2
Routine Call	%ZIS Line Location: ASDNAA+3

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	LOOP+3, LOOP+6, LOOP+7, CLA+1, CLN+1, PC+1
^TMP("ASDNAA"	LOOP+2!, LOOP+19*, PRINT+4, PRINT+6, PRINT+12, END+2!, FIRST+1

Name	Field # of Occurrence
^(0	CLA+1

Name	Field # of Occurrence
>> %ZIS	ASDNAA+3*
ASDAYS	END+2!, DAYS+2!
ASDAYS(	PRINT+11, HED+7, DAYS+2, DAYS+3
ASDC	LOOP+1~, LOOP+2, LOOP+3, LOOP+4, LOOP+6, LOOP+7, LOOP+19, PRINT+1~, PRINT+5, PRINT+6 , PRINT+8, PRINT+9, PRINT+10, PRINT+12, FIRST+1
ASDCT	LOOP+1~, LOOP+13, LOOP+15, LOOP+19
ASDEND	LOOP+5*, LOOP+6, END+2!, HED+5, DAYS+3
ASDPC	PRINT+1~, PRINT+3, PRINT+4, PRINT+6, PRINT+8, PRINT+9, PRINT+12, FIRST+1
ASDPG	PRINT+2, END+2!, HED+2, HED+4
ASDQ	PRINT+2, PRINT+4, PRINT+6, PRINT+7, PRINT+11, END+1, END+2!, NEWPG+2, NEWPG+3
ASDS	LOOP+1~, LOOP+7, LOOP+8, LOOP+9, LOOP+10, LOOP+14, LOOP+15, LOOP+16
ASDT	LOOP+1~, LOOP+5, LOOP+6, LOOP+7, LOOP+19, PRINT+1~, PRINT+11*, PRINT+12
C	CLA~, CLA+1, CLN~, CLN+1, PC~, PC+1
DIR	END+2!, NEWPG+2!
DIR(0	NEWPG+2*
DT	LOOP+5, HED+5, DAYS+2
I	LOOP+1~, LOOP+10, LOOP+14, LOOP+15, LOOP+16
IO	START+1
IO("Q"	ASDNAA+4, ASDNAA+6!
IOF	HED+2
IOSL	PRINT+7
IOST	END+1, NEWPG+1, HED+2
J	LOOP+1~, LOOP+15*
>> POP	ASDNAA+3
U	PRINT+4, PRINT+6, PRINT+7, PRINT+11, END+1, NEWPG+3, CLA+1, CLN+1, PC+1
X	LOOP+1~, LOOP+15, NEWPG+2, HED+1~, HED+5, HED+6, HED+7, DAYS+1~, DAYS+2, DAYS+3* , PC+1~*, PC+2
>> ZTDESC	ASDNAA+5*
>> ZTRTN	ASDNAA+5*
ZTSK	ASDNAA+6!