©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
MCPOS0C ;HIRMFO/RMP,DAD-ASTM file update ;7/24/96 08:39
Source file <MCPOS0C.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START(FILE) | ;DESIGNED TO CREATE MCPMVA - Medicine View ASTM subfile
|
|
| SCODE(STEMP,SDA,FILE) | ;
|
|
| STUFF(ROUTINE,TFILE) | ;ROUTINE is set to "MCPMVA"
|
|
| ASTM(ENTRY) | ;
|
|
| TMP(FILE,REC) | ;FOR EVERY Template with ASTM pointers in the SUB OR
; SUBSUBfile structure GET ASTM ID's |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^MCAR( | START+6, START+7, START+8, START+10, TMP+4, TMP+5 |
| ^MCAR(690.5 - [#690.5] | TMP+7, ASTM+3, ASTM+4 |
| Name | Line Occurrences |
|---|---|
| $$ASTM | SCODE+3 |
| $$TMP | START+8 |
| SCODE | STUFF+13 |
| STUFF | MCPOS0C+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | TMP+2~, TMP+3*, TMP+9*, TMP+10*, TMP+12 |
| ASTM | SCODE+3*, ASTM+1~*, ASTM+3, ASTM+4*, ASTM+6 |
| CNT | TMP+2~, TMP+3*, TMP+4*, TMP+5 |
| CODE | START+4~, SCODE+1~, SCODE+6*, ASTM+2*, ASTM+3 |
| >> CODE2 | SCODE+6*, ASTM+2*, ASTM+4 |
| COUNT | START+4~, START+5*, STUFF+2~ |
| DA | STUFF+11!, STUFF+12*, STUFF+13, SCODE+8!, SCODE+9*, SCODE+12! |
| DA(1 | SCODE+4* |
| DATE | SCODE+1~ |
| DIC | STUFF+9*, STUFF+11!, SCODE+4*, SCODE+8!, SCODE+9! |
| DIC("P" | SCODE+5* |
| DIC(0 | STUFF+9*, SCODE+4* |
| DIE | SCODE+9*, SCODE+12! |
| >> DLAYGO | STUFF+9*, SCODE+5* |
| DR | SCODE+10*, SCODE+12! |
| ENTRY | SCODE+1~, SCODE+2*, SCODE+3, SCODE+6, ASTM~, ASTM+2 |
| FILE | START~, START+6, START+7, START+8, START+10, TMP~, TMP+4, TMP+5, SCODE~, SCODE+4 , SCODE+5 |
| HOLD | STUFF+2~, STUFF+8*, STUFF+10, STUFF+13 |
| LOOP | STUFF+2~, STUFF+8*, SCODE+1~, SCODE+2* |
| >> MCDATA | STUFF+6 |
| >> MCDATA(1 | STUFF+3* |
| >> MCDATA(2 | STUFF+4* |
| >> MCDATA(3 | STUFF+5* |
| PROC | START+4~ |
| REC | START+4~, START+7*, START+8, START+10, TMP~, TMP+4, TMP+5 |
| ROUTINE | STUFF~ |
| SDA | SCODE~, SCODE+4 |
| STEMP | SCODE~, SCODE+2 |
| SUBENTRY | TMP+2~, TMP+6*, TMP+8 |
| TEMP | START+4~, START+5*, START+6*, START+7, STUFF+2~ |
| TFILE | STUFF~, STUFF+9, STUFF+13 |
| TMP | START+8*, START+9, START+10, TMP+2~, TMP+5*, TMP+6*, TMP+7*, TMP+8*, TMP+10, ASTM+1~* , ASTM+3*, ASTM+4 |
| TYPE | SCODE+1~ |
| U | START+10, TMP+6, TMP+7, STUFF+10, STUFF+13 |
| VALUE | STUFF+2~, STUFF+10* |
| >> X | STUFF+10*, SCODE+6*, ASTM+2* |
| Y | STUFF+11, STUFF+12, SCODE+8, SCODE+9, SCODE+12! |
| Name | Field # of Occurrence |
|---|---|
| $T(DATA+LOOP^@(1) | STUFF+8 |