©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
DDS10 ;SFISC/MKO-BLOCK SETUP ;21SEP2006
Source file <DDS10.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GDA(DDS1B,DDS1E,DA) | ;Find new DA
|
|
| GL(F,DA,DIE,DL,DDSDA,DDSL) | ;Get global root, level, and IEN
|
|
| SET(DDS1B,DDS1E,DA,DDP,DIE,DL,DDSDA) | ;Get values for pointed-to block
|
|
| SUBER | ;Come here if an error is encountered in GL
|
|
| SUBGL | ;Get root and level for subfile
|
|
| BK(DDSBK,DDP) | ;Lookup block, get file number
|
|
| DDSDA(DA,DL,DDSDA) | ;Determine DDSDA
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | GL+11, SUBGL+3 |
| ^DIC - [#1] | GL+12, SUBGL+4 |
| ^DIST( | SET+15, BK+9, BK+10 |
| ^TMP("DDS" | GL+23, GL+25* |
| Name | Line Occurrences |
|---|---|
| BK | SET+13 |
| DDSDA | GDA+16, GL+16 |
| GDA | SET+14 |
| GL | SET+15 |
| SUBER | SUBGL+3, SUBGL+4, SUBGL+5 |
| SUBGL | GL+13 |
| Name | Field # of Occurrence |
|---|---|
| ^( | GDA+19, SUBGL+3 |
| ^("GL" | GL+12, SUBGL+4 |
| ^("UP" | SUBGL+3 |
| ^(0 | SUBGL+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| D | SUBGL+1~, SUBGL+2*, SUBGL+3*, SUBGL+4 |
| DA | SET~, SET+14, SET+15, GDA~, GDA+14*, GDA+16, GDA+19*, GDA+22!*, GDA+23*, GL~ , GL+15, GL+16, GL+20, GL+21, GL+23, GL+24, GL+25, DDSDA~, DDSDA+8, DDSDA+9 |
| DA( | GDA+15*, SUBGL+5, DDSDA+9 |
| DDP | SET~, SET+13, SET+15, BK~, BK+10*, BK+15* |
| >> DDS | SET+15 |
| DDS1B | SET~, SET+13, SET+14, SET+15, GDA~, GDA+19 |
| DDS1E | SET~, SET+14, GDA~ |
| DDSBK | BK~, BK+8, BK+9, BK+10, BK+11, BK+13, BK+15*, BK+16 |
| DDSDA | SET~, SET+15, GDA+11~, GDA+16, GL~, GL+15*, GL+16, GL+18, DDSDA~, DDSDA+8* , DDSDA+9* |
| >> DDSDAORG | GDA+14 |
| >> DDSDAORG( | GDA+15 |
| >> DDSDLORG | GDA+15, GDA+16 |
| DDSI | GDA+11~, GDA+15*, GDA+19*, GDA+22* |
| DDSL | GL~, GL+23 |
| DDSP | GL+18~, GL+20, GL+21, GL+24 |
| DDSP("FILE" | GL+18* |
| DDSP("IEN" | GL+18* |
| >> DDSPG | SET+15, GDA+19 |
| >> DDSREFS | GDA+19 |
| DIC | BK+12~, BK+13* |
| DIC(0 | BK+13* |
| DIE | SET~, SET+15, GL~, GL+11*, GL+12*, GL+20, GL+21, GL+23, GL+24, GL+25 , SUBGL+4*, SUBGL+5*, SUBER+1* |
| >> DIERR | SET+13, SET+14, SET+15, GDA+22, GDA+23, GL+13, GL+23 |
| DL | SET~, SET+15, GL~, GL+11*, GL+12*, GL+16, SUBGL+3*, SUBGL+5, SUBER+1*, DDSDA~ , DDSDA+9 |
| F | GL~, GL+11, GL+12, GL+18, SUBGL+2 |
| I | SUBGL+1~, SUBGL+5*, DDSDA+7~, DDSDA+9* |
| S | SUBGL+1~ |
| S( | SUBGL+3*, SUBGL+5 |
| U | SET+15, BK+10, BK+15, SUBGL+3 |
| U1 | SUBGL+1~, SUBGL+3* |
| X | BK+12~, BK+13*, BK+14, GDA+11~, GDA+19 |
| Y | BK+12~, BK+14, BK+15 |
| Y(0 | BK+15 |