©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
PSNCLEAN ;BIR/DMA-clean up ingredients and interactions ; 19 Aug 2008 9:42 AM
Source file <PSNCLEAN.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QUIT | ||
| ALLER | ;now the allergies
|
|
| PROTO | ||
| TEXT | ;
|
|
| PRO | ||
| TEXT5 | ;
|
|
| TEXT2 | ;
|
|
| TEXT3 | ;
|
|
| TEXT4 | ;
|
|
| SENDIT | ;
|
|
| INTER | ;CHECK FOR NON-PRIMARIES
|
| FileNo | Call Tags |
|---|---|
| ^GMR(120.8 - [#120.8] | Classic Fileman Calls |
| ^PS(56 - [#56] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | ALLER+4 |
| ^GMR(120.8 - [#120.8] | ALLER+4, ALLER+5*, ALLER+6, ALLER+7 |
| ^PS(50.416 - [#50.416] | INTER+1, INTER+6, ALLER+5, ALLER+7 |
| ^PS(56 - [#56] | INTER+1, INTER+4, INTER+7!*, INTER+8*, INTER+10, INTER+13*!, INTER+15!* |
| ^TMP("PSN" | PSNCLEAN+6!, INTER+20*, INTER+21*, INTER+22*, INTER+23*, INTER+24*, INTER+25*, INTER+26*, ALLER+10*, ALLER+11* , ALLER+12*, ALLER+13*, ALLER+14*, QUIT!, PRO!* |
| ^TMP($J | PSNCLEAN+6!, INTER+6*, INTER+11*, INTER+13, INTER+15, INTER+17, INTER+19, INTER+22, INTER+23, INTER+25 , INTER+26, ALLER+3!, ALLER+7*, ALLER+9, ALLER+12, ALLER+13, QUIT! |
| ^XMB("NETNAME" | ALLER+1, SENDIT+1 |
| ^XUSEC("PSNMGR" | SENDIT+1 |
| Name | Line Occurrences |
|---|---|
| ALLER | INTER+19 |
| SENDIT | ALLER+1, ALLER+9 |
| Name | Field # of Occurrence |
|---|---|
| ^( | INTER+1, INTER+15, ALLER+4, ALLER+6 |
| ^("RENAM" | INTER+19 |
| ^(0 | ALLER+4, ALLER+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | PSNCLEAN+5~, INTER+1*, INTER+7, INTER+8, INTER+11, INTER+17*, ALLER+7*, SENDIT+1*, QUIT! |
| DA(1 | ALLER+7* |
| DIC | PROTO*! |
| DIE | PSNCLEAN+5~, INTER+6*, ALLER+7*, QUIT! |
| DIFROM | SENDIT+2~ |
| DIK | PSNCLEAN+5~, INTER+17*, QUIT! |
| DR | PSNCLEAN+5~, INTER+6*, ALLER+7*, QUIT! |
| DUZ | SENDIT+1 |
| J | PSNCLEAN+5~, INTER+24*, ALLER+10*, ALLER+11*, QUIT! |
| LINE | PSNCLEAN+5~, INTER+20*, INTER+21*, INTER+22*, INTER+23*, INTER+24*, INTER+25*, INTER+26*, ALLER+10*, ALLER+11* , ALLER+12*, ALLER+13*, ALLER+14*, QUIT! |
| NA | PSNCLEAN+5~, INTER+23*, INTER+26*, ALLER+13*, QUIT! |
| NEWDA | PSNCLEAN+5~, INTER+10*, INTER+11, INTER+15*, QUIT! |
| PSN | PSNCLEAN+5~, INTER+6!, INTER+13*, INTER+17*, QUIT! |
| PSN( | INTER+6* |
| PSN("" | INTER+6 |
| PSNDA | PSNCLEAN+5~, ALLER+4*, ALLER+5, ALLER+6, ALLER+7, QUIT! |
| PSNI | PSNCLEAN+5~, ALLER+4*, ALLER+5*, ALLER+6*, ALLER+7, QUIT! |
| PSNI1 | PSNCLEAN+5~, INTER+1*, INTER+3, INTER+7, INTER+13*, QUIT! |
| PSNI1N | PSNCLEAN+5~, INTER+1*, INTER+2, INTER+3, QUIT! |
| PSNI1P | PSNCLEAN+5~, INTER+3*, INTER+4, INTER+6, INTER+7, INTER+8, INTER+10, QUIT! |
| PSNI2 | PSNCLEAN+5~, INTER+1*, INTER+3, INTER+7, INTER+13*, QUIT! |
| PSNI2N | PSNCLEAN+5~, INTER+1*, INTER+2, INTER+3, QUIT! |
| PSNI2P | PSNCLEAN+5~, INTER+3*, INTER+4, INTER+6, INTER+7, INTER+8, INTER+10, QUIT! |
| PSNK | PSNCLEAN+5~, ALLER+6*, ALLER+7, QUIT! |
| PSNN | PSNCLEAN+5~, INTER+6!*, QUIT! |
| PSNPAT | PSNCLEAN+5~, ALLER+4*, ALLER+7, QUIT! |
| PSNX | PSNCLEAN+5~, ALLER+7*, QUIT! |
| X | PSNCLEAN+5~, INTER+1*, INTER+6, INTER+11, INTER+13*, INTER+15*, INTER+20*, INTER+21*, INTER+24*, ALLER+10* , ALLER+11*, ALLER+13*, ALLER+14, QUIT!, PROTO*! |
| XMDUZ | PSNCLEAN+5~, SENDIT+1*, QUIT! |
| XMSUB | PSNCLEAN+5~, SENDIT+1*, QUIT! |
| XMTEXT | PSNCLEAN+5~, SENDIT+1*, QUIT! |
| XMY | PSNCLEAN+5~, SENDIT+1!, QUIT! |
| XMY( | SENDIT+1* |
| XMY("G.NDF DA | TA@" , SENDIT+1* |
| >> XPDGREF | PRO |
| ZTDTH | PRO*! |
| ZTIO | PRO*! |
| ZTRTN | PRO*! |
| ZTSAVE | PRO! |
| ZTSAVE("^TMP(""PSN"",$J," | PRO* |
| Name | Field # of Occurrence |
|---|---|
| $T(TEXT+LINE | INTER+21 |
| $T(TEXT2+J | INTER+24 |
| $T(TEXT3+J | ALLER+11 |
| $T(TEXT4+LINE | INTER+20 |
| $T(TEXT5+J | ALLER+10 |