Routine: IBDF9A3

Package	Total	Call Graph
VA Fileman	2	FILE^DICN (,IX)^DIK

Package	Total	Caller Graph
Automated Information Collection System	3	IBDF9A IBDXI21 IBDXI24

Entry Points

Name	Comments	DBIA/ICR reference
ADDSC(LIST,SC)	;ADD subcolumn=SC for selections on LIST if not already there, else set to blank
GETSC(ARY,LIST)	;makes a list of subcolumns having text
DIK	; -- KILL SUBCOLUMN GLOBAL
SCLOOP	; -- Looping thru the subc setting up array(type of data)=subcolumn
DELSC(LIST,SC)	;delete subcolumn=SC for selections on LIST
OTHER	;
SCDEL	; -- Deletes the new subcolumn if there is already a column for that ; type of data.
MSG1	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The new subcolum "_IBNEWSC_" contains the samedata as the the new subcolumn.",!,"New subcolumn deleted" Line Location: ADDSC+9
Function Call: WRITE	Prompt: !!,"* SUBCOUMN "_IBSC1_" DELETED *",!,"This data already exists in subcolumn "_IBSCRAY(X)_". Go in and edit its subcolumn number.",!! Line Location: DIK+1
Function Call: WRITE	Prompt: !!,"* PREVENTING LOSS OF DATA - THIS FIELD CAN NOT BE EDITED *",!,"You will need to add a new subcolumn to update this information",!! Line Location: MSG1+1

FileNo	Call Tags
^IBE(357.3 - [#357.3]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^IBE(357.2 - [#357.2]	GETSC+2, SCLOOP+2, SCLOOP+3, SCDEL+4*
^IBE(357.3 - [#357.3]	DELSC+3, DELSC+4, DELSC+7!, ADDSC+11, ADDSC+14, ADDSC+17*
^IBE(357.6 - [#357.6]	OTHER+2

Name	Line Occurrences
DIK	SCDEL+7
MSG1	SCDEL+4

Name	Field # of Occurrence
ARY	GETSC~
ARY(	GETSC+2*
>> D0	SCDEL+4, DIK+2
>> D1	SCDEL+4, DIK+2
DA	DELSC+2!, DELSC+5, DELSC+8, DELSC+9!, ADDSC+13!, ADDSC+20!, ADDSC+22!, SCDEL+2~, DIK+2
DA(1	DELSC+5, DELSC+8, ADDSC+21, DIK+2
DIC	ADDSC+20!, ADDSC+21*, ADDSC+22!
DIC(0	ADDSC+21*
DIK	DELSC+2!, DELSC+5, DELSC+8, DELSC+9!, ADDSC+13!, ADDSC+22!, SCDEL+2~, DIK+2
DINUM	ADDSC+20!
DO	ADDSC+20!, ADDSC+22!
>> IBDFFLG	DIK+3*
>> IBLIST	SCLOOP+2, SCLOOP+3
>> IBSC1	SCDEL+4, SCDEL+5, DIK+1
>> IBSC1(	SCDEL+4, SCDEL+5
>> IBSC3	SCLOOP+1, SCLOOP+2
>> IBSC4	SCLOOP+1, SCLOOP+2, SCLOOP+3
>> IBSCRAY(	SCLOOP+3*, SCDEL+7, DIK+1
INPUT	OTHER+1~
INPUT("CODE"	OTHER+3*
INPUT("NARRATIVE"	OTHER+3*
LIST	GETSC~, GETSC+2, DELSC~, DELSC+3, ADDSC~, ADDSC+11
NODE	GETSC+1~, GETSC+2, OTHER+1~, OTHER+2, OTHER+3
SC	GETSC+1~, GETSC+2*, DELSC~, DELSC+3, DELSC+4, DELSC+7, ADDSC~, ADDSC+14, ADDSC+21
SCIEN	DELSC+1~, DELSC+3, DELSC+4, DELSC+5, DELSC+7, DELSC+8, ADDSC+1~, ADDSC+14, ADDSC+17
SLCTN	DELSC+1~, DELSC+3, DELSC+4, DELSC+5, DELSC+7, DELSC+8, ADDSC+1~, ADDSC+11, ADDSC+13, ADDSC+14 , ADDSC+17, ADDSC+21
>> X	ADDSC+21, SCDEL+3, SCDEL+4, SCDEL+7, DIK+1