©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
MCARAM7 ;WASH ISC/JKL-MUSE SUMMARY LOOKUP AND FILE IN DHCP ;6/26/96 12:27
Source file <MCARAM7.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GRERR(MCA) | ;Find first fatal error
|
|
| LSUM(MCDT,MCNM,MCS) | ;
; Where MCDT is Date/time of record in FileMan format ; MCNM is Name of patient equivalent to name in Patient file (#2) ; MCS is array into which data is placed |
|
| LOG(MCERR) | ;Logs type of error in local array
|
|
| KPERR(MCA,MCS) | ;Transfer local array data into new 700.5 Summary record in DHCP
; occurs for every data transfer attempt whether or not successful |
|
| RFFL(MCA,MCS) | ; Convert processing errors to 700.5 file fields
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| ^MCAR(700.5 - [#700.5] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^MCAR(700.5 - [#700.5] | LSUM+10, LSUM+11 |
| Name | Line Occurrences |
|---|---|
| $$GRERR | RFFL+14 |
| $$RFFL | KPERR+22 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | KPERR+12~, KPERR+15 |
| D | LSUM+6~, LSUM+7* |
| DD | KPERR+30! |
| DIC | LSUM+6~, LSUM+7*, KPERR+12~, KPERR+30* |
| DIC("DR" | KPERR+29* |
| DIC(0 | LSUM+7*, KPERR+30* |
| DLAYGO | KPERR+30~* |
| DO | KPERR+30! |
| MCA | KPERR~, KPERR+22, RFFL~, RFFL+14, GRERR~ |
| MCA( | KPERR+24 |
| MCA("DT" | KPERR+30, RFFL+17* |
| MCA("ERR" | RFFL+16, GRERR+7, GRERR+8, GRERR+9*, LOG+4* |
| MCA("NAME" | KPERR+26 |
| MCDT | LSUM~, LSUM+10, LSUM+11 |
| MCERR | LSUM+6~, LSUM+8*, LSUM+10*, LSUM+12*, KPERR+12~, KPERR+33*, RFFL+16*, RFFL+17, RFFL+18, GRERR+6~ , GRERR+8*, GRERR+9, LOG~, LOG+4, LOG+5 |
| MCI | LSUM+6~, LSUM+11*, KPERR+12~, KPERR+29*, GRERR+6~, GRERR+8* |
| >> MCINST | KPERR+20 |
| MCJ | GRERR+6~, GRERR+8* |
| MCNM | LSUM~, LSUM+7 |
| MCS | LSUM~, KPERR~, KPERR+22, RFFL~ |
| MCS( | KPERR+15*, KPERR+29 |
| MCS("FLDT" | KPERR+15*, RFFL+17 |
| MCS("NAME" | LSUM+9*, LSUM+11 |
| MCS("PID" | LSUM+9* |
| MCS("SUM" | LSUM+6*, LSUM+11*, LSUM+12, KPERR+32* |
| MCS(1 | KPERR+20* |
| MCS(2 | KPERR+24* |
| MCS(3 | KPERR+26* |
| MCS(4 | KPERR+22* |
| MCS(5 | KPERR+13* |
| MCS(6 | RFFL+14*, RFFL+16* |
| MCS(7 | KPERR+28* |
| >> MCTYPE | KPERR+28 |
| U | LSUM+9 |
| X | LSUM+6~, LSUM+7*, KPERR+12~, KPERR+30* |
| Y | LSUM+6~, LSUM+8, LSUM+9, KPERR+12~, KPERR+32 |
| Y(0 | LSUM+9 |