Routine: ASDCR

Package	Total	Call Graph
VA Fileman	6	^%DT C^%DTC ^DIC DT^DICRW ^DIE ^DIR
Scheduling	5	ROUT^SDDIV OKTD^SDI START^SDROUT END^SDROUT1 (DIV,DTS)^SDUTL
Kernel	3	(,HOME)^%ZIS ^%ZTLOAD $$FMTE^XLFDT
IHS Changes To Scheduling	1	$$DIV^ASDUT
IHS VA Utilities	1	$$VAL^XBDIQ1

Package

Total

Call Graph

VA Fileman

^%DT C^%DTC ^DIC DT^DICRW ^DIE ^DIR

Scheduling

ROUT^SDDIV OKTD^SDI START^SDROUT END^SDROUT1 (DIV,DTS)^SDUTL

Kernel

(,HOME)^%ZIS ^%ZTLOAD $$FMTE^XLFDT

IHS Changes To Scheduling

$$DIV^ASDUT

IHS VA Utilities

$$VAL^XBDIQ1

Package	Total	Caller Graph
Scheduling	1	SD IHS CHART

Package

Total

Caller Graph

Scheduling

SD IHS CHART

Entry Points

Name	Comments	DBIA/ICR reference
END
PT	; -- get patient
CRPTR()	; -- returns default chart request printer
DAYSN()	; -- returns default # of days
A1	;
PRT	; -- prints out routing slips for patients selected
ENR	; -- enroll patient in clinic
OTHER
QUE	;
DAYSP()	; -- return default day in readable format
DAYS()	; -- returns default first date for charts to be ready
TIME	; -- ask user for date/time to be ready
GOT	;W !,"REQUESTED FOR "_$E(SDPR_"000",9,12)_" ON "

External References

Name	Field # of Occurrence
^%DT	ENR+3
C^%DTC	DAYS+3
^%ZIS	PRT+11
HOME^%ZIS	QUE+4
^%ZTLOAD	QUE+4
$$DIV^ASDUT	PRT+1, DAYS+2, DAYSN+1, CRPTR+1
^DIC	A1+5, PT+1
DT^DICRW	ASDCR+4
^DIE	ENR+6
^DIR	OTHER+5, TIME+4
ROUT^SDDIV	PRT+6
OKTD^SDI	PT+18
START^SDROUT	PRT+12
END^SDROUT1	END+3
DIV^SDUTL	PRT+6
DTS^SDUTL	A1+9, A1+13
$$VAL^XBDIQ1	PRT+1, DAYS+2, DAYSN+1, CRPTR+1
$$FMTE^XLFDT	DAYSP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: A1+2
Function Call: WRITE	Prompt: !,*7,"Clinic is inactive ",$S(SDRE:"from ",1:"as of ") Line Location: A1+12
Function Call: WRITE	Prompt: Y,$S(SDRE:" to "_SDRE1,1:"") Line Location: A1+13
Function Call: WRITE	Prompt: !! Line Location: PT+1
Function Call: WRITE	Prompt: 7,!,"* PATIENT HAS DIED! **" Line Location: PT+5
Function Call: WRITE	Prompt: !!,"TO BYPASS PRINTING OF ROUTING SLIPS NOW - TYPE IN ^" Line Location: PRT+5
Routine Call	%ZIS Line Location: QUE+4
Routine Call	DIE Line Location: ENR+6
Routine Call	DIC Line Location: A1+5 PT+1
Routine Call	DIR Line Location: OTHER+5 TIME+4
Routine Call	%ZIS Line Location: PRT+11

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PT+4, PT+7, PT+8, PT+10, PT+14
^SC - [#44]	A1+6, A1+8, A1+9, PT+12, PT+13, PT+16, ENR+1, ENR+2, GOT+1, PRT+7

Name	Line Occurrences
$$CRPTR	PRT+11
$$DAYS	TIME+1, DAYSP+1
$$DAYSN	TIME+3
$$DAYSP	TIME+1
A1	A1+11, OTHER+5, TIME+4, PT+2
END	A1+5, PRT+1, PRT+6, PRT+12, QUE+4
ENR	PT+16
GOT	PT+14
PRT	PT+2
PT	PT+18
QUE	PRT+12

Name	Field # of Occurrence
^(	PT+4, PT+10, PT+12
^("I"	A1+9
^("SL"	A1+6
^(0	PT+8, PT+10, GOT+1*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	QUE+2*, END!
%DT	ENR+3*, END!
>> %ZIS	PRT+11*
>> %ZIS("B"	PRT+11*
APCHSTYP	PRT+4*, END!
>> APDATE	PRT+9*
ASDCR	A1+1*, PRT+2!, END+2!
D	PT+14*, END!
DA	ENR+4*, END!
DFN	PT+1*, PT+4, PT+10, PT+13, PT+14, ENR+4, END!
DIC	A1+2, A1+5!, PT+1!, ENR+4*, END!
DIC("A"	A1+3*
DIC("S"	A1+4*
DIC(0	A1+2, PT+1
DIE	ENR+4*, END!
DIR	OTHER+5!, TIME+1!, TIME+4!
DIR("?"	OTHER+2, OTHER+3, OTHER+4, TIME+1, TIME+2, TIME+3
DIR("A"	OTHER+1, TIME+4
DIR("B"	TIME+1*
DIR(0	OTHER, TIME+1
>> DIRUT	OTHER+5, TIME+4
>> DIV	PRT+4*
DP	ENR+4*, END!
DR	ENR+4*, ENR+6!, END!
DR(2	ENR+5*
DR(3	ENR+6*
DT	A1+11, PT+7, PRT+10, DAYS+2
GDATE	END!
>> HEY	ENR+3*, ENR+5, ENR+6
I	PT+1!, PT+12*, PT+13, END!
I(	PT+8*, PT+11, PT+12, PT+13, GOT+1
IO("Q"	PRT+12, QUE+1!
J	PT+1!, PT+10*, END!
J(	PT+10*, PT+16
>> ORDER	PRT+7*
>> POP	PRT+12
PRDATE	PRT+10*, END!
SC	A1+6*, A1+8, A1+9, PT+16, ENR+1, PRT+7, END+1!
SD	END+1!
SDAIU	PRT+4*, END+1!
SDAPTYP	END+1!
SDATE	PRT+8*, PRT+9, END!
SDD	END+1!
SDHS	PRT+4*, END+1!
SDIN	A1+6!, A1+9*, A1+11, A1+13
SDINP	END+1!
SDIQ	PRT+4*, END+1!
SDMADE	A1+1!, PT+2, GOT+1*, END+2!
SDNFF	PRT+4*, END+1!
SDPL	END+1!
SDPP	PRT+4*, END+1!
SDPR	PT+7, PT+8, PT+11, PT+12, PT+13, GOT+1, END+1!
SDRE	A1+6!, A1+9*, A1+11, A1+12, A1+13
SDRE1	A1+6!, A1+9*, A1+13
>> SDREP	PRT+4*
SDRT	END+1!
SDSC	END+2!
SDSL	A1+6*, END+2!
>> SDSP	PRT+3*
>> SDSTART	PRT+7*
SDTTM	END+2!
SDX	PRT+3*, END+2!
SDY	ENR+3*, ENR+4, ENR+5, END+2!
SDZPL	OTHER+5*, PRT+2!, END+2!
SDZY	TIME+6*, PT+18, END!
SDZYY	TIME+6*, PRT+8, END+2!
U	A1+5, A1+9, PT+4, PT+8, PT+10, PT+14, PT+16, ENR+1, ENR+2, PRT+7
>> VAUTC	PRT+7*
>> VAUTC(	PRT+7*
X	A1+5, ENR+3*, END+2!, DAYS+1~, DAYS+4
X1	DAYS+1~, DAYS+2*
X2	DAYS+1~, DAYS+2, DAYS+3
Y	A1+5, A1+6, A1+9, A1+13, OTHER+5, TIME+4, TIME+6, PT+1, PT+2, PT+7 , PT+8, PT+18, ENR+1, ENR+2*, ENR+3, PRT+6, END+2!
Y1	END+2!
YY	A1+6*, END+2!
>> ZTDESC	QUE+3*
>> ZTRTN	QUE+3*
ZTSAVE	QUE+1!
ZTSAVE(	QUE+2*
ZTSK	QUE+4!

Customize PDF page

Package: IHS Changes To Scheduling

Routine: ASDCR

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: