Routine: IBDF10

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Interaction Calls
Label References
Local Variables

Information

IBDF10 ;ALB/CJM - ENCOUNTER FORM - (shift block contents) ;APRIL 22,1993

Source Information

Source file <IBDF10.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Automated Information Collection System	3	(BLOCKS,FLDS,HFLDS,LINES,MFLDS,TXT)^IBDF10A LSTS^IBDF10B $$MAX^IBDF10C
Registration	1	RE^VALM4
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
Automated Information Collection System	6	IBDF5 IBDF9 IBDF9B IBDF9B2 IBDF9B3 IBDF9B4

Entry Points

Name	Comments	DBIA/ICR reference
AMOUNT(MAX)	;now ask user how far to shift - returns AMOUNT
B	;shift blocks
E	;shift everything
D	;shift data fields
DIRECTN	;asks user for direction of shift - returns WAY
RANGE(HT,WIDTH)	;asks the user for the range - returns TOP,BOTTOM,LEFT,RIGHT
M	;shift multiple choice fields
L	;shift lines
SHIFT(TYPE)	;shifts contents of blocks - prompts user for what to shift (unless TYPE is defined), and how much to shift
TYPEHELP	;help for TYPE
S	;shift selection lists
T	;shift text areas
H	;shift hand print fields
TYPE	;asks user for what should be shifted

External References

Name	Field # of Occurrence
^DIR	TYPE+4, DIRECTN+2, AMOUNT+4, RANGE+6, RANGE+12, RANGE+17, RANGE+24
BLOCKS^IBDF10A	B+1
FLDS^IBDF10A	E+1, D+1
HFLDS^IBDF10A	E+6, H+1
LINES^IBDF10A	E+4, L+1
MFLDS^IBDF10A	E+5, M+1
TXT^IBDF10A	E+3, T+1
LSTS^IBDF10B	E+2, S+1
$$MAX^IBDF10C	SHIFT+11
RE^VALM4	SHIFT+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You can choose what should be shifted. Select one of the following:",!," [E]verything, [D]isplay fields, [S]election lists, [L]ines, [T]ext areas,",!," [M]ultiple choice fields, [H]and print fields" Line Location: TYPEHELP+1
Routine Call	DIR Line Location: TYPE+4 DIRECTN+2 AMOUNT+4 RANGE+6 RANGE+12 RANGE+17 RANGE+24

Name	Line Occurrences
@(	SHIFT+13
AMOUNT	SHIFT+12
DIRECTN	SHIFT+7
RANGE	SHIFT+9
TYPE	SHIFT+4
TYPEHELP	TYPE+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMOUNT	SHIFT+2~, SHIFT+13, AMOUNT+5*, E+1, E+2, E+3, E+4, E+5, E+6, D+1 , M+1, H+1, S+1, T+1, L+1, B+1
BOTTOM	SHIFT+2~, SHIFT+10, SHIFT+11, RANGE+13, RANGE+29, E+1, E+2, E+3, E+4, E+5 , E+6, D+1, M+1, H+1, S+1, T+1, L+1, B+1
DIR	TYPE+2!, TYPE+4!, DIRECTN+2!, AMOUNT+4!, RANGE+2!, RANGE+6!, RANGE+12!, RANGE+17!, RANGE+24!
DIR("?"	TYPE+3, DIRECTN+1, RANGE+9, RANGE+21
DIR("A"	TYPE+2, DIRECTN+1, AMOUNT+3, RANGE+4, RANGE+9, RANGE+15, RANGE+20*
DIR("B"	TYPE+2, DIRECTN+1, RANGE+5, RANGE+10!, RANGE+16, RANGE+22!
DIR(0	TYPE+2, DIRECTN+1, AMOUNT+2, RANGE+5, RANGE+11, RANGE+16, RANGE+23*
>> DIRUT	TYPE+4, DIRECTN+2, AMOUNT+4, RANGE+6, RANGE+17
>> DTOUT	RANGE+12, RANGE+24
>> DUOUT	RANGE+12, RANGE+24
HT	SHIFT+2~, SHIFT+5, SHIFT+6, SHIFT+9, SHIFT+10, RANGE~, RANGE+5, RANGE+11
I	RANGE+1~
>> IBBLK("H"	SHIFT+5
>> IBBLK("W"	SHIFT+5
>> IBFORM("HT"	SHIFT+6
>> IBFORM("WIDTH"	SHIFT+6
LEFT	SHIFT+2~, SHIFT+10, SHIFT+11, RANGE+18, RANGE+23, RANGE+28, E+1, E+2, E+3, E+4 , E+5, E+6, D+1, M+1, H+1, S+1, T+1, L+1, B+1
MAX	SHIFT+2~, SHIFT+10, SHIFT+11, SHIFT+12, AMOUNT~, AMOUNT+2
QUIT	SHIFT+2~, SHIFT+3, SHIFT+7, SHIFT+9, SHIFT+10, SHIFT+11, SHIFT+12, SHIFT+13, TYPE+4, DIRECTN+2* , AMOUNT+4, RANGE+6, RANGE+12, RANGE+17, RANGE+24*
RIGHT	SHIFT+2~, SHIFT+10, SHIFT+11, RANGE+25, RANGE+30, E+1, E+2, E+3, E+4, E+5 , E+6, D+1, M+1, H+1, S+1, T+1, L+1, B+1
TOP	SHIFT+2~, SHIFT+10, SHIFT+11, RANGE+7, RANGE+11, RANGE+28, E+1, E+2, E+3, E+4 , E+5, E+6, D+1, M+1, H+1, S+1, T+1, L+1, B+1
TYPE	SHIFT~, SHIFT+4~, SHIFT+5, SHIFT+6, SHIFT+11, SHIFT+13, TYPE+5*
>> VALMBCK	SHIFT+3, SHIFT+14
WAY	SHIFT+2~, SHIFT+10, SHIFT+11, DIRECTN+3*, AMOUNT+3, E+1, E+2, E+3, E+4, E+5 , E+6, D+1, M+1, H+1, S+1, T+1, L+1, B+1
WIDTH	SHIFT+2~, SHIFT+5, SHIFT+6, SHIFT+9, SHIFT+10, RANGE~, RANGE+16, RANGE+23
>> Y	TYPE+4, TYPE+5, DIRECTN+2, DIRECTN+3, AMOUNT+4, AMOUNT+5, RANGE+6, RANGE+7, RANGE+12, RANGE+13 , RANGE+17, RANGE+18, RANGE+24, RANGE+25

Customize PDF page

Package: Automated Information Collection System

Routine: IBDF10

Call Graph Total: 5

Caller Graph Total: 6