IBDF5B ;ALB/CJM - ENCOUNTER FORM (edit a form - CONTINUED) ;07/27/93
Source file <IBDF5B.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EDITBLK | ;allows the user to edit everything about the block
|
|
DLTCOPY(WORKCOPY) | ;deletes the block=WORKCOPY and unlocks it
|
|
SAVECOPY(WORKCOPY,FORMCOPY,IBTKODR) | ;deletes the block=FORMCOPY,adds WORKCOPY to IBFORM
|
|
COPYBLK(IBBLK,FORMCOPY,WORKCOPY,IBTKODR,IBJUNK) | ;copies the IBBLK to the WORKCOPY, then puts sets FORMCOPY=IBBLK
|
|
ASKSAVE() | ;asks the user if changes to the block should be saved
|
|
DECIDE | ;allows user to either save or discard changes to the block being edited
|
|
DOWHAT() | ;returns "D" for discard, "S" for save, "" for do nothing
|
|
;prints the form
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^IBE(357.1 - [#357.1] | Classic Fileman Calls |