©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
PXRMCPLS ;SLC/PKR - Copy various reminder files. ;09/25/2013
Source file <PXRMCPLS.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETFOIEN(ROOT) | ;Return the first open IEN in ROOT. This should be called
|
|
| SCAS(FILENUM,IEN,CLASS,SPONSOR) | ;Set the class field to CLASS and the sponsor
|
|
| INIEH(FILENUM,ROOT,IENN,IEN) | ;Initialize the change log after a copy.
|
|
| COPY(FILENUM,IEN) | ;Copy an entry of ROOT into a new entry.
|
|
| EDIT(FILENUM,IEN) | ;Call the appropriate editor.
|
|
| MERGE(IENN,IEN,ROOT) | ;Use MERGE to copy ROOT(IEN into ROOT(IENN.
|
|
| SETSTART(ROOT) | ;Set the starting value to add new entries. Start
|
|
| GETNAM |
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DID | COPY+4, COPY+8 |
| FIELD^DID | INIEH+3 |
| FILE^DIE | GETNAM+18, INIEH+11, SCAS+6 |
| UPDATE^DIE | INIEH+21 |
| IX^DIK | GETNAM+29 |
| $$ROOT^DILFD | COPY+3 |
| $$GET1^DIQ | COPY+6, INIEH+18, INIEH+20 |
| ^DIR | GETNAM, GETNAM+36 |
| SETSTART^PXRMCOPY | GETNAM+10 |
| $$EXISTS^PXRMEXIU | GETNAM+6 |
| $$VNAME^PXRMINTR | GETNAM+5 |
| SMANEDIT^PXRMTXSM | EDIT+2 |
| AWRITE^PXRMUTIL | INIEH+12, INIEH+22, SCAS+7 |
| $$FMTE^XLFDT | INIEH+17 |
| $$NOW^XLFDT | INIEH+17 |
| $$LOW^XLFSTR | COPY+5 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| Name | Line Occurrences |
|---|---|
| $$GETFOIEN | GETNAM+11 |
| EDIT | GETNAM+37 |
| GETNAM | GETNAM+5, GETNAM+6, GETNAM+20 |
| INIEH | GETNAM+25 |
| MERGE | GETNAM+12 |
| SCAS | GETNAM+23 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CLASS | SCAS~, SCAS+4 |
| CUR | SETSTART+2~ |
| DA | COPY+1~, GETNAM+28* |
| DEST | MERGE+1~, MERGE+2*, MERGE+4, MERGE+6, MERGE+8 |
| DIK | COPY+1~, GETNAM+28* |
| >> DILOCKTM | MERGE+4 |
| DIR | COPY+1~ |
| DIR("A" | COPY+10*, GETNAM+34*, GETNAM+35* |
| DIR(0 | COPY+9*, GETNAM+33* |
| DIROUT | COPY+1~ |
| DIRUT | COPY+1~, GETNAM+1, GETNAM+36 |
| DTOUT | COPY+1~ |
| DUOUT | COPY+1~ |
| DUZ | INIEH+18 |
| ENTRY | GETFOIEN+2~, GETFOIEN+3*, GETFOIEN+4, GETFOIEN+5*, GETFOIEN+6*, INIEH+2~, INIEH+6*, INIEH+8, SETSTART+2~, SETSTART+3* , SETSTART+4* |
| FDA | COPY+1~, INIEH+2~, INIEH+14!, SCAS+2~ |
| FDA( | GETNAM+16*, INIEH+10*, INIEH+11, INIEH+17*, INIEH+18*, INIEH+19*, SCAS+4*, SCAS+5* |
| FDAIEN | INIEH+2~ |
| FDAIEN( | INIEH+16* |
| FIELDLEN | COPY+1~, COPY+8*, COPY+9 |
| FILENAME | COPY+1~, COPY+4*, COPY+5*, GETNAM+35 |
| FILENUM | COPY~, COPY+3, COPY+4, COPY+6, COPY+8, GETNAM+6, GETNAM+16, GETNAM+23, GETNAM+25, GETNAM+37 , EDIT~, EDIT+2, INIEH~, INIEH+3, INIEH+20, SCAS~, SCAS+4, SCAS+5 |
| IEN | COPY~, COPY+6, GETNAM+12, GETNAM+25, EDIT~, EDIT+2, INIEH~, INIEH+20, MERGE~, MERGE+5 , SCAS~, SCAS+3 |
| IENN | COPY+2~, GETNAM+11*, GETNAM+12, GETNAM+15, GETNAM+23, GETNAM+25, GETNAM+28, GETNAM+37, INIEH~, INIEH+6 , INIEH+9, INIEH+15, INIEH+16, MERGE~, MERGE+2 |
| IENS | COPY+2~, GETNAM+15*, GETNAM+16, INIEH+2~, INIEH+9*, INIEH+10, INIEH+15*, INIEH+17, INIEH+18, INIEH+19 , SCAS+2~, SCAS+3*, SCAS+4, SCAS+5 |
| IND | INIEH+2~, INIEH+7*, INIEH+8*, INIEH+9 |
| MSG | COPY+2~, GETNAM+17!, INIEH+2~, INIEH+12, INIEH+14!, INIEH+22, SCAS+2~, SCAS+7 |
| MSG("DIERR" | GETNAM+20 |
| NAME | COPY+2~, GETNAM+2*, GETNAM+5, GETNAM+6, GETNAM+16, GETNAM+21, GETNAM+35 |
| NIEN | GETFOIEN+2~, GETFOIEN+6* |
| OIEN | GETFOIEN+2~, GETFOIEN+4*, GETFOIEN+5, GETFOIEN+6*, GETFOIEN+7 |
| ORIGNAME | COPY+2~, COPY+6*, GETNAM+35 |
| ROOT | COPY+2~, COPY+3*, GETNAM+10, GETNAM+11, GETNAM+12, GETNAM+25, GETNAM+28, GETFOIEN~, GETFOIEN+3, GETFOIEN+5 , GETFOIEN+6, INIEH~, INIEH+6, MERGE~, MERGE+2, MERGE+5, SETSTART~, SETSTART+3 |
| SFN | INIEH+2~, INIEH+4*, INIEH+5, INIEH+10, INIEH+11, INIEH+17, INIEH+18, INIEH+19 |
| SOURCE | MERGE+1~, MERGE+5*, MERGE+6 |
| SPONSOR | SCAS~, SCAS+5 |
| TARGET | INIEH+2~ |
| TARGET("SPECIFIER" | INIEH+4 |
| U | COPY+9, GETFOIEN+4, SETSTART+4 |
| WP | INIEH+2~ |
| WP(1 | INIEH+20* |
| X | COPY+2~ |
| Y | COPY+2~, GETNAM+2, GETNAM+37 |