©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
DIT3 ;SFISC/TKW - SILENT TRANSFER/MERGE ROUTINE ;10/14/94 13:50
Source file <DIT3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SD0 | ||
| IENCHK(DIFILE,DIIEN) | ;EXTRINSIC FUNCTIO TO CHECK THAT IEN STRING AND FILE/SUBFILE NO. ARE IN SYNC
|
|
| ERX | ||
| TRNMRG | ; TRANSFER OR MERGE RECORDS SILENTLY (CALLED FROM TRNMRG^DIT)
|
|
| ERR3 | ||
| ERR2 | ||
| ERR1 | ||
| ERR0 | ||
| ERR5 | ||
| ERR4 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | TRNMRG+5, TRNMRG+6, TRNMRG+10, TRNMRG+11, SD0+8, SD0+9, SD0+11, SD0+12, IENCHK+5, IENCHK+6 |
| ^UTILITY("DITR" | SD0+15! |
| Name | Line Occurrences |
|---|---|
| $$IENCHK | SD0+5 |
| ERR0 | TRNMRG+3 |
| ERR1 | SD0+3 |
| ERR2 | SD0+7, SD0+8 |
| ERR3 | TRNMRG+5, TRNMRG+6, TRNMRG+7, ERR1 |
| ERR4 | SD0+14 |
| ERR5 | TRNMRG+9 |
| ERX | IENCHK+3, IENCHK+4 |
| SD0 | SD0 |
| Name | Field # of Occurrence |
|---|---|
| ^("UP" | TRNMRG+11, IENCHK+6 |
| ^(0 | SD0+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | SD0+15~, SD0+19~ |
| A | SD0+15~, SD0+16*, SD0+19~, SD0+20, SD0+21 |
| B | SD0+19~ |
| DA | TRNMRG+1~, SD0+1*, SD0+26!* |
| DA( | TRNMRG+8*, SD0, SD0+26* |
| DA(0 | SD0+1! |
| DDF | TRNMRG+1~ |
| DDF( | SD0+2*, SD0+16 |
| DDT | TRNMRG+1~ |
| DDT( | SD0+2*, SD0+16 |
| DFL | TRNMRG+1~, TRNMRG+8*, SD0+2, SD0+3, SD0+6, SD0+7, SD0+12, SD0+16, SD0+21*, SD0+22* , SD0+24 |
| DFN | SD0+19~ |
| DFN( | SD0+24* |
| DFR | TRNMRG+1~, TRNMRG+4*, SD0+3 |
| DFR( | SD0+3* |
| DIC | SD0+15~, SD0+19~ |
| >> DIERR | SD0+3, SD0+6, SD0+9 |
| DIERRMSG | TRNMRG+1~, TRNMRG+5*, TRNMRG+6*, TRNMRG+7*, ERR1*, ERR2*, ERR3 |
| >> DIFFNO | TRNMRG+4*, TRNMRG+5, TRNMRG+6, TRNMRG+10, TRNMRG+11, SD0+2, SD0+3, SD0+14, SD0+18, ERR5 |
| >> DIFIEN | TRNMRG+7, TRNMRG+8, SD0+3, SD0+4, ERR5 |
| DIFILE | IENCHK~, IENCHK+5, IENCHK+6*, ERX |
| >> DIFLG | TRNMRG+2, SD0+18, SD0+25, ERR0 |
| DIIEN | IENCHK~, IENCHK+3, ERX |
| DIIX | SD0+19~ |
| DIK | TRNMRG+1~, SD0+6* |
| DINUM | SD0+19~ |
| DITF | TRNMRG+1~, SD0+14 |
| >> DITFNO | TRNMRG+4, TRNMRG+6*, SD0+2, SD0+5, SD0+6, SD0+8, SD0+9, SD0+11, SD0+12, SD0+14 , SD0+18 |
| DITIEN | SD0+4*, SD0+5, SD0+6, SD0+7, SD0+8, SD0+9!, SD0+10!, SD0+11!, SD0+20, SD0+22* , SD0+26 |
| DITYPM | TRNMRG+1~, TRNMRG+2*, TRNMRG+3 |
| DIZZ | TRNMRG+1~, SD0+3*, SD0+21 |
| DKP | TRNMRG+1~, SD0+18* |
| DMRG | TRNMRG+1~, SD0+18* |
| DTL | TRNMRG+1~, SD0+21*, SD0+24* |
| DTN | SD0+19~ |
| DTO | TRNMRG+1~, SD0+18* |
| DTO( | SD0+6*, SD0+7*, SD0+12 |
| I | TRNMRG+1~, TRNMRG+2*, TRNMRG+8*, TRNMRG+9*, TRNMRG+10, SD0*, SD0+26*, IENCHK+2~, IENCHK+3*, IENCHK+4* , IENCHK+5, ERX!, ERR5! |
| I("IENS" | ERX*, ERR5* |
| I(1 | ERX*, ERR5* |
| J | TRNMRG+1~, TRNMRG+8*, TRNMRG+9*, TRNMRG+10*, TRNMRG+11*, TRNMRG+13*, SD0~*, SD0+26*, IENCHK+2~, IENCHK+4* , IENCHK+6* |
| L | SD0+15~, SD0+16* |
| L( | SD0+16* |
| U | SD0+11, SD0+12 |
| V | SD0+15~, SD0+19~ |
| W | SD0+19~ |
| X | SD0+9~*, SD0+12, SD0+15~, SD0+19~ |
| Y | SD0+9~*, SD0+10, SD0+15~, SD0+19~, SD0+22 |
| Z | TRNMRG+1~, TRNMRG+11~*, SD0+9~*, SD0+10, SD0+12*, SD0+15~, SD0+21* |