Routine: IBDF10B

Information

IBDF10B ;ALB/CJM - ENCOUNTER FORM - (shifting selection lists);3/29/93

Source file <IBDF10B.m>

Package	Total	Call Graph
Automated Information Collection System	1	$$INRANGE^IBDF10A
VA Fileman	1	IX1^DIK

Package	Total	Caller Graph
Automated Information Collection System	1	IBDF10

Name	Comments	DBIA/ICR reference
ADDCOL(LIST)	;adds a column to the selection list, which has none
LSTS(WAY,AMOUNT,TOP,BOTTOM,LEFT,RIGHT)	;shifts all of the selection lists in IBBLK falling within the range START->END by AMOUNT - if END="" range extends all the way out

Name	Field # of Occurrence
IX1^DIK	ADDCOL+2
$$INRANGE^IBDF10A	LSTS+17

Name	Line Occurrences (* Changed, ! Killed)
^IBE(357.2 - [#357.2]	LSTS+7, LSTS+8, LSTS+11, LSTS+12, LSTS+13, LSTS+15, LSTS+16, LSTS+17, ADDCOL+1

Name	Line Occurrences
$$ADDCOL	LSTS+9

Name	Field # of Occurrence
^(1	ADDCOL+1*

Name	Field # of Occurrence
AMOUNT	LSTS~, LSTS+5*, LSTS+17
BOTTOM	LSTS~, LSTS+17
COL	LSTS+2~, LSTS+8*
DA	ADDCOL+2!*
DA(1	ADDCOL+2*
DIK	ADDCOL+2!*
>> IBBLK	LSTS+7
>> IBBLK("BOX"	LSTS+12
>> IBBLK("HDR"	LSTS+12
IBX	LSTS+2~, LSTS+17*
IBY	LSTS+2~, LSTS+17*
LEFT	LSTS~, LSTS+17
LIST	LSTS+2~, LSTS+7*, LSTS+8, LSTS+9, LSTS+11, LSTS+12, LSTS+13, LSTS+15, LSTS+16, LSTS+17 , ADDCOL~, ADDCOL+1, ADDCOL+2
NODE	LSTS+2~, LSTS+11, LSTS+12, LSTS+13, LSTS+16, LSTS+17
PIECE	LSTS+2~, LSTS+17*
POS	LSTS+2~, LSTS+12, LSTS+13, LSTS+17*
RIGHT	LSTS~, LSTS+17
SUB	LSTS+2~, LSTS+8, LSTS+9, LSTS+10, LSTS+11, LSTS+12, LSTS+13, LSTS+15*, LSTS+16, LSTS+17
TOP	LSTS~, LSTS+17
VERT	LSTS+2~, LSTS+3*, LSTS+17
WAY	LSTS~, LSTS+3, LSTS+5, LSTS+12, LSTS+13