©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
MCDBELM ;WISC/DCB-save and load util. ;8/15/96 09:52
Source file <MCDBELM.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RTNDR(TEMP,TYPE) | ;Return The DR value
|
|
| STR(XTEMP) | ;GET THE DATA VALUE (used by RTNELM)
|
|
| RTNFILE(FILE,FIELDS) | ;Get the Subfile -This is used og RTELM-
|
|
| TOTAL(ARRAY) | ;Find the total count in an array used by calls)
|
|
| CHKFILE(FILE) | ;This validates if global reference is a fileMan file & exists
|
|
| RTNDIE(TEMP) | ;Return the DIE value
|
|
| RTNELM(FILE,REC,FIELDS,EXC,DATA,TYPE,USER,TEMP,ERROR) | ;RTN the elements in an array
|
|
| RTNDA(TEMP,ARRAY,ERROR) | ;Return The DA value
|
| Name | Field # of Occurrence |
|---|---|
| ^DIM | RTNELM+18, CHKFILE+3 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | RTNELM+11, RTNELM+12, RTNELM+15, RTNELM+16, RTNFILE+4, RTNFILE+5, RTNDIE+7 |
| ^DIC - [#1] | RTNDIE+3 |
| Name | Line Occurrences |
|---|---|
| $$CHKFILE | RTNDIE+12 |
| $$RTNDIE | RTNELM+22 |
| $$RTNFILE | RTNELM+3 |
| $$TOTAL | RTNDA+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | RTNDA~, RTNDA+6*, TOTAL~ |
| ARRAY( | RTNDA+4*, RTNDA+5 |
| ARRAY(0 | RTNDA+6! |
| BACK | RTNELM+1~, RTNELM+7*, RTNELM+12, RTNELM+23*, RTNELM+24, RTNELM+25 |
| COUNT | RTNELM+2~, RTNELM+6*, RTNELM+7, RTNELM+12, RTNELM+16, RTNDA+1~, RTNDA+3*, RTNDA+4, RTNDA+5, TOTAL+1~* , TOTAL+2* |
| COUNT2 | RTNELM+2~, RTNELM+13*, RTNELM+16 |
| DATA | RTNELM~, RTNELM+16 |
| >> ERORR | RTNFILE+4* |
| ERROR | RTNELM~, RTNELM+2*, RTNELM+6, RTNELM+9*, RTNELM+10*, RTNELM+11*, RTNELM+12*, RTNELM+13, RTNELM+14*, RTNELM+15* , RTNELM+18*, RTNELM+26*, RTNFILE+1~, RTNFILE+2*, RTNFILE+3, RTNFILE+5*, RTNFILE+7, RTNDIE+1~*, RTNDIE+5, RTNDIE+9* , RTNDIE+12*, RTNDIE+13, RTNDR+6, RTNDA~, RTNDA+1*, RTNDA+3, RTNDA+5*, CHKFILE+1*, CHKFILE+4*, CHKFILE+5 |
| EXC | RTNELM~ |
| EXC( | RTNELM+17 |
| FIELDS | RTNELM~, RTNELM+3, RTNELM+4, RTNFILE~, RTNFILE+3 |
| FILE | RTNELM~, RTNELM+3*, RTNELM+4, RTNFILE~, RTNFILE+2, CHKFILE~, CHKFILE+2, CHKFILE+4 |
| FILES | RTNELM+1~ |
| FLD | RTNELM+1~, RTNELM+13*, RTNELM+14, RTNELM+15, RTNELM+16, RTNELM+17, RTNDR+7, RTNDR+8 |
| FLDS | RTNELM+1~ |
| HOLD | RTNELM+1~, RTNELM+12*, RTNELM+24*, RTNELM+25, RTNDA+1~, STR+1~, STR+3*, STR+4 |
| LOOP | STR+1~, STR+2*, STR+3 |
| REC | RTNELM~, RTNELM+4 |
| RECS | RTNELM+1~ |
| TEMP | RTNELM~, RTNELM+22, RTNDIE~, RTNDIE+2, RTNDR~, RTNDR+3, RTNDA~, RTNDA+1, RTNDA+2, STR+1~ , STR+2*, STR+3 |
| TEMP( | RTNELM+4*, RTNELM+7, RTNELM+19, RTNELM+20, RTNDIE+5, RTNDIE+6, RTNDA+4, TOTAL+2 |
| TEMP("DIC" | RTNELM+22*, RTNELM+23, RTNELM+24, RTNELM+25, RTNELM+26 |
| TEMP("EXC" | RTNELM+17*, RTNDR+6, RTNDR+7 |
| TEMP("FLD" | RTNELM+16*, RTNDR+5, RTNDR+7, RTNDR+8*, RTNDR+10 |
| TEMP("FLDNAME" | RTNELM+16* |
| TEMP("GLO" | RTNELM+25* |
| TEMP("TYP" | RTNELM+16*, RTNDR+9 |
| TEMP("USER" | RTNELM+21* |
| TEMP("X" | RTNELM+19* |
| TEMP("XF" | RTNELM+20* |
| TEMP(1 | RTNDIE+3 |
| TMP | RTNELM+2~ |
| TMP1 | RTNELM+2~ |
| TMP2 | RTNELM+2~ |
| TOTAL | RTNELM+1~, RTNELM+4*, RTNELM+5*, RTNELM+6, RTNELM+16, RTNELM+19, RTNELM+20, RTNDA+1~*, RTNDA+3, RTNDA+4 , RTNDA+5, TOTAL+1~*, TOTAL+2*, TOTAL+3 |
| TYPE | RTNELM~, RTNELM+16, RTNDR~, RTNDR+2*, RTNDR+6, RTNDR+11, RTNDR+12 |
| U | RTNELM+4, RTNELM+8, RTNELM+12, RTNELM+16, RTNELM+19, RTNELM+20, RTNFILE+3, RTNFILE+5, RTNFILE+6, RTNDIE+3 , RTNDIE+6, RTNDIE+7, RTNDIE+8, RTNDA+4 |
| USER | RTNELM~, RTNELM+21 |
| X | RTNELM+1~, RTNELM+17*, RTNELM+18, RTNDR+7*, RTNDR+8, CHKFILE+1~, CHKFILE+2*, CHKFILE+4 |
| XBACK | RTNDIE+1~, RTNDIE+6*, RTNDIE+7 |
| XCOUNT | RTNFILE+1~, RTNFILE+3* |
| XDAT | RTNDR+1~, RTNDR+10*, RTNDR+11 |
| XDR | RTNDR+1~, RTNDR+4*, RTNDR+10*, RTNDR+11*, RTNDR+12*, RTNDR+13 |
| XERROR | RTNDR+1~, RTNDR+4* |
| XFILE | RTNELM+1~, RTNELM+4*, RTNELM+8*, RTNELM+9, RTNELM+11, RTNELM+12, RTNELM+15, RTNELM+16, RTNFILE+1~, RTNDIE+1~ , RTNDIE+3*, RTNDIE+4, RTNDIE+6*, RTNDIE+11*, RTNDIE+12, RTNDIE+13 |
| XFLD | RTNELM+1~, RTNELM+4*, RTNELM+8*, RTNELM+13, RTNFILE+1~, RTNFILE+3*, RTNFILE+4, RTNDR+1~, RTNDR+4*, RTNDR+5* , RTNDR+9, RTNDR+10, RTNDR+11, RTNDR+12 |
| XFLDN | RTNFILE+1~ |
| XHLD | RTNDR+1~, RTNDR+9*, RTNDR+11 |
| >> XHOLD | RTNDR+6, RTNDR+7 |
| XLOOP | RTNDIE+1~, RTNDIE+3*, RTNDIE+5*, RTNDIE+6 |
| XNODE | RTNDIE+1~, RTNDIE+7*, RTNDIE+8*, RTNDIE+9, RTNDIE+10*, RTNDIE+11 |
| XREC | RTNELM+1~, RTNELM+4*, RTNELM+8*, RTNELM+10 |
| XSFILE | RTNFILE+1~, RTNFILE+2*, RTNFILE+6*, RTNFILE+7 |
| XTEMP | RTNELM+2~, RTNELM+7*, RTNELM+8, STR~, STR+2 |
| XTFILE | RTNELM+2~, RTNFILE+1~, RTNFILE+2*, RTNFILE+4, RTNFILE+5*, RTNFILE+6 |
| XTMP | RTNFILE+1~, RTNFILE+4*, RTNFILE+5 |
| XTMP2 | RTNFILE+1~, RTNFILE+3* |
| XTYPE | RTNDR+1~, RTNDR+4*, RTNDR+9, RTNDR+11 |
| Y | RTNELM+1~ |