Routine: ADGDSEP

Information

ADGDSEP ; IHS/ADC/PDW/ENM - EDIT PAST DAY SURGERIES ; [ 03/25/1999 11:48 AM ]

Source file <ADGDSEP.m>

Package	Total	Call Graph
IHS Changes To ADT	3	DS1^ADGCRB0 EN^ADGPI KILL^ADGUTIL
VA Fileman	3	^DIC ^DIE ^DIR

Package	Total	Caller Graph
Registration	1	DG IHS DS EDIT PAST

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: NAME+0
Function Call: WRITE	Prompt: !?5,*7,"Edit active day surgeries in the DAY SURGERY ENTER/EDIT option",! Line Location: DSDATE+3
Function Call: WRITE	Prompt: !,*7,"SOMEONE ELSE IS UPDATING THIS DAY SURGERY PATIENT; TRY AGAIN LATER" Line Location: DSEDIT+3
Routine Call	DIE Line Location: DSEDIT+4
Routine Call	DIC Line Location: NAME+2 DSDATE+1
Routine Call	DIR Line Location: NAME+5 CRB+2

FileNo	Call Tags
^ADGDS - [#9009012]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ADGDS - [#9009012]	DSDATE+2, DSEDIT+2, DSEDIT+4
^DPT - [#2]	NAME+5

Name	Line Occurrences
DSEDIT	DSDATE+2
END	NAME+2
NAME	NAME+2, NAME+5, DSDATE+1, DSDATE+3, DSEDIT+2, CRB+4

Name	Field # of Occurrence
^(	NAME+5
^(2	DSDATE+2

Name	Field # of Occurrence
>> DA	NAME+4, DSDATE+1, DSEDIT+1*
>> DA(1	DSDATE+1*
DFN	NAME!, NAME+4*, NAME+5, DSDATE, DSDATE+1, DSDATE+2, DSEDIT+1, DSEDIT+2, DSEDIT+4, CRB+3
>> DGDFN1	DSDATE+1*, DSDATE+2
>> DGDFNX	CRB+3*
DIC	NAME, DSDATE!, DSDATE+1!
DIC("A"	NAME+1*, NAME+2!, DSDATE+1!
DIC(0	NAME, DSDATE
>> DIDEL	DSEDIT+1*
>> DIE	DSEDIT+1*
>> DIE("NO^"	DSEDIT+4*!
DIR	NAME+5!, CRB!
DIR("?"	CRB+1*
DIR("A"	NAME+5, CRB
DIR("B"	NAME+5, CRB+2
DIR(0	NAME+5, CRB
>> DR	DSEDIT+1*
U	NAME+2, DSDATE+2
>> X	NAME+2
>> Y	NAME+2, NAME+4, NAME+5, DSDATE+1, CRB+3