Routine: ADGFXDS

Information

ADGFXDS ; cmi/flag/maw - Fix Day Surgery Visits ; [ 06/05/2002 1:14 PM ]

Source file <ADGFXDS.m>

Package	Total	Call Graph
IHS Changes To ADT	1	PCCVSIT^BDGDSA
VA Fileman	1	FILE^DICN

Package	Total	Caller Graph
IHS Changes To Scheduling	1	BSDP11PS

Name	Comments	DBIA/ICR reference
DSIC	;***> create incomplete chart entry
MAIN	;-- this is the main routine driver
LOOP	;-- loop the day surgery file and call visit creator
EOJ	;-- end of job

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"CANNOT ADD TO INCOMPLETE CHART FILE;" Line Location: DSIC+19
Function Call: WRITE	Prompt: "BEING UPDATED BY SOMEONE ELSE" Line Location: DSIC+20

Name	Line Occurrences (* Changed, ! Killed)
^ADGDS - [#9009012]	LOOP+6, DSIC+6, DSIC+7, DSIC+10
^ADGDS("AA"	LOOP+2, LOOP+3, LOOP+4
^BDGIC - [#9009016.1]	DSIC+7
^BDGIC("B"	DSIC+4
^BDGIC(0	DSIC+17, DSIC+21

Name	Field # of Occurrence
ADGDA	LOOP+1~, LOOP+2*, LOOP+3, LOOP+4
ADGIEN	LOOP+1~, LOOP+3*, LOOP+4, LOOP+6
ADGOEN	LOOP+1~, LOOP+4*, LOOP+5
APCDALVR	DSIC+22!
>> BDGDSVST	DSIC+9
>> BDGICREC	DSIC+3, DSIC+4, DSIC+7, DSIC+8
BDGIREC	EOJ+1!
DD	DSIC+21!
DFN	LOOP+6*, DSIC+4, DSIC+6, DSIC+7, DSIC+10, DSIC+14, EOJ+1!
DGDFN1	LOOP+5*, DSIC+6, DSIC+7, DSIC+10, EOJ+1!
>> DGQUIET	DSIC+18
>> DGX	DSIC+11
DIC	DSIC+12!, DSIC+14*
DIC("DR"	DSIC+16*
DIC(0	DSIC+14*
>> DLAYGO	DSIC+14*
DO	DSIC+21!
SERV	DSIC+10*, DSIC+16, EOJ+1!
SRDATE	DSIC+11*, DSIC+16, EOJ+1!
U	LOOP+6, DSIC+7, DSIC+10
VST	DSIC+9*, DSIC+16, EOJ+1!
>> X	DSIC+3, DSIC+4, DSIC+7, DSIC+14*