PSJBCMA ;BIR/MV-RETURN INPATIENT ACTIVE MEDS (CONDENSED) ; 5/4/16 10:51am
Source file <PSJBCMA.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(DFN,BDT,OTDATE) |
|
|
| ORDER | ;Loop thru orders.
|
|
| UDVAR | ;Set ^TMP for Unit dose & Pending orders
|
|
| IVVAR | ;Set variables for IV and pending orders
|
|
| UDPEND | ;
|
|
| TMP | ;Setup ^TMP that have common fields between IV and U/D
|
|
| SIOPI | ; Use provider comments if order is pending and there is no SI
|
|
| ENSET(X) | ; expands SPECIAL INSTRUCTIONS field contained in X into Y
|
|
| ONE(DFN,ORD,SCH,START,STOP) | ;Determine if order is one-time, and return schedule type
; Input: DFN - patient's IEN ; ORD - order number ; SCH - schedule text (required) ; START - order start date (optional) ; STOP - order stop date (optional) |
|
| CLINIC(CL) | ; is a valid appointment date present? 1=yes 0 =no
|
|
| CLINICS(CL,IGNOSND) | ;IM & CO order tests *70
; Send IM orders always. Send Clinic orders as CO order, if it ; meets below conditions, else send the order over as a IM order. |
|
| DAY(SCH) | ;determine if this is a 'day of the week' schedule
|
|
| ONCALL(SCHD) | ; Check if a schedule is type On Call (all "APPSJ" schedules with a given name must have the same schedule type)
|
|
| HRFLG(IEN,ADDSOL) | ;Get High Risk flag for this Orderable Item
|
| Name | Field # of Occurrence |
|---|---|
| C^%DTC | ORDER+19 |
| NOW^%DTC | ORDER+1, ORDER+19, UDVAR+5 |
| $$GET1^DIQ | UDVAR+13, TMP+4, TMP+12, HRFLG+2, HRFLG+3, HRFLG+4 |
| $$OTPRN^PSJBCMA3 | ONE+12 |
| $$SNDTSTA^PSJHL4A | TMP+27 |
| $$OIDF^PSJLMUT1 | TMP+3 |
| $$HAZ^PSSUTIL | UDVAR+17, IVVAR+36, IVVAR+45 |
| IN5^VADPT | CLINICS+17, CLINICS+18, CLINICS+19, CLINICS+20 |
| INP^VADPT | CLINICS+15 |
| $$FMADD^XLFDT | CLINICS+17 |
| FileNo | Call Tags |
|---|---|
| ^PS(50.7 - [#50.7] | GET1^DIQ |
| ^PS(52.6 - [#52.6] | GET1^DIQ |
| ^PS(52.7 - [#52.7] | GET1^DIQ |
| ^PS(53.46 - [#53.46] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(51 - [#51] | ENSET+2 |
| ^PS(51.1 - [#51.1] | ONE+16, ONCALL+4, ONCALL+5 |
| ^PS(51.2 - [#51.2] | TMP+6 |
| ^PS(52.6 - [#52.6] | IVVAR+30, IVVAR+35, IVVAR+52 |
| ^PS(52.7 - [#52.7] | IVVAR+39, IVVAR+44, IVVAR+58 |
| ^PS(53.1 - [#53.1] | ORDER+14, ORDER+16, IVVAR+2, SIOPI+2, SIOPI+3 |
| ^PS(53.46 - [#53.46] | TMP+11, CLINICS+23, CLINICS+24, CLINICS+25 |
| ^PS(55 - [#55] | ORDER+6, ORDER+7, ORDER+10, ORDER+11, ORDER+23, ORDER+24, ORDER+27, ORDER+28, ORDER+29, IVVAR+4 , IVVAR+10, IVVAR+14, IVVAR+19, IVVAR+22, IVVAR+49, IVVAR+50, IVVAR+51, IVVAR+57, UDPEND+11, ONE+10 , ONE+11, ONE+13 |
| ^PSDRUG - [#50] | UDVAR+11 |
| ^TMP("PSJ" | EN+3, UDVAR+11*, UDVAR+13*, UDVAR+15*, UDVAR+17*, UDVAR+18*, IVVAR+31*, IVVAR+33*, IVVAR+36*, IVVAR+37* , IVVAR+40*, IVVAR+42*, IVVAR+45*, IVVAR+46*, IVVAR+52*, IVVAR+54*, IVVAR+55*, IVVAR+58*, IVVAR+60*, IVVAR+61* , TMP+7*, TMP+13*, TMP+14*, TMP+16*, TMP+18*, TMP+19*, TMP+20*, TMP+21*, TMP+23*, TMP+24* , TMP+25*, TMP+26*, TMP+28* |
| Name | Line Occurrences |
|---|---|
| $$CLINIC | TMP+10, CLINICS+21 |
| $$CLINICS | UDVAR+2, IVVAR+2, IVVAR+3, IVVAR+4, UDPEND+1, UDPEND+2 |
| $$DAY | ONE+18 |
| $$ENSET | UDPEND+31 |
| $$HRFLG | IVVAR+33, IVVAR+42, IVVAR+54, IVVAR+60 |
| $$ONCALL | IVVAR+26, UDPEND+34 |
| $$ONE | ORDER+30, IVVAR+24, UDPEND+34 |
| @( | ORDER+16 |
| IVVAR | ORDER+11, ORDER+31 |
| ORDER | EN+2 |
| SIOPI | UDPEND+32 |
| TMP | UDVAR+3, IVVAR+27 |
| UDPEND | UDVAR+2, IVVAR+2 |
| UDVAR | ORDER+7, ORDER+25 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | EN+1~, ORDER+1, ORDER+19, UDVAR+7 |
| A | IVVAR+13~, IVVAR+14*, IVVAR+15, UDPEND+10~, UDPEND+11*, UDPEND+12, UDPEND+13, TMP+1~, TMP+6*, TMP+23 , TMP+27*, TMP+28, CLINICS+22~, CLINICS+23*, CLINICS+25 |
| ADDSOL | HRFLG~, HRFLG+2, HRFLG+3 |
| B | IVVAR+13~, IVVAR+14*, IVVAR+16, IVVAR+17, UDPEND+10~, UDPEND+11* |
| BDT | EN~, ORDER+1*, ORDER+2*, ORDER+5, ORDER+9, ORDER+21 |
| C | IVVAR+13~, IVVAR+14*, UDPEND+10~, UDPEND+11* |
| CL | CLINIC~, CLINIC+1, CLINICS~, CLINICS+13, CLINICS+21, CLINICS+23, CLINICS+24 |
| CLINIC | UDVAR+1~, UDVAR+2, IVVAR+1~, IVVAR+2, IVVAR+3, IVVAR+4*, UDPEND+1*, UDPEND+2*, TMP+10, TMP+11 , TMP+14 |
| CLNAME | TMP+1~, TMP+12*, TMP+13 |
| CLNAMPTR | TMP+1~, TMP+11*, TMP+12 |
| CNT | EN+1~, UDVAR+5*, UDVAR+10*, UDVAR+11, UDVAR+13, UDVAR+15, UDVAR+17, UDVAR+18, IVVAR+28*, IVVAR+31* , IVVAR+33, IVVAR+36, IVVAR+37*, IVVAR+40*, IVVAR+42, IVVAR+45, IVVAR+46 |
| D | DAY+2~, DAY+4*, DAY+6 |
| DAY | DAY+2~, DAY+5*, DAY+6 |
| DAYS | DAY+2~, DAY+3*, DAY+5 |
| DDIEN | IVVAR+1~, IVVAR+35*, IVVAR+36, IVVAR+44*, IVVAR+45 |
| DFN | EN~, EN+2, ORDER+6, ORDER+7, ORDER+10, ORDER+11, ORDER+14, ORDER+23, ORDER+24, ORDER+27 , ORDER+28, ORDER+29, ORDER+30, IVVAR+4, IVVAR+10, IVVAR+14, IVVAR+19, IVVAR+22, IVVAR+24, IVVAR+49 , IVVAR+50, IVVAR+51, IVVAR+57, UDPEND+11, UDPEND+34, TMP+7, ONE~, ONE+9, ONE+10, ONE+11 , ONE+13, CLINICS+14, CLINICS+15 |
| DN | EN+1~, IVVAR+30*, IVVAR+31, IVVAR+39*, IVVAR+40 |
| F | EN+1~, ORDER+5*, ORDER+9*, ORDER+13*, ORDER+22*, ORDER+26*, UDVAR+6, UDVAR+7, IVVAR+29, IVVAR+30 , IVVAR+38, IVVAR+39, UDPEND+1, UDPEND+2, UDPEND+7, UDPEND+14, UDPEND+16, UDPEND+22, UDPEND+28, UDPEND+31 |
| FON | EN+1~, ORDER+7*, ORDER+11*, ORDER+15*, ORDER+25*, ORDER+31*, UDVAR+11, IVVAR+2, IVVAR+3, UDPEND+6 , UDPEND+34, TMP+7, SIOPI+2 |
| I | IVVAR+51*, IVVAR+52, IVVAR+54, IVVAR+55, IVVAR+57*, IVVAR+58, IVVAR+60, IVVAR+61, DAY+2~, DAY+4* |
| IEN | HRFLG~, HRFLG+2, HRFLG+3 |
| IGNOSND | CLINICS~, CLINICS+13 |
| >> J | DAY+5* |
| ND | IVVAR+1~, IVVAR+30*, IVVAR+31, IVVAR+33, IVVAR+35, IVVAR+39*, IVVAR+40, IVVAR+42, IVVAR+44, IVVAR+54 |
| NXT | ONCALL+1~, ONCALL+5* |
| OCCHK | ONCALL+1~, ONCALL+2*, ONCALL+3, ONCALL+4, ONCALL+6*, ONCALL+7*, ONCALL+8*, ONCALL+9 |
| OIIEN | HRFLG+1~, HRFLG+2*, HRFLG+3*, HRFLG+4 |
| ON | EN+1~, ORDER+7*, ORDER+11*, ORDER+14*, ORDER+15, ORDER+16, ORDER+24*, ORDER+25, ORDER+28*, ORDER+29 , ORDER+30, ORDER+31, UDVAR+6, UDVAR+7, IVVAR+2, IVVAR+4, IVVAR+10, IVVAR+14, IVVAR+19, IVVAR+20 , IVVAR+21, IVVAR+22, IVVAR+24, IVVAR+29, IVVAR+30, IVVAR+38, IVVAR+39, IVVAR+50, UDPEND+1, UDPEND+2 , UDPEND+7, UDPEND+11, UDPEND+14, UDPEND+16, UDPEND+22, UDPEND+28, UDPEND+31, TMP+7, SIOPI+2, SIOPI+3 |
| ONEFRQ | ONE+6~ |
| ORD | ONE~, ONE+9, ONE+10, ONE+11, ONE+13 |
| OTDATE | EN~, ORDER+19*, ORDER+20*, ORDER+21, ORDER+22, ORDER+26 |
| >> PSBPRNDT | CLINICS+19 |
| >> PSBREC(0 | CLINICS+18 |
| >> PSBREC(2 | CLINICS+18 |
| >> PSBRPT(".1" | CLINICS+15, CLINICS+16 |
| >> PSBSTRT | CLINICS+19 |
| >> PSBTYPE | CLINICS+20 |
| PSGP | CLINICS+15~* |
| PSJ | UDVAR+19!, IVVAR+47! |
| PSJ("ADM" | IVVAR+7*, UDPEND+19*, TMP+16 |
| PSJ("AUTO" | IVVAR+7*, UDPEND+29*, TMP+16 |
| PSJ("CHEMO" | IVVAR+9*, TMP+7 |
| PSJ("COM" | IVVAR+11*, IVVAR+17*, UDPEND+8*, UDPEND+14*, TMP+28 |
| PSJ("CPRS" | IVVAR+9*, UDPEND+5*, TMP+7 |
| PSJ("DO" | IVVAR+11*, UDPEND+8*, TMP+24 |
| PSJ("DOA" | UDPEND+23*, UDPEND+24, UDPEND+26*, TMP+18 |
| PSJ("FLG" | IVVAR+11*, IVVAR+12, UDPEND+8*, UDPEND+9, TMP+28 |
| PSJ("FOLLOW" | IVVAR+21*, UDPEND+5*, TMP+7, ONE+7* |
| PSJ("FREQ" | UDPEND+20*, UDPEND+26 |
| PSJ("HSM" | UDPEND+3*, TMP+24 |
| PSJ("INFRATE" | IVVAR+2*, IVVAR+6*, TMP+24 |
| PSJ("INSYR" | IVVAR+8*, TMP+7 |
| PSJ("IVTYPE" | IVVAR+8*, TMP+7 |
| PSJ("MR" | IVVAR+11*, UDPEND+3*, TMP+6, TMP+23 |
| PSJ("MRABB" | TMP+6*, TMP+16 |
| PSJ("MRNM" | TMP+6*, TMP+23 |
| PSJ("MRRFL" | UDVAR+15, UDPEND+23*, UDPEND+24*, TMP+20 |
| PSJ("NGIVEN" | UDPEND+6*, TMP+16 |
| PSJ("OI" | UDVAR+13, IVVAR+18*, UDPEND+15*, TMP+3, TMP+4, TMP+25 |
| PSJ("OIDF" | TMP+4*, TMP+5*, TMP+25 |
| PSJ("OINAME" | TMP+3*, TMP+5, TMP+25 |
| PSJ("PREV" | IVVAR+20*, UDPEND+5*, TMP+7, ONE+7* |
| PSJ("PRI" | IVVAR+11*, UDPEND+8*, TMP+27 |
| PSJ("PRSTOPDT" | UDPEND+18*, TMP+21 |
| PSJ("RFO" | IVVAR+21*, UDPEND+5*, TMP+7 |
| PSJ("RMTM" | UDPEND+23*, TMP+19 |
| PSJ("SCHD" | IVVAR+6*, IVVAR+23, UDPEND+17*, UDPEND+34, TMP+16, TMP+27 |
| PSJ("SIOPI" | IVVAR+22*, UDPEND+31*, TMP+26, SIOPI+2, SIOPI+4, SIOPI+5*, SIOPI+6* |
| PSJ("SM" | UDPEND+3*, TMP+24 |
| PSJ("SRC" | IVVAR+11*, IVVAR+14, IVVAR+16*, UDPEND+8*, UDPEND+11, UDPEND+13*, TMP+28 |
| PSJ("ST" | UDPEND+4*, UDPEND+33, UDPEND+34, TMP+16 |
| PSJ("STARTDT" | IVVAR+5*, IVVAR+24, UDPEND+17*, TMP+16, CLINICS+20 |
| PSJ("STATUS" | IVVAR+7*, UDPEND+4*, TMP+16 |
| PSJ("STC" | IVVAR+24*, IVVAR+25*, IVVAR+26*, UDPEND+33*, UDPEND+34*, TMP+16 |
| PSJ("STOPDT" | IVVAR+5*, IVVAR+24, UDPEND+19*, TMP+16 |
| PSJBCID | ORDER+32!, IVVAR+50*, IVVAR+52, IVVAR+54, IVVAR+55, IVVAR+58, IVVAR+60, IVVAR+61 |
| PSJCNT | CLINICS+14~, CLINICS+17* |
| PSJDD | UDVAR+7*, UDVAR+9*, UDVAR+11, UDVAR+17, UDVAR+19! |
| PSJINX | EN+4!, ORDER+3*, UDVAR+11, UDVAR+13, UDVAR+15, UDVAR+17, UDVAR+18, IVVAR+31, IVVAR+33, IVVAR+36 , IVVAR+37, IVVAR+40, IVVAR+42, IVVAR+45, IVVAR+46, IVVAR+52, IVVAR+54, IVVAR+55, IVVAR+58, IVVAR+60 , IVVAR+61, TMP+2*, TMP+7, TMP+13, TMP+14, TMP+16, TMP+18, TMP+19, TMP+20, TMP+21 , TMP+23, TMP+24, TMP+25, TMP+26, TMP+28 |
| PSJON | ORDER+32! |
| PSJON( | ORDER+7*, ORDER+11*, ORDER+25, ORDER+31 |
| PSJSTOP | CLINICS+14~, CLINICS+16*, CLINICS+17 |
| PSJSTRT | CLINICS+14~, CLINICS+16*, CLINICS+17 |
| PSJVAIN4 | CLINICS+14~*, CLINICS+15*, CLINICS+17*, CLINICS+18*, CLINICS+19*, CLINICS+20*, CLINICS+21 |
| PST | EN+1~, ORDER+14* |
| S1 | IVVAR+13~, IVVAR+14*, UDPEND+10~, UDPEND+11* |
| SCH | ONE~, ONE+9, ONE+10*, ONE+11*, ONE+12, ONE+14, ONE+16, ONE+18, DAY~, DAY+1 , DAY+4 |
| SCHARR | ONCALL+1~ |
| SCHARR( | ONCALL+5* |
| SCHARR("OC" | ONCALL+6, ONCALL+7, ONCALL+8 |
| SCHD | IVVAR+23~*, IVVAR+24, IVVAR+25, IVVAR+26, ONCALL~, ONCALL+3, ONCALL+4, ONCALL+5 |
| START | ONE~, ONE+17 |
| STOP | ONE~, ONE+17 |
| T | ONE+6~ |
| TYP | ONE+6~, ONCALL+5* |
| U | ORDER+16, ORDER+29, UDVAR+11, UDVAR+13, UDVAR+15, UDVAR+17, IVVAR+2, IVVAR+5, IVVAR+6, IVVAR+7 , IVVAR+8, IVVAR+9, IVVAR+11, IVVAR+14, IVVAR+20, IVVAR+21, IVVAR+31, IVVAR+33, IVVAR+35, IVVAR+36 , IVVAR+40, IVVAR+42, IVVAR+44, IVVAR+45, IVVAR+54, IVVAR+60, UDPEND+3, UDPEND+4, UDPEND+5, UDPEND+6 , UDPEND+8, UDPEND+11, UDPEND+17, UDPEND+18, UDPEND+19, UDPEND+20, UDPEND+23, UDPEND+29, TMP+6, TMP+7 , TMP+13, TMP+14, TMP+16, TMP+18, TMP+19, TMP+20, TMP+21, TMP+23, TMP+24, TMP+25 , TMP+28, CLINICS+16 |
| VAIN | CLINICS+15~ |
| VAIN(4 | CLINICS+15 |
| VAIP | CLINICS+14~ |
| VAIP("3" | CLINICS+17, CLINICS+18, CLINICS+19, CLINICS+20 |
| VAIP("D" | CLINICS+17*, CLINICS+18*, CLINICS+19*, CLINICS+20* |
| WBDT | EN+1~, ORDER+5*, ORDER+6*, ORDER+7, ORDER+9*, ORDER+10*, ORDER+11, ORDER+22*, ORDER+23*, ORDER+24 , ORDER+26*, ORDER+27*, ORDER+28 |
| X | EN+1~, ORDER+16*, ORDER+19, ORDER+29*, ORDER+30, UDVAR+6*, UDVAR+7, IVVAR+1~, IVVAR+4*, IVVAR+5 , IVVAR+6, IVVAR+7, IVVAR+8, IVVAR+9, IVVAR+10*, IVVAR+11, IVVAR+18, IVVAR+19*, IVVAR+20, IVVAR+21 , IVVAR+29*, IVVAR+30, IVVAR+38*, IVVAR+39, IVVAR+52*, IVVAR+58*, IVVAR+60, UDPEND+1*, UDPEND+3, UDPEND+4 , UDPEND+5, UDPEND+6, UDPEND+7*, UDPEND+8, UDPEND+15, UDPEND+16*, UDPEND+17, UDPEND+18, UDPEND+19, UDPEND+20 , UDPEND+22*, UDPEND+23, UDPEND+28*, UDPEND+29, SIOPI+1~, SIOPI+3*, ENSET~, ENSET+2, ONE+6~, ONE+16* , CLINICS+14~, DAY+2~, DAY+4, DAY+5*, DAY+6*, DAY+7 |
| X1 | EN+1~, ORDER+19*, IVVAR+48*, IVVAR+49*, IVVAR+50, IVVAR+51, IVVAR+57, ENSET+1~, ENSET+2* |
| X2 | EN+1~, ORDER+19*, IVVAR+50*, IVVAR+51*, IVVAR+52, IVVAR+56*, IVVAR+57*, IVVAR+58, ENSET+1~, ENSET+2* |
| >> XX | IVVAR+50* |
| Y | EN+1~, IVVAR+1~, SIOPI+1~, SIOPI+4*, SIOPI+5, SIOPI+6, ENSET+1~*, ENSET+2*, ENSET+3*, ENSET+4 |
| Z | SIOPI+1~, SIOPI+3*, SIOPI+5, SIOPI+6 |
