DDS0 ;SFISC/MLH-SETUP, CLEANUP ;24FEB2004
Source file <DDS0.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(DDSFILE,DR,DA) | ;Initial setup
|
|
FORM(DDSFILE,DR) | ;Form lookup
|
|
FRSTPG(DDS,DA,DDSPAGE) | ;Get first page of form
|
|
REC(DDP,DA) | ;Check record and lock
|
|
EGP | ||
INIT | ;Initialize some variables
; DDSHBX = $Y of first line of help area ; DDSREFT = Global reference of temporary global location ; DDSFDO = 1 if entire form is display-only ; DDSCHG = Change flag ; DDSKM = Flag to keep whatever's in help area ; DDSH = Flag to indicate help area is empty ; DDSSC = Array to indicate what pages are on the screen |
|
DDSHBX | ||
DDSREFT | ||
MOUSEON | ||
END | ||
MOUSEOFF | ||
UNLOCK | ;Unlock any lock records
|
|
COMPILED(DDS) | ;Return 1 if form is compiled
|
|
REF(DDS) | ;Return global reference for compiled global
|
|
OLDREF(DDS) | ;Return global reference for compiled global used prior
|
|
IXF | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|