PSJ5P315 ;BIRMINGHAM/GN/DRP-Diagnostic Report only, does not update ;9/25/15 10:03am
Source file <PSJ5P315.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QUE | ; Que the job in the background
|
|
| FIXITEM | ; SET PROTOCOL SEQUENCES TO MATCH REQUIREMENTS
|
|
| EN(P1) | ;Check for MRR meds missing the 2.1 node which is new and would be
|
|
| CHKORD | ;check if Order qualifies and then print on report
; return mrrfl which is positive or true (1,2,3) |
|
| MAKERPT | ;
|
|
| CLINIC(CL) | ;Is this a Clinic order that would show on the VDL in CO mode also?
|
|
| SENDRPT | ;Send report to user
|
|
| TST | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | EN+29, CHKORD+8 |
| ^ORD(101 - [#101] | FIXITEM+2, FIXITEM+3, FIXITEM+4, FIXITEM+5*, FIXITEM+7, FIXITEM+8*, FIXITEM+12, FIXITEM+16, FIXITEM+17, FIXITEM+18* |
| ^PS(50.7 - [#50.7] | EN+14 |
| ^PS(53.46 - [#53.46] | CLINIC+2, CLINIC+3, CLINIC+4 |
| ^PS(55 - [#55] | EN+20, EN+22, EN+24, EN+25, EN+26, CHKORD+2, CHKORD+3, CHKORD+7, CHKORD+8 |
| ^PSDRUG - [#50] | EN+13 |
| ^PSDRUG("ASP" | EN+11, EN+12 |
| ^SC - [#44] | CHKORD+8 |
| ^TMP($J | EN+9!, MAKERPT+1*, MAKERPT+2*, MAKERPT+3*, MAKERPT+4*, MAKERPT+5*, MAKERPT+6*, MAKERPT+7*, MAKERPT+8*, MAKERPT+9* , MAKERPT+10*, MAKERPT+11*, MAKERPT+12*, MAKERPT+13*, MAKERPT+20*, MAKERPT+24*, SENDRPT+8! |
| ^XTMP("PSJ5P315" | EN+9!, CHKORD+10*, MAKERPT+16, MAKERPT+18, MAKERPT+19, SENDRPT+8! |
| ^XUSEC("PSJ RPHARM" | SENDRPT+5 |
| ^XUSEC("PSJI MGR" | SENDRPT+2 |
| ^XUSEC("PSJU MGR" | SENDRPT+3 |
| ^XUSEC("PSJU RPH" | SENDRPT+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | CLINIC+3~*, CLINIC+4 |
| CL | CLINIC~, CLINIC+1, CLINIC+2, CLINIC+3 |
| CLNODE | EN+6~, EN+26*, CHKORD+8 |
| CNT | QUE+1~ |
| DDTXT | EN+6~, CHKORD+9*, CHKORD+10, MAKERPT+19*, MAKERPT+20 |
| DIFROM | EN+7~ |
| DUZ | EN+8 |
| I | FIXITEM+10~, FIXITEM+11* |
| ID | EN+6~, EN+29*, CHKORD+10, MAKERPT+17*, MAKERPT+18*, MAKERPT+19, MAKERPT+20 |
| JOBN | QUE+1~, QUE+3*, QUE+8, QUE+15 |
| LOC | EN+6~, CHKORD+8*, CHKORD+10, MAKERPT+15*, MAKERPT+16*, MAKERPT+18, MAKERPT+19, MAKERPT+20 |
| NAMSP | QUE+1~, QUE+2*, QUE+14 |
| ORDSDT | EN+6~, EN+8*, EN+20*, EN+22, EN+24 |
| ORDTOT | EN+5~, EN+18*, MAKERPT+21*, MAKERPT+24 |
| P1 | EN~, EN+17*, CHKORD+7, TST+1~*, TST+2 |
| PAGNO | EN+6~, EN+18* |
| PATCH | QUE+1~, QUE+4* |
| PSJDDOI | EN+5~, CHKORD+3*, CHKORD+4 |
| PSJDFN | EN+5~, EN+21*, EN+22*, EN+24, EN+25, EN+26, EN+29, CHKORD+2, CHKORD+3, CHKORD+7 , CHKORD+8, CHKORD+9 |
| PSJDUZ | EN+5~, EN+8*, SENDRPT+1, SENDRPT+6 |
| PSJITEM | FIXITEM+1~, FIXITEM+3*, FIXITEM+4, FIXITEM+16*, FIXITEM+17 |
| PSJITXT | FIXITEM+1~, FIXITEM+11*, FIXITEM+12 |
| PSJLN | EN+5~, MAKERPT+14*, MAKERPT+20, MAKERPT+21*, MAKERPT+24* |
| PSJMNUI | FIXITEM+1~, FIXITEM+4*, FIXITEM+5, FIXITEM+17*, FIXITEM+18 |
| PSJMRR | EN+5~, CHKORD+4*, CHKORD+5, CHKORD+10, MAKERPT+19*, MAKERPT+20 |
| PSJMRRAR | EN+5~ |
| PSJMRRAR( | EN+15*, CHKORD+4 |
| PSJMRRFL | EN+5~, EN+14*, EN+15 |
| PSJOI | EN+5~, EN+13*, EN+14, EN+15 |
| PSJORD | EN+5~, EN+23*, EN+24*, EN+25, EN+26, CHKORD+2, CHKORD+3, CHKORD+7, CHKORD+8, CHKORD+9 |
| PSJPIEN | FIXITEM+1~, FIXITEM+2*, FIXITEM+4, FIXITEM+5, FIXITEM+7*, FIXITEM+8, FIXITEM+12*, FIXITEM+13, FIXITEM+17, FIXITEM+18 |
| PSJPNM | FIXITEM+1~ |
| PSJSPCE | EN+5~, MAKERPT+14*, MAKERPT+20 |
| EN+6~, EN+11*, EN+12, CHKORD+2*, CHKORD+9 | |
| QT | FIXITEM+1~* |
| SBJM | QUE+1~, QUE+15* |
| STP | EN+6~ |
| STR | FIXITEM+10~*, FIXITEM+11, MAKERPT+15~, MAKERPT+19* |
| STS | EN+6~, EN+25*, EN+28, CHKORD+10, MAKERPT+19*, MAKERPT+20 |
| U | FIXITEM+5, FIXITEM+8, FIXITEM+18, EN+13, EN+14, EN+25, EN+29, CHKORD+3, CHKORD+8, CHKORD+10 , MAKERPT+19 |
| X | EN+7~, SENDRPT+2*, SENDRPT+3*, SENDRPT+4*, SENDRPT+5* |
| XMDUZ | EN+7~, SENDRPT+6* |
| XMSUB | EN+7~, SENDRPT+6* |
| XMTEXT | EN+7~, SENDRPT+6* |
| XMY | EN+7~ |
| XMY( | SENDRPT+1*, SENDRPT+2*, SENDRPT+3*, SENDRPT+4*, SENDRPT+5*, SENDRPT+6* |
| XPDQUES | QUE+23! |
| XQORM | FIXITEM+13*! |
| Y | QUE+1~, QUE+5* |
| YY | EN+6~, EN+12*, EN+13 |
| ZTDESC | QUE+1~, QUE+15* |
| ZTDTH | QUE+1~, QUE+5*, QUE+9 |
| ZTIO | QUE+1~, QUE+14* |
| ZTQUEUED | QUE+1~ |
| ZTREQ | QUE+1~ |
| ZTRTN | QUE+1~, QUE+14* |
| ZTSAVE | QUE+1~ |
| ZTSAVE("DUZ" | QUE+16* |
| ZTSAVE("JOBN" | QUE+16* |
| ZTSAVE("SBJM" | QUE+16* |
| ZTSAVE("ZTDTH" | QUE+16* |
| ZTSAVE("ZTSK" | QUE+21* |
| ZTSK | QUE+1~, QUE+18, QUE+19 |
