©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
DDS1(DDSPG) ;SFISC/MKO-LOAD PAGE ;11:25 AM 4 Aug 1998
Source file <DDS1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| REPLD | ;Load data
|
|
| REP | ;Load data for repeating block
|
|
| BLK(DDSPG,DDS1B,DDS1BO,DDS1H,DDS1E) | ;Load block
|
|
| END | ||
| D0(DL) | ;Given DL, return string D0,D1,...,Dn
|
|
| GETD0(DA,DL) | ;Given DA array, set D0,D1...
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | BLK+16, REP+10, REP+11, REP+14 |
| ^DIC - [#1] | REP+14 |
| ^DIST( | DDS1+21, DDS1+25, BLK+5, BLK+9 |
| ^TMP("DDS" | BLK+23! |
| ^TMP("DIERR" | BLK+21 |
| Name | Line Occurrences |
|---|---|
| $$D0 | BLK+12~ |
| BLK | DDS1+22, DDS1+25 |
| END | DDS1+22, DDS1+25 |
| GETD0 | BLK+18 |
| REP | BLK+32 |
| REPLD | REP+25, REP+29, REP+35 |
| Name | Field # of Occurrence |
|---|---|
| ^( | DDS1+25, BLK+27 |
| ^("SCR" | REP+11 |
| ^(2 | BLK+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| D0 | BLK+25*, BLK+28*, REP+31~ |
| DA | BLK+12~, BLK+15, BLK+17, BLK+18, BLK+20, BLK+22, BLK+23, BLK+25*, BLK+27*, BLK+28 , BLK+30, REP+14, REP+21, REP+25*, REP+29*, REP+31~, REP+35*, REP+48, REPLD+1, REPLD+2 , GETD0~, GETD0+2 |
| DA( | GETD0+3 |
| DDP | BLK+12~, BLK+14, BLK+16*, BLK+17, BLK+20, REP+10, REP+13, REP+14, REP+16~, REP+17* |
| >> DDS | DDS1+21, DDS1+25, BLK+9 |
| DDS1B | DDS1+21*, DDS1+22, DDS1+25*, END!, BLK~, BLK+5, BLK+9, BLK+14, BLK+15, BLK+20 , BLK+27, BLK+30, BLK+31, BLK+34, BLK+35, BLK+37, REP+3, REP+4, REP+7, REPLD+5 |
| DDS1BO | DDS1+25*, END!, BLK~ |
| DDS1DDP | REP+1~, REP+4*, REP+10, REP+11, REP+14, REP+17 |
| DDS1E | BLK~, BLK+15, BLK+20, BLK+27 |
| DDS1FSCR | REP+2~, REP+11*, REPLD+1 |
| DDS1H | BLK~, BLK+8 |
| DDS1IND | REP+1~, REP+5*, REP+13, REP+23*, REP+24, REP+27, REP+33 |
| DDS1INI | REP+1~, REP+6*, REP+37, REP+39, REP+42*, REP+43*, REP+45 |
| DDS1MUL | REP+1~, REP+10*, REP+13, REP+14, REP+20, REP+47 |
| DDS1PDA | REP+1~, REP+8*, REP+13, REP+40, REP+45, REPLD+3, REPLD+4 |
| DDS1PTB | BLK+7~*, BLK+9*, BLK+12 |
| DDS1Q | REP+2~, REP+27*, REP+28*, REP+29, REP+33*, REP+34*, REP+35 |
| DDS1REF | REP+1~, REP+3*, REP+13*, REP+14, REP+17, REP+40, REP+45*, REPLD+3, REPLD+4 |
| DDS1REP | BLK+7~, BLK+9*, BLK+10!, BLK+13, BLK+32, REP+5, REP+6, REP+41, REP+42, REP+45 |
| DDS1RT | REP+1~, REP+17*, REP+23, REP+25, REP+27, REP+33, REPLD+1 |
| DDS1SCNT | REP+2~, REP+27*, REP+28, REP+33*, REP+34 |
| DDS1SEL | REP+1~, REP+7*, REP+13 |
| DDS1SN | REP+2~, REP+18*, REP+40*, REP+41, REP+42, REPLD+2*, REPLD+3, REPLD+4 |
| DDS1STRT | REP+2~, REP+27*, REP+28, REP+33*, REP+34 |
| DDS1VAL | REP+2~, REP+31*, REP+33 |
| DDSDA | BLK+12~, BLK+17, BLK+20, BLK+25*, BLK+27*, BLK+30, BLK+31, BLK+34, BLK+37, REP+8 , REP+14, REP+17, REP+22*, REP+31~, REP+32*, REP+49*, REPLD+2*, REPLD+3, REPLD+4 |
| >> DDSDAORG | BLK+30 |
| DDSDL | BLK+12~, BLK+17, BLK+18, BLK+20, REP+21, REP+48, REPLD+2 |
| DDSPG | DDS1~, DDS1+21, DDS1+22, DDS1+25, BLK~, BLK+9, BLK+27, BLK+30, BLK+31, BLK+34 , BLK+37, REP+3, REP+4, REP+7 |
| >> DDSREFS | REP+4, REP+7 |
| >> DDSREFT | BLK+27, BLK+30, BLK+31*, BLK+34, BLK+37*, REP+3 |
| DIE | BLK+12~, BLK+17, BLK+20, BLK+22, BLK+23, BLK+34, REP+14, REP+16~, REP+17* |
| >> DIERR | DDS1+22, DDS1+25, BLK+12, BLK+14, BLK+15, BLK+21, BLK+26 |
| DL | D0~, D0+2, GETD0~, GETD0+2, GETD0+3 |
| I | D0+1~, D0+2*, GETD0+1~, GETD0+3* |
| N | REP+38~, REP+39*, REP+40, REP+41, REP+42 |
| S | D0+1~, D0+2*, D0+3*, D0+4 |
| T | REP+38~, REP+41*, REP+42 |
| U | DDS1+18*, DDS1+21, BLK+27, BLK+31, BLK+37, REP+4, REP+5, REP+6, REP+7, REP+13 , REP+14, REP+42, REP+45 |
| Y | REPLD+1~* |