©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DDS0 ;SFISC/MLH-SETUP, CLEANUP ;4:45 AM 7 Sep 2006
Source file <DDS0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| COMPILED(DDS) | ;Return 1 if form is compiled
|
|
| FRSTPG(DDS,DA,DDSPAGE) | ;Get first page of form
|
|
| END | ||
| REF(DDS) | ;Return global reference for compiled global
|
|
| IXF | ;
|
|
| UNLOCK | ;Unlock any lock records
|
|
| REC(DDP,DA) | ;Check record and lock
|
|
| 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 |
|
| FORM(DDSFILE,DR) | ;Form lookup
|
|
| EN(DDSFILE,DR,DA) | ;Initial setup
|
|
| OLDREF(DDS) | ;Return global reference for compiled global used prior
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | REC+19 |
| ^DIST( | EN+8, FORM+17, FRSTPG+7, FRSTPG+9, FRSTPG+10, INIT+19*, REF+1, OLDREF+2 |
| ^TMP("DDS" | END+3, UNLOCK+2, UNLOCK+3! |
| ^TMP("DDSH" | END+13! |
| ^TMP("DDSWP" | END+13! |
| ^TMP("DIERR" | END+11! |
| Name | Line Occurrences |
|---|---|
| $$COMPILED | EN+7 |
| $$REF | EN+6, COMPILED+1 |
| FORM | EN+3 |
| FRSTPG | EN+10 |
| INIT | EN+12 |
| REC | EN+11 |
| UNLOCK | END+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | INIT+17~, INIT+19 |
| %H | INIT+17~ |
| %I | INIT+17~ |
| A1 | END+21! |
| D | FORM+13*, END+21! |
| D0 | END+7!, IXF+1~ |
| DA | EN~, EN+8~, EN+10, EN+11, FRSTPG~, FRSTPG+7, REC~, REC+11, REC+13*, REC+15 , REC+24, END+5!, END+6, END+7!, END+8*, IXF+1~ |
| DA( | REC+25, END+9* |
| DDACT | INIT+13*, END+14! |
| DDC | END+21! |
| DDD | END+21! |
| >> DDGFDD | IXF+1 |
| DDH | INIT+12!, INIT+13*, END+14! |
| DDM | INIT+13*, END+14! |
| DDO | END+14! |
| DDP | EN+11, FORM+11*, FORM+13, FORM+20*, REC~, REC+15, REC+18, REC+26, END+14! |
| DDQ | END+14! |
| DDS | EN+6, EN+7, EN+8, EN+10, FORM+18*, FRSTPG~, FRSTPG+7, FRSTPG+9, FRSTPG+10, INIT+14 , INIT+19, END+14!, COMPILED~, COMPILED+1, REF~, REF+1, OLDREF~, OLDREF+2 |
| DDSBK | END+15! |
| DDSBR | END+15! |
| DDSCHANG | INIT+12! |
| DDSCHG | INIT+13*, END+15! |
| DDSCTRL | END+19! |
| DDSDA | REC+12*, REC+15, END+15! |
| DDSDAORG | REC+13*, REC+24!*, END+6, END+8, END+15! |
| DDSDAORG( | REC+25*, END+9 |
| DDSDDP | END+14! |
| DDSDL | REC+12*, REC+15, REC+23, REC+24*, REC+25*, END+15! |
| DDSDLORG | REC+12*, REC+23*, END+6, END+9, END+16! |
| DDSDN | END+16! |
| DDSEXT | END+16! |
| DDSFDO | END+16! |
| DDSFILE | EN~, EN+3, FORM~, FORM+7, FORM+11 |
| DDSFILE(1 | FORM+20 |
| DDSFLD | END+16! |
| DDSFLORG | REC+26*, END+16! |
| DDSGL | END+16! |
| DDSH | INIT+13*, END+16! |
| DDSHBX | INIT+9*, END, END+19! |
| DDSI | REC+25*, REC+27!, END+9*, END+16! |
| DDSKM | END+17! |
| DDSLN | END+17! |
| DDSNP | END+17! |
| DDSO | END+17! |
| DDSOLD | END+17! |
| DDSOPB | END+17! |
| DDSORD | END+17! |
| DDSOSV | END+17! |
| DDSPAGE | EN+10, FRSTPG~, FRSTPG+8 |
| >> DDSPARM | END+1, END+11 |
| DDSPG | FRSTPG+9*, FRSTPG+10, END+17! |
| DDSPTB | END+17! |
| DDSPX | END+18! |
| DDSPY | END+18! |
| DDSQ | END+18! |
| DDSREFS | EN+6*, END+19! |
| DDSREFT | INIT+14*, INIT+15, END+12! |
| DDSREP | END+18! |
| DDSSAVE | INIT+12! |
| DDSSC | INIT+12!, INIT+13*, END+18! |
| >> DDSSEL | FRSTPG+11 |
| DDSSP | END+18! |
| DDSSTACK | END+18! |
| DDSTOP | REC+18~*, REC+19, REC+21 |
| DDSTP | END+18! |
| DDSU | END+18! |
| DDSX | END+18! |
| DDXY | INIT+10*, END+19! |
| DI | END+21! |
| DIC | FORM+9~, FORM+13*, FORM+14!, END+20!, IXF+1~* |
| DIC(0 | FORM+13*, IXF+1* |
| >> DIE | REC+12*, REC+15, REC+20, REC+26 |
| DIEQ | END+21! |
| DIERR | EN+2, EN+3, EN+7, EN+10, EN+11, REC+15, REC+17, END+11! |
| DIK | END+21! |
| >> DIOVRD | REC+17 |
| DIR | END+20! |
| DIR0N | END+20! |
| DIROUT | END+20! |
| DIRUT | END+20! |
| DIW | END+21! |
| DIY | END+21! |
| DIZ | END+21! |
| DP | IXF+1~ |
| DR | EN~, EN+3, FORM~, FORM+12 |
| DS | END+21! |
| DUOUT | END+20! |
| DX | END*, END+20! |
| DY | END*, END+20! |
| I | UNLOCK+1~, UNLOCK+2* |
| IOSL | INIT+9, END |
| >> IOXY | INIT+10, END |
| P | FRSTPG+6~, FRSTPG+8*, FRSTPG+9, FRSTPG+10, REC+20~, REC+21 |
| P("FILE" | REC+20* |
| U | EN+1*, EN+8, FORM+11, FORM+20, FRSTPG+7, REC+19, REC+20, INIT+19 |
| X | FORM+9~, FORM+12*, FORM+16, FORM+17, INIT+17~, IXF+2!, IXF+3* |
| Y | FORM+9~, FORM+16, FORM+17, FORM+18, IXF+1~, IXF+2, IXF+3 |