Routine: IBDFC3

Information

IBDFC3 ;ALB/CJM - ENCOUNTER FORM - replace original form with converted form ;MAR 3, 1995

Source file <IBDFC3.m>

Package	Total	Call Graph
Automated Information Collection System	2	IDXFORMS^IBDFC1 DELETE^IBDFU2C
VA Fileman	2	^DIE ^DIR

Name	Comments	DBIA/ICR reference
LOOP	;loops through the clinic setups and divisions setups, making the substitutions
REPLACE	;replaces the original form with the converted form

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"The original form will be replaced with the converted form in all of the",!,"clinics and divisions where it is used." Line Location: REPLACE+4
Routine Call	DIE Line Location: REPLACE+25 LOOP+7
Routine Call	DIR Line Location: REPLACE+6 REPLACE+20

FileNo	Call Tags
^IBE(357 - [#357]	Classic Fileman Calls
^SD(409.95 - [#409.95]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^IBD(359 - [#359]	REPLACE+11, REPLACE+15*
^IBE(357 - [#357]	REPLACE+24
^SD(409.95 - [#409.95]	LOOP+2, LOOP+3

Name	Line Occurrences
LOOP	REPLACE+14

Name	Field # of Occurrence
DA	REPLACE+25!, LOOP+7!, LOOP+8!
DIE	REPLACE+25!, LOOP+7!, LOOP+8!
DIR	REPLACE+5!, REPLACE+6!, REPLACE+20!
DIR("A"	REPLACE+5, REPLACE+19
DIR("B"	REPLACE+5, REPLACE+19
DIR(0	REPLACE+5, REPLACE+19
>> DIRUT	REPLACE+7, REPLACE+21
DR	REPLACE+25!, LOOP+4!, LOOP+6*, LOOP+8!
FOUND	LOOP+1~, LOOP+5, LOOP+6, LOOP+7
>> IBAPI("SELECT"	REPLACE+8
IBCNVRT	REPLACE+1~, REPLACE+10, REPLACE+11, REPLACE+15
IBFORM	REPLACE+1~, REPLACE+9, REPLACE+24, REPLACE+25, LOOP+6
>> NAME	REPLACE+24*, REPLACE+25
NEWNAME	REPLACE+1~
NODE	REPLACE+1~, REPLACE+11, REPLACE+12, LOOP+1~, LOOP+3, LOOP+6
OLDFORM	REPLACE+1~, REPLACE+12*, REPLACE+13, REPLACE+22, LOOP+6
OLDNAME	REPLACE+1~, REPLACE+12*, REPLACE+24
PIECE	LOOP+1~, LOOP+6*
SETUP	LOOP+1~, LOOP+2*, LOOP+3, LOOP+7
>> VALMBCK	REPLACE+2*
Y	REPLACE+7, REPLACE+21, REPLACE+28!