Routine: ASDHS

Package	Total	Call Graph
Scheduling	3	ROUT^SDDIV END^SDROUT1 (DIV,DT)^SDUTL
IHS Changes To Scheduling	2	(GO,GOT)^ASDHS1 $$DIV^ASDUT
Registration	2	ZIS^DGUTQ CLINIC^VAUTOMA
VA Fileman	2	^%DT ^DIR
IHS VA Utilities	1	$$VAL^XBDIQ1

Package

Total

Call Graph

ROUT^SDDIV END^SDROUT1 (DIV,DT)^SDUTL

(GO,GOT)^ASDHS1 $$DIV^ASDUT

ZIS^DGUTQ CLINIC^VAUTOMA

^%DT ^DIR

$$VAL^XBDIQ1

Package	Total	Caller Graph
IHS Changes To Scheduling	1	ASDAIU1
Scheduling	1	SD IHS HS BY CLINIC

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
SORT	; -- ask user for sort option
END	; -- eoj
START	;EP; loop thru clinics and appts to get patients
A5	;
CLIN	; -- sorts by clinic
CHECK2	; -- checks if clinic belongs to prin clinic chosen
CHECK	; -- checks out clinic (active?, in division?, etc.)

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	START+7, START+10, START+11, START+12, CLIN+5, CLIN+6, CLIN+7, CHECK+1, CHECK2+2, CHECK2+3
^UTILITY("SDHS"	START+2!

Name	Field # of Occurrence
^("I"	CHECK+1

Name	Field # of Occurrence
>> %DT	SORT+12*
>> %DT("A"	SORT+12*, SORT+13!
%I	END+2!
ADGDEV	A5+3*, A5+4!
ALL	END+1!
ASDT	START+1~, START+9, START+10, START+11, START+12, CLIN+4, CLIN+5, CLIN+6, CLIN+7
ASDX	START+1~, START+6, START+7, START+10, START+11, START+12, CLIN+3*, CLIN+5, CLIN+6, CLIN+7 , CHECK+1, CHECK2+2
ASDY	START+1~, START+11, START+12, CLIN+6, CLIN+7
>> ASDZ	CLIN+1, CLIN+2, CLIN+3
C	END+2!
>> DGPGM	A5+2*
DIR	SORT+2!, SORT+7!, SORT+15!
DIR("?"	SORT+4, SORT+5, SORT+6, SORT+17, SORT+18, SORT+19, SORT+20, SORT+21, SORT+22*
DIR("A"	SORT+3, SORT+16
DIR("B"	SORT+2, SORT+15
DIR(0	SORT+2, SORT+15
>> DIRUT	SORT+7, SORT+22
DIV	ASDHS+3*, SORT+9, END+1!, CHECK+1
DT	SORT+11
I	END+2!
IO	START+2
IO("Q"	A5+6
ORD	END+1!
ORDER	SORT+1, SORT+7, END+1!, START+4
>> POP	A5+5
RMSEL	END+1!
>> SDATE	SORT+13*, START+9, START+10, CLIN+4, CLIN+5, CHECK+1
SDEF	END+2!
SDIQ	ASDHS+4*, END+1!
SDREP	ASDHS+4*, END+1!
SDSP	END+1!
SDSTART	ASDHS+4*, END+1!
SDX	ASDHS+4*, END+2!
SDZAI	SORT+23*, START+13!, CLIN+8!
SDZEF	SORT+23*, START+13!, CLIN+8!
SDZMP	SORT+23*, START+13!, CLIN+8!
U	START+12, CLIN+7, CHECK+1, CHECK2+2, CHECK2+3
V	END+2!
>> VAR	A5+1*
VAUTC	START+4, START+8, START+13!, CLIN+8!
VAUTC(	CLIN+2, CLIN+3, CHECK2+3
VAUTD	SORT+9*, START+13!, CLIN+8!
>> VAUTNI	SORT+10*
X	END+2!, CHECK2+1~, CHECK2+2*, CHECK2+3
Y	ASDHS+3, SORT+7, SORT+10, SORT+13, SORT+23, END+2!

Information