©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
MCARPS3 ; HOIFO/NCA - Get Procedures for Medicine and CP ;1/13/04 14:35
Source file <MCARPS3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EXIT | ||
| CONT1 | ;
|
|
| CONT | ;CONT+1 modified on 2-7-94,S MCFILE..2) added to conform w/alpha site
|
|
| EN(MCDFN,CODE,MDSDT,MDEDT) | ;Get procedures for a patient
|
|
| PR0 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | PR0+12 |
| ^MCAR( | CONT+1 |
| ^MCAR(694 - [#694] | CONT+14 |
| ^MCAR(697.2 - [#697.2] | CONT+3, CONT+6, CONT+9, CONT+11, CONT+14, CONT+16, CONT1+1, CONT1+3, CONT1+11, CONT1+15 , CONT1+20, PR0+5 |
| ^MCAR(699 - [#699] | CONT+3 |
| ^MCAR(699.5 - [#699.5] | CONT+5, CONT+6, CONT+8, CONT+9 |
| ^TMP("MDPLST" | PR0+14* |
| ^TMP("OR" | EN+1!, CONT1+11*, CONT1+15*, CONT1+16*, CONT1+17*, CONT1+20*, PR0+1, PR0+2, PR0+15! |
| Name | Line Occurrences |
|---|---|
| CONT | EN+6 |
| CONT1 | CONT+3, CONT+6, CONT+12, CONT+13, CONT+14 |
| EXIT | CONT1+9 |
| PR0 | EN+7 |
| Name | Field # of Occurrence |
|---|---|
| ^( | PR0+2, PR0+14* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CODE | EN~, PR0+9 |
| >> DA | PR0+7*, PR0+13, PR0+14 |
| >> I | PR0*, PR0+1*, PR0+2, PR0+4, PR0+14 |
| >> J | PR0+2*, PR0+4, PR0+14 |
| >> K | PR0+7*, PR0+8*, PR0+9, PR0+14 |
| >> L | PR0*, PR0+13*, PR0+14 |
| >> LL | CONT+3*, CONT+6*, CONT+9*, CONT+14*, CONT+16*, CONT1+1, CONT1+5, CONT1+17 |
| >> LL1 | CONT+3*, CONT+6*, CONT+9*, CONT+14*, CONT+16*, CONT1+11, CONT1+15 |
| LL6 | CONT+5*, CONT+8*, CONT+12, CONT1+20! |
| LL8 | CONT+5*, CONT+8*, CONT+13, CONT1+19*, CONT1+20! |
| LLX | CONT+10~, CONT+11*, CONT+12, CONT+13 |
| LLY | CONT+10~, CONT+11*, CONT+12, CONT+13 |
| >> M | PR0+7*, PR0+14 |
| >> MCARCODE | CONT1+2* |
| >> MCARDT | PR0+4*, PR0+10, PR0+11, PR0+12 |
| MCARFILE | CONT1+4*, CONT1+5! |
| >> MCARPROC | PR0+4*, PR0+5*, PR0+6*, PR0+13, PR0+14 |
| MCARPSUM | CONT1+4*, CONT1+7!, CONT1+16, EXIT! |
| MCARSUM | CONT1+4*, CONT1+7!, CONT1+11, EXIT! |
| MCDFN | EN~, EN+4, CONT1+8 |
| MCDT | PR0+12~*, PR0+14 |
| >> MCESKEY | CONT1+3*, CONT1+7 |
| MCESON | CONT1+3*, CONT1+7, EXIT! |
| MCFILE | CONT+1*, CONT1+6*, CONT1+7! |
| MCSUP | CONT1+3*, CONT1+7!, EXIT! |
| MDEDT | EN~, PR0+11 |
| MDGBL | EN+2~, EN+3*, EN+4*, EN+5 |
| MDPTR | EN+2~, EN+5* |
| MDSDT | EN~, PR0+10 |
| >> PE | CONT+3, CONT+4, CONT+7, CONT+11, CONT+14 |
| >> PR | PR0+2*, PR0+3, PR0+6, PR0+7, PR0+14 |
| REC | CONT1+1*, CONT1+3, CONT1+7!, EXIT! |
| >> S1 | CONT1+5*, CONT1+11, CONT1+15, CONT1+16, CONT1+17, CONT1+20 |
| >> S2 | CONT1+5*, CONT1+10*, CONT1+11, CONT1+15, CONT1+16, CONT1+17, CONT1+20 |
| >> S4 | EN+5*, CONT1+5 |
| S5 | EN+5*, EN+8!, CONT+1, CONT+2, CONT+3, CONT+4, CONT+7, CONT+14, CONT+16, CONT1+4 , CONT1+6, CONT1+8, CONT1+9, CONT1+11, CONT1+15, CONT1+18 |
| >> S6 | EN+5*, CONT+1, CONT+3, CONT+5, CONT+6, CONT+8, CONT+9, CONT+14, CONT1+4, CONT1+7 , CONT1+8, CONT1+9, CONT1+10, CONT1+11 |
| U | CONT+3, CONT+5, CONT+6, CONT+8, CONT+9, CONT+11, CONT+14, CONT+16, CONT1+3, CONT1+4 , CONT1+9, CONT1+10, CONT1+11, CONT1+15, CONT1+16, CONT1+17, CONT1+20, PR0+3, PR0+4, PR0+5 , PR0+6, PR0+7, PR0+14 |
| >> WH | EN+1*, CONT1+5, PR0+4, PR0+14 |
| >> Y | PR0+12*, PR0+14 |