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 |