©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
DDSZ1 ;SFISC/MKO-GET BLOCK INFO,SCREEN IMAGE ;9:59 AM 15 Jul 1997
Source file <DDSZ1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| KILL | ||
| FLD | ;Set up
; @DDSREFS@(pg,bk,ddo, ; "D") = data $Y^data $X^data $L^field# ; ^xcap $Y^xcap $X^xcap colon^xcap req ; ^1 if computed field^1 if right justified ; "COMPE") = M code that sets X ; "COMPE",1) = array sets DDSE(n) |
|
| EN(DDSPG,DDSBK,DDP,DDSBY,DDSBX,DDSBO,DDSTP,DDSREP,DDSNDD,DDSPGRP,DDSSCR,DDSNAV,DDSORD,DDSRNAV) | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | FLD+19 |
| ^DD("KEY" - [#.31] | FLD+20 |
| ^DIST( | EN+16, FLD+16, FLD+17, FLD+59 |
| Name | Line Occurrences |
|---|---|
| FLD | EN+16 |
| Name | Field # of Occurrence |
|---|---|
| ^( | FLD+17 |
| ^(0 | FLD+16* |
| ^(1 | FLD+17 |
| ^(2 | FLD+17 |
| ^(4 | FLD+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| C | FLD+32~, FLD+35*, FLD+36*, FLD+37*, FLD+38, FLD+39*, FLD+40 |
| DDP | EN~, FLD+19, FLD+20, FLD+53, FLD+60 |
| DDSAR | FLD+58!, FLD+60, FLD+63*, FLD+64, FLD+65, FLD+66, FLD+67, FLD+69*, FLD+70 |
| DDSAR( | FLD+64*, FLD+65, FLD+66, FLD+67 |
| DDSBK | EN~, EN+12, EN+13, EN+16, FLD+16, FLD+17, FLD+38, FLD+40, FLD+52, FLD+53 , FLD+54, FLD+55, FLD+59, FLD+60, FLD+62, FLD+64, FLD+65, FLD+67, FLD+68, FLD+71 , FLD+78, FLD+79, FLD+83 |
| DDSBO | EN~, EN+11, EN+12, EN+13, FLD+77, FLD+82, FLD+83, FLD+84, FLD+85, FLD+86 |
| DDSBX | EN~, FLD+22, FLD+25 |
| DDSBY | EN~, FLD+21, FLD+24 |
| DDSC1 | KILL!, FLD+24*, FLD+29, FLD+43, FLD+47, FLD+48, FLD+54 |
| DDSC2 | KILL!, FLD+25*, FLD+29, FLD+43, FLD+47, FLD+48, FLD+54 |
| DDSCAP | KILL!, FLD+26*, FLD+27, FLD+29, FLD+43, FLD+45, FLD+48, FLD+54 |
| DDSCLN | KILL!, FLD+27*, FLD+45, FLD+54 |
| DDSCOMP | FLD+58!, FLD+59*, FLD+60 |
| DDSD1 | KILL!, FLD+21*, FLD+51, FLD+52, FLD+73, FLD+78, FLD+82, FLD+83, FLD+84, FLD+85 , FLD+86 |
| DDSD2 | KILL!, FLD+22*, FLD+51, FLD+52, FLD+73, FLD+78, FLD+82, FLD+84, FLD+85, FLD+86 |
| DDSD3 | KILL!, FLD+23*, FLD+51, FLD+52, FLD+73 |
| DDSDDL0 | KILL+1!, FLD+19*, FLD+48, FLD+54, FLD+74, FLD+75, FLD+79 |
| DDSEXP | FLD+58!, FLD+60, FLD+61, FLD+62 |
| DDSF | EN+15*, EN+16*, KILL+1!, FLD+16, FLD+17, FLD+38, FLD+40, FLD+52, FLD+53, FLD+54 , FLD+55, FLD+59, FLD+62, FLD+64, FLD+65, FLD+67, FLD+68, FLD+71, FLD+77, FLD+78 , FLD+79, FLD+84, FLD+85, FLD+86 |
| DDSFD | FLD+58!, FLD+60, FLD+69, FLD+70 |
| DDSFLD | KILL+1!, FLD+17*, FLD+19, FLD+20, FLD+52, FLD+53, FLD+74 |
| DDSI | FLD+44~, FLD+46*, FLD+47, FLD+48 |
| DDSKEY | KILL+1!, FLD+20*, FLD+48, FLD+54 |
| DDSL0 | KILL+1!, FLD+17*, FLD+18, FLD+19, FLD+26, FLD+27, FLD+31, FLD+35, FLD+58, FLD+77 |
| DDSL01 | KILL+1!, FLD+17* |
| DDSL2 | KILL+1!, FLD+17*, FLD+19, FLD+21, FLD+22, FLD+23, FLD+24, FLD+25, FLD+27, FLD+73 |
| DDSL4 | KILL+1!, FLD+17*, FLD+48, FLD+54, FLD+55 |
| >> DDSMUL( | FLD+79* |
| DDSN | KILL+1! |
| DDSNAV | EN~ |
| DDSNAV( | FLD+78*, FLD+82* |
| DDSNDD | EN~, FLD+18! |
| DDSORD | EN~ |
| DDSORD( | EN+11, EN+12*, EN+13*, FLD+77* |
| DDSPG | EN~, FLD+33, FLD+38, FLD+40, FLD+52, FLD+53, FLD+54, FLD+55, FLD+68, FLD+71 |
| DDSPGRP | EN~ |
| DDSPGRP( | FLD+33, FLD+38, FLD+40 |
| >> DDSREFS | FLD+38, FLD+40, FLD+52, FLD+53, FLD+54*, FLD+55*, FLD+62, FLD+64, FLD+65, FLD+67 , FLD+68*, FLD+71 |
| DDSREP | EN~, EN+13, FLD+46, FLD+81 |
| DDSRNAV | EN~ |
| DDSRNAV( | FLD+83*, FLD+84*, FLD+85*, FLD+86* |
| DDSSCR | EN~ |
| DDSSCR( | FLD+47*, FLD+48* |
| DDSTP | EN~, EN+10*, EN+11, FLD+31, FLD+74, FLD+75 |
| DDSX | FLD+44~, FLD+45*, FLD+47 |
| >> DIERR | FLD+61 |
| F | FLD+70~*, FLD+71 |
| I | FLD+32~, FLD+33*, FLD+34, FLD+38, FLD+40, FLD+66~*, FLD+67 |
| L | FLD+32~, FLD+38*, FLD+39 |
| U | EN+13, FLD+16, FLD+17, FLD+18, FLD+21, FLD+22, FLD+23, FLD+24, FLD+25, FLD+26 , FLD+27, FLD+31, FLD+33, FLD+35, FLD+48, FLD+52, FLD+54, FLD+55, FLD+58, FLD+68 , FLD+69, FLD+70, FLD+74, FLD+75, FLD+79 |
| Y | EN+9~ |