©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
MCDBSAVE ;WISC/DCB-save and load util. ;7/18/96 14:08
Source file <MCDBSAVE.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | ^DIE EN^DIQ1 |
| Medicine | 1 | ($$RTNDR,$$TOTAL,RTNDA,RTNELM)^MCDBELM |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SAVE(FILE,REC,FIELDS,EXC,DATA,TYPE,USER,ERROR) | ;SAVE some fields
|
|
| SETREC(TEMP,ERROR) | ;Save the record
|
|
| CHECK(TEMP) | ;Checks the field values
|
|
| GETDATA(TEMP,ERROR) | ;RETRIEVE THE DATA THAT WAS SAVED
|
|
| LOAD(FILE,REC,FIELDS,EXC,TYPE,TEMP,ERROR) | ;LOAD some fields
|
| Name | Line Occurrences |
|---|---|
| $$CHECK | SAVE+5 |
| GETDATA | LOAD+2 |
| SETREC | SAVE+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | SETREC+1~, SETREC+6, SETREC+8, CHECK+1~, CHECK+6, CHECK+9, GETDATA+1~, GETDATA+7, GETDATA+10 |
| DATA | SAVE~, SAVE+3 |
| DIC | SETREC+1~, CHECK+1~, CHECK+4*, GETDATA+1~, GETDATA+4*, GETDATA+5 |
| DIE | SETREC+1~, SETREC+5*, CHECK+4, GETDATA+5 |
| DIQ | CHECK+1~, CHECK+7*, CHECK+9, GETDATA+1~, GETDATA+8*, GETDATA+10 |
| DIQ(0 | CHECK+7*, GETDATA+8* |
| DIROUT | SETREC+1~ |
| DIRUT | SETREC+1~ |
| DR | SETREC+1~, SETREC+4*, CHECK+1~, CHECK+4*, CHECK+5*, GETDATA+1~, GETDATA+4*, GETDATA+6* |
| DTOUT | SETREC+1~, SETREC+9 |
| DUOUT | SETREC+1~ |
| ERROR | SAVE~, SAVE+2*, SAVE+3, SAVE+4, SAVE+5*, SETREC~, SETREC+2*, SETREC+3*, SETREC+4*, SETREC+5* , SETREC+6, SETREC+8*, SETREC+9*, SETREC+10*, CHECK+1~, CHECK+2*, CHECK+5, CHECK+6, CHECK+10, CHECK+14* , CHECK+15, LOAD~, LOAD+1, LOAD+2, GETDATA~, GETDATA+2*, GETDATA+3*, GETDATA+5*, GETDATA+6, GETDATA+7 , GETDATA+11 |
| ERROR(1 | CHECK+14* |
| ERROR(2 | CHECK+14* |
| ERROR(3 | CHECK+14* |
| EXC | SAVE~, SAVE+3, LOAD~, LOAD+1 |
| FIELDS | SAVE~, SAVE+3, LOAD~, LOAD+1 |
| FILE | SAVE~, SAVE+3, LOAD~, LOAD+1 |
| FILES | SAVE+1~ |
| FLDS | SAVE+1~ |
| REC | SAVE~, SAVE+3, LOAD~, LOAD+1 |
| RECS | SAVE+1~ |
| TEMP | SAVE+1~, SAVE+3, SAVE+4, SAVE+5, SETREC~, SETREC+3, SETREC+4, SETREC+6, CHECK~, CHECK+4 , CHECK+5, CHECK+6, LOAD~, LOAD+1, LOAD+2, GETDATA~, GETDATA+3, GETDATA+4, GETDATA+6, GETDATA+7 |
| TEMP( | CHECK+9, GETDATA+10 |
| TEMP("DIC" | SETREC+5, CHECK+4, GETDATA+4 |
| TEMP("EXC" | GETDATA+14 |
| TEMP("FLD" | CHECK+10, CHECK+11, GETDATA+15* |
| TEMP("TYP" | GETDATA+11, GETDATA+12 |
| TEMP("USER" | SETREC+10, CHECK+3 |
| TYPE | SAVE~, SAVE+3, LOAD~, LOAD+1 |
| U | CHECK+9, GETDATA+10, GETDATA+15 |
| USER | SAVE~, SAVE+3 |
| X | GETDATA+1~, GETDATA+14* |
| XEXT | CHECK+2~, CHECK+13*, CHECK+14, GETDATA+2~, GETDATA+13*, GETDATA+14*, GETDATA+15 |
| XFILE | CHECK+2~, CHECK+9*, GETDATA+2~, GETDATA+10* |
| XFLD | CHECK+2~, CHECK+11*, GETDATA+2~ |
| XHOLD | CHECK+1~, CHECK+9*, CHECK+10*, CHECK+11, CHECK+13, CHECK+14, GETDATA+1~, GETDATA+10*, GETDATA+11*, GETDATA+12 , GETDATA+13, GETDATA+14, GETDATA+15 |
| XINT | CHECK+2~, CHECK+13*, CHECK+14, GETDATA+2~, GETDATA+13*, GETDATA+14*, GETDATA+15 |
| XPLACE | CHECK+1~, CHECK+9*, CHECK+13, GETDATA+1~, GETDATA+10*, GETDATA+13 |
| XSTR | CHECK+2~, CHECK+11*, CHECK+12*, CHECK+14, GETDATA+2~ |
| XTOTAL | CHECK+1~, CHECK+4*, CHECK+9, GETDATA+1~, GETDATA+4*, GETDATA+10 |
| XTYP | GETDATA+2~, GETDATA+12*, GETDATA+15 |
| Y | SETREC+1~, SETREC+10 |