PXRMLCR ; SLC/PJH - Create Patient List from individual finding rule; 04/15/2014
Source file <PXRMLCR.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
LR1 | ||
SECURE | ;option to secure the list
|
|
PL1 | ||
LIST | ||
RULE | ||
DPAT | ||
PURGE | ;Option to purge the list
|
|
START | ||
LRULE(RULE) | ;Select List Rule
|
|
EXIT | ||
REMOVE(IEN) | ;
|
|
HELP(CALL) | ;General help text routine
|
|
DATE | ||
PLIST(LIST,TEXT,IENO) | ;Select Patient List
|
|
RUN(PXRMRULE,PXRMLIST,PXRMNODE,BEG,END,PXRMDPAT,PXRMTPAT) | ;
|
|
TPAT |
Name | Field # of Occurrence |
---|---|
^%ZTLOAD | TPAT+32 |
EN^DDIOL | LR1+29 |
^DIC | PL1+7, LR1+5 |
^DIK | LIST+4 |
^DIR | TPAT+26 |
$$ASKYN^PXRMEUT | DPAT, TPAT, PL1+19 |
$$LDELOK^PXRMEUT | PL1+21 |
DATES^PXRMEUT | DATE |
HELP^PXRMEUT | HELP+17 |
RUN^PXRMLCR | TPAT+2 |
CLEAR^PXRMRULE | RUN+4 |
START^PXRMRULE | RUN+2 |
ASK^PXRMXD | SECURE+2, PURGE+2 |
$$FMTE^XLFDT | TPAT+23 |
$$NOW^XLFDT | TPAT+20 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^PXRMXP(810.5 - [#810.5] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PXRM(810.4 - [#810.4] | LR1+14, LR1+17, LR1+18, LR1+25, REMOVE+1* |
^PXRMXP(810.5 - [#810.5] | LIST+2, TPAT+21 |
^TMP("PXRMLCR" | START+8! |
^XTMP("PXRM_DISEV" | START+2 |
Name | Line Occurrences |
---|---|
DATE | DPAT+1 |
DPAT | TPAT+1 |
LIST | RULE |
LR1 | LR1+6, LR1+15, LR1+27 |
LRULE | RULE |
PL1 | PL1+8, PL1+14, PL1+20, PL1+22 |
PLIST | LIST |
RULE | DATE |
SECURE | PURGE+2 |
START | SECURE+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BEG | START~, DATE, TPAT+2, RUN~, RUN+2 |
CALL | HELP~, HELP+2, HELP+6, HELP+10, HELP+13 |
>> DA | LIST+4* |
DIC | PLIST+1~, PL1*, LRULE+1~, LR1* |
DIC("A" | PL1+1*, LR1+1* |
DIC("DR" | PL1+5* |
DIC("S" | PL1+2*, LR1+3* |
DIC(0 | PL1*, LR1* |
DIK | LIST+3~, LIST+4* |
DIR | TPAT+19~ |
DIR("A" | TPAT+22*, TPAT+23*, TPAT+24* |
DIR(0 | TPAT+25* |
DLAYGO | PLIST+1~, PL1* |
DTOUT | START~, LIST, SECURE+2, PURGE+2, RULE, DATE, DPAT+1, TPAT+1, TPAT+19~, TPAT+27 , PL1+9*, PL1+11, PL1+20, LR1+7*, LR1+9 |
DUOUT | START~, LIST, SECURE+2, PURGE+2, RULE, DATE, DPAT+1, TPAT+1, TPAT+19~, TPAT+27 , PL1+10*, PL1+11, PL1+20, LR1+8*, LR1+9 |
DUZ | PL1+5 |
END | START~, DATE, TPAT+2, RUN~, RUN+2 |
ERROR | LR1+13~, LR1+16*, LR1+17, LR1+20*, LR1+21*, LR1+22*, LR1+26*, LR1+27 |
HTEXT | HELP+1~, HELP+17 |
HTEXT(1 | HELP+3*, HELP+7*, HELP+11*, HELP+14* |
HTEXT(2 | HELP+4*, HELP+8*, HELP+15* |
HTEXT(3 | HELP+16* |
IEN | REMOVE~, REMOVE+1 |
IENO | PLIST~, PL1+14 |
>> IORESET | START+12 |
LIST | PLIST~, PL1+16*, PL1+25* |
LIT | START~, START+10*, DATE |
LR | LR1+13~, LR1+19*, LR1+21, LR1+24, LR1+25 |
LRTYPE | LR1+13~, LR1+25*, LR1+26 |
MINDT | TPAT+19~, TPAT+20*, TPAT+23, TPAT+25 |
NL | LR1+13~, LR1+16*, LR1+20*, LR1+21*, LR1+22*, LR1+26* |
OP | LR1+13~, LR1+19*, LR1+22, LR1+24 |
OWRITE | PL1+18~, PL1+19*, PL1+20, PL1+21*, PL1+22 |
PATCREAT | SECURE+1!, SECURE+2* |
PLISTPUG | PURGE+1!, PURGE+2* |
>> PXRMDEBG | TPAT+2 |
PXRMDPAT | START~, DPAT*, TPAT+2, RUN~, RUN+2 |
PXRMLIST | START~, LIST, LIST+1, LIST+2, LIST+4, TPAT+2, TPAT+21, RUN~, RUN+2 |
PXRMNODE | START~, START+10*, TPAT+2, RUN~, RUN+2, RUN+4 |
PXRMRULE | START~, RULE, TPAT+2, RUN~, RUN+2, RUN+4 |
PXRMTPAT | START~, TPAT*, TPAT+2, RUN~, RUN+2 |
RULE | LRULE~, LR1+11*, LR1+14, LR1+17, LR1+18 |
SDTIME | TPAT+19~, TPAT+28*, TPAT+31 |
SEQ | LR1+13~, LR1+19*, LR1+20 |
STIME | TPAT+19~ |
SUB | LR1+13~, LR1+14*, LR1+15, LR1+16*, LR1+17*, LR1+18 |
TEMP | LR1+13~, LR1+18*, LR1+19 |
TEXT | START+6~, START+14*, LIST, PLIST~, PL1+1, LR1+13~, LR1+29 |
TEXT( | LR1+20*, LR1+21*, LR1+22*, LR1+26* |
TEXT(1 | LR1+28* |
U | LIST+2, TPAT+21, TPAT+25, PL1+9, PL1+14, PL1+16, PL1+19, PL1+21, PL1+25, LR1+7 , LR1+11, LR1+19, LR1+25, REMOVE+1 |
X | TPAT+19~, PLIST+1~, PL1+8, PL1+9, LRULE+1~, LR1+6, LR1+7 |
Y | TPAT+19~, TPAT+28, PLIST+1~, PL1+10, PL1+14, PL1+16, PL1+19, PL1+21, PL1+25, LRULE+1~ , LR1+8, LR1+11 |
ZTDESC | TPAT+4~, TPAT+5*, TPAT+21 |
ZTDTH | TPAT+4~, TPAT+31* |
ZTIO | TPAT+4~, TPAT+16* |
ZTRTN | TPAT+4~, TPAT+6* |
ZTSAVE | TPAT+4~ |
ZTSAVE("BEG" | TPAT+7* |
ZTSAVE("END" | TPAT+8* |
ZTSAVE("PATCREAT" | TPAT+9* |
ZTSAVE("PLISTPUG" | TPAT+15* |
ZTSAVE("PXRMDPAT" | TPAT+10* |
ZTSAVE("PXRMLIST" | TPAT+11* |
ZTSAVE("PXRMNODE" | TPAT+12* |
ZTSAVE("PXRMRULE" | TPAT+13* |
ZTSAVE("PXRMTPAT" | TPAT+14* |
>> ZTSK | TPAT+33 |