PXRMCPLS ;SLC/PKR - Copy various reminder files. ;09/25/2013
Source file <PXRMCPLS.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Clinical Reminders | 1 | PXRMTAXL |
Name | Comments | DBIA/ICR reference |
---|---|---|
COPY(FILENUM,IEN) | ;Copy an entry of ROOT into a new entry.
|
|
GETNAM | ||
EDIT(FILENUM,IEN) | ;Call the appropriate editor.
|
|
GETFOIEN(ROOT) | ;Return the first open IEN in ROOT. This should be called
|
|
INIEH(FILENUM,ROOT,IENN,IEN) | ;Initialize the change log after a copy.
|
|
MERGE(IENN,IEN,ROOT) | ;Use MERGE to copy ROOT(IEN into ROOT(IENN.
|
|
SCAS(FILENUM,IEN,CLASS,SPONSOR) | ;Set the class field to CLASS and the sponsor
|
|
SETSTART(ROOT) | ;Set the starting value to add new entries. Start
|
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 |
>> | 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 |