Routine: IBDFC2B

Information

IBDFC2B ;ALB/CJM - ENCOUNTER FORM - converts a form for scanning ;MAR 3, 1995

Package	Total	Call Graph
Automated Information Collection System	2	WARNING^IBDFC2 $$PADRIGHT^IBDFU
VA FileMan	2	^DIE ^DIR
Kernel	1	$$UP^XLFSTR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Automated Information Collection System	2	IBDFC IBDFC2

Entry Points

Name	Comments	DBIA/ICR reference
ADDOTHER	;add space to the list to write in other
CKVALUES	;make sure the internal value to be passed matches the value displayed and is an active code
CHKVISIT	;should the selection list use the new Package Interface for Type of Visit?
CKACTIVE(X,PI)	;returns 1 if the X=an active code, 0 otherwise
DISPLAY(SLCTN)	;returns selection display
ASKOTH()	; Function ; -- ask if want to add other hand print field automatically ; Returns 1 if yes, 0 if no, or -1 if uparrow
ASKOTHQ
ASKAUTO()	; Function ; -- ask if want to automatically update codes ; Returns 1 if yes, 0 if no, or -1 if uparrow
ASKAUTQ

External References

Name	Field # of Occurrence
^DIE	CKVALUES+33
^DIR	ASKOTH+15, ASKAUTO+10
WARNING^IBDFC2	CKVALUES+21, CKVALUES+34, CKVALUES+36, CHKVISIT+16
$$PADRIGHT^IBDFU	DISPLAY+7
$$UP^XLFSTR	CHKVISIT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ASKOTH+5
Function Call: WRITE	Prompt: ! Line Location: ASKAUTO+5
Routine Call	DIE Line Location: CKVALUES+33
Routine Call	DIR Line Location: ASKOTH+15 ASKAUTO+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBE(357.2 - [#357.2]	ADDOTHER+2, ADDOTHER+3, CHKVISIT+11, CHKVISIT+13, CHKVISIT+14*
^IBE(357.3 - [#357.3]	CKVALUES+9, CKVALUES+10, CKVALUES+25, CKVALUES+27, CHKVISIT+6, DISPLAY+3, DISPLAY+5, DISPLAY+7
^IBE(357.6 - [#357.6]	CHKVISIT+2, CHKVISIT+4, CKACTIVE+2
^IBE(357.69 - [#357.69]	CHKVISIT+6

Label References

Name	Line Occurrences
$$CKACTIVE	CKVALUES+19, CKVALUES+31
$$DISPLAY	CKVALUES+20
ASKAUTQ	ASKAUTO+11
ASKOTHQ	ASKOTH+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANS	ASKOTH+4~, ASKOTH+6, ASKOTH+17, ASKOTHQ, ASKAUTO+4~, ASKAUTO+6, ASKAUTO+12, ASKAUTQ
CHANGE	CHKVISIT+3~, CHKVISIT+6*, CHKVISIT+8, CHKVISIT+16
CNT	CHKVISIT+9~, CHKVISIT+13, CHKVISIT+14
CODE	CKVALUES+3~, CKVALUES+15, CKVALUES+16, CKVALUES+19, CKVALUES+29, CKVALUES+34, CKVALUES+36, CHKVISIT+3~, CHKVISIT+6
DA	CKVALUES+33*!
DIE	CKVALUES+33*!
DIR	ASKOTH+4~, ASKAUTO+4~
DIR("?"	ASKOTH+7, ASKOTH+8, ASKOTH+9, ASKOTH+10, ASKOTH+11, ASKOTH+12, ASKAUTO+7*
DIR("A"	ASKOTH+14, ASKAUTO+9
DIR("B"	ASKOTH+13, ASKAUTO+8
DIR(0	ASKOTH+13, ASKAUTO+8
>> DIRUT	ASKOTH+16, ASKAUTO+11
DR	CKVALUES+33*!
I	CKVALUES+3~, CKVALUES+6*
>> IBBLK("NAME"	CHKVISIT+2, CHKVISIT+16
>> IBDASK("AUTOCHG"	CKVALUES+31
>> IBLIST	ADDOTHER+2, ADDOTHER+3, CKVALUES+9, CHKVISIT+6, CHKVISIT+11, CHKVISIT+13, CHKVISIT+14
>> IBLIST("BTWN"	DISPLAY+6
>> IBLIST("INPUT_RTN"	CKVALUES+2
>> IBLIST("NAME"	CKVALUES+21, CKVALUES+34, CKVALUES+36, CHKVISIT+2, CHKVISIT+16
>> IBLIST("RTN"	CKVALUES+19, CKVALUES+31, CHKVISIT+2
>> IBLIST("SCPIECE"	CKVALUES+6
>> IBLIST("SCTYPE"	CKVALUES+6, DISPLAY+6
>> IBLIST("SCW"	DISPLAY+6
IEN	CKVALUES+3~, CKVALUES+25*, CKVALUES+26, CKVALUES+27
NODE	ADDOTHER+1~, ADDOTHER+2, ADDOTHER+3, CKVALUES+3~, CKVALUES+10, CKVALUES+13, CKVALUES+15, CHKVISIT+9~, CHKVISIT+13, CHKVISIT+14 , DISPLAY+1~, DISPLAY+3*
PI	CHKVISIT+3~, CHKVISIT+4*, CHKVISIT+5, CHKVISIT+11, CKACTIVE~, CKACTIVE+1, CKACTIVE+2
RET	DISPLAY+1~, DISPLAY+4, DISPLAY+8, DISPLAY+10
SC	CHKVISIT+9~, CHKVISIT+13, DISPLAY+1~, DISPLAY+4, DISPLAY+5, DISPLAY+6, DISPLAY+7
SCDA	DISPLAY+1~, DISPLAY+5*, DISPLAY+7
SLCTN	CKVALUES+3~, CKVALUES+9, CKVALUES+10, CKVALUES+20, CKVALUES+25, CKVALUES+27, CKVALUES+33, CHKVISIT+3~, CHKVISIT+6, DISPLAY~ , DISPLAY+3, DISPLAY+5, DISPLAY+7
SUB	CHKVISIT+9~, CHKVISIT+13*, CHKVISIT+14
SUBCOL	CKVALUES+3~, CKVALUES+6*, CKVALUES+24, CKVALUES+25
TEXT	CKVALUES+3~, CKVALUES+20, CKVALUES+21, CKVALUES+27, CKVALUES+28, CKVALUES+29, CKVALUES+31, CKVALUES+34, CKVALUES+36
VAL	DISPLAY+1~, DISPLAY+4, DISPLAY+7, DISPLAY+8, DISPLAY+9*
W	DISPLAY+1~
W(	DISPLAY+6*, DISPLAY+7
X	CKACTIVE~, CKACTIVE+3, ASKOTH+4~, ASKAUTO+4~
Y	ASKOTH+4~, ASKOTH+17, ASKAUTO+4~, ASKAUTO+12

Customize PDF page

Package: Automated Information Collection System