Routine: IBDF5B

Information

IBDF5B ;ALB/CJM - ENCOUNTER FORM (edit a form - CONTINUED);JUL 27,1993

Source Information

Source file <IBDF5B.m>

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Automated Information Collection System	9	UNCMPL^IBDF19 PRINT^IBDF1C IDXFORM^IBDF5A $$COPYBLK^IBDFU2 DLTBLK^IBDFU3 IDXBLOCK^IBDFU4 (PAUSE,TOPNBOT)^IBDFU5 $$SLCTBLK^IBDFU8 KILL^IBDFUA
Registration	2	EN^VALM FULL^VALM1
VA Fileman	2	^DIE ^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Automated Information Collection System	2	IBDF13 IBDFQSL

Entry Points

Name	Comments	DBIA/ICR reference
ASKSAVE()	;asks the user if changes to the block should be saved
EDITBLK	;allows the user to edit everything about the block
COPYBLK(IBBLK,FORMCOPY,WORKCOPY,IBTKODR,IBJUNK)	;copys the IBBLK to the WORKCOPY, then puts sets FORMCOPY=IBBLK
DOWHAT()	;returns "D" for discard, "S" for save, "" for do nothing
PRINT	;prints the form
DLTCOPY(WORKCOPY)	;deletes the block=WORKCOPY and unlocks it
DECIDE	;allows user to either save or discard changes to the block being edited
SAVECOPY(WORKCOPY,FORMCOPY,IBTKODR)	;deletes the block=FORMCOPY,adds WORKCOPY to IBFORM

External References

Name	Field # of Occurrence
^DIE	SAVECOPY+6, COPYBLK+21
^DIR	ASKSAVE+3, DOWHAT+2, PRINT+6
UNCMPL^IBDF19	SAVECOPY+9
PRINT^IBDF1C	PRINT+8
IDXFORM^IBDF5A	EDITBLK+28
$$COPYBLK^IBDFU2	COPYBLK+11
DLTBLK^IBDFU3	DLTCOPY+1, SAVECOPY+8
IDXBLOCK^IBDFU4	DECIDE+8
PAUSE^IBDFU5	COPYBLK+12
TOPNBOT^IBDFU5	EDITBLK+16, EDITBLK+26
$$SLCTBLK^IBDFU8	EDITBLK+10
KILL^IBDFUA	EDITBLK+12
EN^VALM	EDITBLK+17
FULL^VALM1	EDITBLK+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Unable to edit the block!" Line Location: COPYBLK+12
Routine Call	VALM Line Location: EDITBLK+17
Routine Call	DIE Line Location: SAVECOPY+6 COPYBLK+21
Routine Call	DIR Line Location: ASKSAVE+3 DOWHAT+2 PRINT+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBE(357 - [#357]	COPYBLK+9
^IBE(357.1 - [#357.1]	EDITBLK+22, DLTCOPY+2, SAVECOPY+10, COPYBLK+6, COPYBLK+16, COPYBLK+17

Label References

Name	Line Occurrences
$$ASKSAVE	EDITBLK+19
$$DOWHAT	DECIDE+3
COPYBLK	EDITBLK+15, DECIDE+5, DECIDE+7, PRINT+7
DLTCOPY	EDITBLK+21, DECIDE+7
SAVECOPY	EDITBLK+20, DECIDE+5, PRINT+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BOT1	EDITBLK+5~, EDITBLK+16, EDITBLK+27*, EDITBLK+28
BOT2	EDITBLK+5~, EDITBLK+26, EDITBLK+27
DA	SAVECOPY+4!, SAVECOPY+6!, COPYBLK+20!, COPYBLK+21!
DIE	SAVECOPY+4!, SAVECOPY+6!, COPYBLK+20!, COPYBLK+21!
DIR	ASKSAVE+2!, ASKSAVE+3!, DOWHAT+1!, DOWHAT+2!, PRINT+6!
DIR("A"	ASKSAVE+2, DOWHAT+1
DIR("B"	ASKSAVE+2*
DIR(0	ASKSAVE+2, DOWHAT+1, PRINT+6*
>> DIRUT	ASKSAVE+4, DOWHAT+3, PRINT+6
DR	SAVECOPY+4!, SAVECOPY+5, SAVECOPY+6!, COPYBLK+20!*, COPYBLK+21!
FORMCOPY	SAVECOPY~, SAVECOPY+2, SAVECOPY+8, SAVECOPY+10, SAVECOPY+11, COPYBLK~, COPYBLK+4, COPYBLK+11, COPYBLK+12, COPYBLK+16
IBBLK	EDITBLK+5~, EDITBLK+10, EDITBLK+11, EDITBLK+15, EDITBLK+16, EDITBLK+18, EDITBLK+20, EDITBLK+21, EDITBLK+22, EDITBLK+26 , COPYBLK~, COPYBLK+4, COPYBLK+5, COPYBLK+6, COPYBLK+11, COPYBLK+12, DECIDE+5, DECIDE+7, DECIDE+8, DECIDE+9* , PRINT+4, PRINT+7*
IBBLK2	EDITBLK+5~, EDITBLK+13, EDITBLK+15, EDITBLK+18, EDITBLK+20, EDITBLK+21, DECIDE+5, DECIDE+7, DECIDE+9, PRINT+7
>> IBFASTXT	EDITBLK+23
>> IBFORM	EDITBLK+10, SAVECOPY+4, SAVECOPY+8, SAVECOPY+9, COPYBLK+11, PRINT+8
IBJUNK	EDITBLK+5~, EDITBLK+13, EDITBLK+15, DLTCOPY+1, COPYBLK~, COPYBLK+9, COPYBLK+20, DECIDE+5, DECIDE+7, PRINT+7
>> IBPRINT("WITH_DATA"	EDITBLK+14, EDITBLK+25*
>> IBTKBLK	PRINT+4
IBTKODR	EDITBLK+5~, EDITBLK+13, EDITBLK+15, EDITBLK+20, SAVECOPY~, SAVECOPY+5, COPYBLK~, COPYBLK+7, DECIDE+5, DECIDE+7 , PRINT+7
IBVALMBG	EDITBLK+5~, EDITBLK+8*, EDITBLK+24
IFSAVE	EDITBLK+5~, EDITBLK+19*, EDITBLK+20, EDITBLK+21
IOSL	EDITBLK+10
NODE	COPYBLK+3~, COPYBLK+6*, COPYBLK+7
QUIT	PRINT+2~, PRINT+4, PRINT+6, PRINT+7*, PRINT+8
TOP1	EDITBLK+5~, EDITBLK+16, EDITBLK+27*, EDITBLK+28
TOP2	EDITBLK+5~, EDITBLK+26, EDITBLK+27
>> VALMBCK	EDITBLK+29, DECIDE+5, DECIDE+8, DECIDE+9, PRINT+3, PRINT+7
>> VALMBG	EDITBLK+8, EDITBLK+24*
WDATA	EDITBLK+5~, EDITBLK+14*, EDITBLK+25
WHAT	DECIDE+1~, DECIDE+3*, DECIDE+4, DECIDE+6
WORKCOPY	DLTCOPY~, DLTCOPY+1, DLTCOPY+2, DLTCOPY+3, SAVECOPY~, SAVECOPY+2, SAVECOPY+4, SAVECOPY+11, COPYBLK~, COPYBLK+4* , COPYBLK+17, COPYBLK+20
>> Y	ASKSAVE+5, DOWHAT+4, PRINT+6

Customize PDF page

Package: Automated Information Collection System

Routine: IBDF5B

Call Graph Total: 13

Caller Graph Total: 2