Routine: ADGDSA

Package	Total	Call Graph
IHS Changes To ADT	4	(APCDEIN,DSCV)^ADGCALLS DS1^ADGCRB0 EN^ADGPI KILL^ADGUTIL
VA Fileman	3	^DIC ^DIE ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
DSASK
VST	;***> create visit in PCC for day surgery
NAME
CRB
END
V9
DSIC	;***> create incomplete chart entry
DSDATE
INC

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: NAME+0
Function Call: WRITE	Prompt: !,*7,"SOMEONE ELSE IS UPDATING THIS DAY SURGERY PATIENT; TRY AGAIN LATER" Line Location: DSASK+1
Function Call: WRITE	Prompt: !?5,*7,"Past day surgeries must be edited in the Edit Past Day Surgery option",! Line Location: DSASK+3
Function Call: WRITE	Prompt: !,*7,"SOMEONE IS UPDATING THIS ENTRY; TRY AGAIN LATER" Line Location: DSASK+7
Function Call: WRITE	Prompt: !!,"Creating entry in DS Incomplete Chart file....",! Line Location: DSIC+1
Function Call: WRITE	Prompt: !,*7,"CANNOT ADD TO DS INCOMPLETE CHART FILE; BEING UPDATED BY SOMEONE ELSE" Line Location: INC+7
Function Call: WRITE	Prompt: !!,"Day Surgery visit being created..." Line Location: VST+8
Function Call: WRITE	Prompt: !!,*7,"VISIT ERROR, Please notify your supervisor!" Line Location: VST+12
Routine Call	DIE Line Location: DSASK+9 INC+9
Routine Call	DIC Line Location: NAME+4 DSASK+2 INC INC+8
Routine Call	DIR Line Location: NAME+10 CRB+2

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

Name	Line Occurrences (* Changed, ! Killed)
^ADGDS - [#9009012]	DSDATE, DSDATE+2, DSDATE+3, DSDATE+4, DSASK, DSASK+2, DSASK+3, DSASK+6, DSASK+9, CRB+6 , INC+3, VST+2
^ADGDSI - [#9009012.5]	INC, INC+1, INC+2*, INC+4, INC+6, INC+8, INC+9
^AUPNVSIT("AA"	VST+5
^DG(43 - [#43]	VST+1
^DPT - [#2]	NAME+7

Name	Line Occurrences
DSASK	DSDATE+3
DSDATE	DSASK+3, DSASK+6
END	NAME+4, VST+1, VST+12
NAME	NAME+4, NAME+7, DSASK, DSASK+2, CRB+6, VST+5, V9
VST	INC+1, INC+6

Name	Field # of Occurrence
ADGDFN	CRB+3*, END!
ADGDFN1	CRB+3*, END!
APCDALVR	V9!
APCDALVR("APCDADD"	VST+7*
APCDALVR("APCDAFLG"	VST+12
APCDALVR("APCDCAT"	VST+10*
APCDALVR("APCDCLN"	VST+11*
APCDALVR("APCDDATE"	VST+2*, VST+4
APCDALVR("APCDLOC"	VST+9*
APCDALVR("APCDPAT"	VST+9*
APCDALVR("APCDTYPE"	VST+10*
>> APCDDUZ2	VST+9
AUPNSEX	VST+11!
>> DA	NAME+6, DSDATE+2, DSASK+8, INC+4, INC+9*
>> DA(1	DSDATE+2, INC+3
DFN	NAME!, NAME+6, NAME+7, DSDATE, DSDATE+1, DSDATE+2, DSDATE+3, DSDATE+4, DSASK, DSASK+2 , DSASK+3, DSASK+6, DSASK+8, DSASK+9, CRB+3, CRB+6, INC, INC+1, INC+2, INC+3 , INC+4, INC+5, INC+6, INC+8, INC+9, VST+2, VST+5, VST+9
>> DGA	DSDATE+2*, DSDATE+3, DSDATE+4
>> DGDFN1	DSASK+2, DSASK+3, CRB+3, CRB+6, INC+3, VST+2
>> DGSRV	INC+3*
>> DGX	VST+4*
>> DGX1	VST+4*, VST+5
DIC	NAME, DSDATE!, DSDATE+1, DSASK+2!, DSIC+1!, INC, INC+5, INC+9!
DIC("A"	NAME+1*, NAME+4!, DSASK+2!
DIC("B"	DSDATE+4*
DIC("S"	NAME+3*
DIC(0	NAME, DSDATE+1, INC, INC+5
>> DIDEL	DSASK+8*
DIE	DSASK+8, INC+9!
DIE("NO^"	DSASK+9*!
DIR	NAME+8!, CRB!
DIR("?"	CRB+1*
DIR("A"	NAME+9, CRB
DIR("B"	NAME+10, CRB+2
DIR(0	NAME+8, CRB
>> DLAYGO	NAME, DSDATE+1, INC, INC+5
>> DR	DSASK+8, INC+9
U	NAME+4, NAME+7, DSDATE+2, DSDATE+4, DSASK+3, CRB+6, INC+3, INC+4, INC+9, VST+1
>> X	NAME+4, INC, INC+3
>> Y	NAME+4, NAME+6, NAME+7, DSASK+2, CRB+3