©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
PSOORDRG ;BIR/SAB - order entry drug selection ;08-Apr-2013 14:53;DU
Source file <PSOORDRG.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 3 | EN^PSOHLSN1 REMOTE^PSOORRDI ECAN^PSOUTL |
| VA Fileman | 3 | C^%DTC ^DIE $$GET1^DIQ |
| IHS Changes To Pharmacy | 1 | ($$AWP,$$COST)^APSQDAWP |
| Inpatient Medications | 1 | (DDRUG,ENCHK)^PSJORUT2 |
| National Drug File | 1 | $$DDIEX^PSNAPIS |
| Order Entry Results Reporting | 1 | ($$HAVEHDR,HAVEHDR)^ORRDI1 |
| Pharmacy Data Management | 1 | $$GETNDC^PSSNDCUT |
| Package | Total | Caller Graph |
|---|---|---|
| Outpatient Pharmacy | 6 | PSOORCPY PSOORED1 PSOORFI1 PSOORNE3 PSOORNEW PSORENW1 |
| Inpatient Medications | 4 | PSGSICHK PSIVEDRG PSJDCHK PSJLIFN |
| IHS Changes To Pharmacy | 1 | APSPFNC2 |
| Order Entry Results Reporting | 1 | ORKPS |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NVA | ;checks existing nva
|
|
| DRGCHK(PSODFN,DREN,DDRUG) | ;Only check DREN against drug in DDRG()
|
|
| SETTMP | ;Create ^TMP($J,"ORDERS"
|
|
| GET | ;data for profiles
|
|
| NVA1 | ||
| OIDRG(PSODFN,PSOI) | ;checks every drug tied to orderable item passed by package use
|
|
| BUILDX | ||
| BLDOI | ;If no DD/non-standard dose, get all drugs for OI
|
|
| GETX | ;
|
|
| REMOTE | ;
|
|
| EN(PSODFN,DREN) | ;
|
|
| EXIT | ||
| BUILD | ;build profiles
|
|
| CLOZ | ;
|
|
| BLD | ||
| DRG | ;S X=DREN,DIC="^PSDRUG(",DIC(0)="MQNZO" D ^DIC K DIC,PSOY Q:Y<1 S PSOY=Y,PSOY(0)=Y(0) K X,Y
|
|
| DOIT(DRG,NDF) | ;Process the drug IHS/MSC/MGH 04/08/2013
|
| Name | Field # of Occurrence |
|---|---|
| C^%DTC | BLD+1 |
| $$AWP^APSQDAWP | DRG+14 |
| $$COST^APSQDAWP | DRG+15 |
| ^DIE | GET+7 |
| $$GET1^DIQ | DRG+8 |
| $$HAVEHDR^ORRDI1 | REMOTE+2 |
| HAVEHDR^ORRDI1 | REMOTE+1 |
| DDRUG^PSJORUT2 | DRGCHK+7 |
| ENCHK^PSJORUT2 | EN+3, OIDRG+3 |
| $$DDIEX^PSNAPIS | DOIT+3, DOIT+4 |
| EN^PSOHLSN1 | GET+9 |
| REMOTE^PSOORRDI | REMOTE+3 |
| ECAN^PSOUTL | GET+8 |
| $$GETNDC^PSSNDCUT | DRG+7 |
| FileNo | Call Tags |
|---|---|
| ^PSDRUG - [#50] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TEST" | CLOZ+2 |
| ^PS(50.416 - [#50.416] | DOIT+13 |
| ^PS(50.605 - [#50.605] | DRG+23, DRG+25 |
| ^PS(50.7 - [#50.7] | DRG+4 |
| ^PS(52.41 - [#52.41] | BUILD+4, BUILD+5, BUILD+6, SETTMP+3 |
| ^PS(55 - [#55] | BUILD+2, NVA+1, NVA+2, NVA+3 |
| ^PS(56 - [#56] | DOIT+2, DOIT+5, DOIT+7, DOIT+12, DOIT+13 |
| ^PSDRUG - [#50] | DRG+2, DRG+4, DRG+5, DRG+6, DRG+9, DRG+35, DRG+38, DRG+39, DRG+40, SETTMP+2 , SETTMP+3, GET+3, GET+4, GET+11, CLOZ+1, OIDRG+4, NVA+4, NVA+5, NVA1, NVA1+1 |
| ^PSDRUG("ASP" | BLDOI+2, OIDRG+4, NVA+5 |
| ^PSDRUG("B" | DRG+25, DRG+33, DOIT+12 |
| ^PSRX - [#52] | BUILD+2, GET+1, GET+2 |
| ^TMP($J | EN+1!, DRG+18, DRG+19, DRG+20*, DRG+21, DRG+22, DRG+24*, DRG+25*, DRG+31, DRG+32 , DRG+43, DOIT+11, DOIT+12*, DOIT+13*, EXIT!, BLD!, SETTMP+3*, GET+11*, DRGCHK+5!, OIDRG+1! , NVA1+2*, REMOTE+4! |
| Name | Line Occurrences |
|---|---|
| @( | CLOZ+2 |
| BLD | EN+3, OIDRG+3 |
| BLDOI | BUILD+6 |
| BUILD | BLD+1 |
| BUILDX | BUILD+7 |
| DOIT | DRG+41, DRG+44 |
| DRG | DRGCHK+8, OIDRG+4 |
| EXIT | DRG+45, BLD, OIDRG+5 |
| GET | BUILD+2 |
| GETX | BLD+1 |
| NVA | EN+3, OIDRG+3 |
| NVA1 | NVA+4, NVA+5 |
| REMOTE | DOIT+14 |
| SETTMP | BUILD+6, BLDOI+2 |
| Name | Field # of Occurrence |
|---|---|
| ^( | DRG+20, DRG+25, DOIT+11 |
| ^("ND" | DRG+5, DRG+6, DRG+40, SETTMP+3, GET+11, NVA1+1 |
| ^("OR1" | GET+2 |
| ^("STA" | GET+1 |
| ^(0 | NVA+3 |
| ^(2 | DRG+4 |
| ^(3 | GET+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ANQRTN | CLOZ+1*, CLOZ+2, CLOZ+3! |
| ANQX | CLOZ+1*, CLOZ+2, CLOZ+3! |
| CDRG | DRG+27~, DRG+39*, DRG+40 |
| CMP | DRG+27~, DRG+35*, DRG+36 |
| CMPDR | DRG+27~, DRG+37*, DRG+38*, DRG+39 |
| CNDF | DRG+27~, DRG+40*, DRG+41 |
| COD | DRGCHK+6~* |
| >> COMM | GET+9* |
| DA | EXIT!, GET+7~*!, GET+8*, GET+9 |
| DC | DRG+24*, DRG+25, EXIT!, OIDRG+1! |
| DD | DRG+20*, EXIT!, OIDRG+1! |
| DDRUG | DRGCHK~, DRGCHK+7* |
| DDRUG( | DRGCHK+7 |
| DDRUG0 | DRGCHK+6~ |
| DDRUGND | DRGCHK+6~ |
| DFN | EXIT!, CLOZ+1* |
| DI | DOIT+12*, DOIT+13, EXIT!, OIDRG+1! |
| DIC | GET+7~! |
| DIE | GET+7~*! |
| DNM | DRG+18*, DRG+19, DRG+20, DRG+21, DRG+22, DRG+25, EXIT! |
| DR | GET+7~*! |
| DREN | EN~, DRG+2, DRGCHK~, OIDRG+1~, OIDRG+4*, REMOTE+3 |
| DRG | DRG+28*, DRG+31*, DRG+32, DRG+41, DRG+43, DRG+44, DOIT~, DOIT+11, EXIT!, SETTMP+2* , SETTMP+3, NVA+3*, NVA+4!, NVA+5!*, NVA+6!, NVA1, NVA1+1 |
| DRGN | NVA+6!, NVA1*, NVA1+2 |
| DRNM | DRG+19*, DRG+20, DRG+21, DRG+25, DRG+32*, DRG+33, DOIT+11*, DOIT+12, EXIT! |
| DT | DOIT+5, BLD, BLD+1, GET+6 |
| DUPRX0 | EXIT! |
| EN | BUILD+3*, BUILD+5*, BUILD+6, SETTMP+3, BUILDX! |
| EXPDT | EXIT+1!, BUILD+1*, BUILD+2*, GET+6, GETX+1! |
| I | NVA+1*, NVA+2, NVA+3, NVA+6!, NVA1+2 |
| >> INDX | EN+1*, EN+3, SETTMP+3*, GET+10*, GET+11, OIDRG+1*, OIDRG+3, NVA1+2* |
| IT | DOIT+1*, DOIT+2*, DOIT+5, DOIT+6, DOIT+7, DOIT+10*, DOIT+12, DOIT+13, EXIT! |
| NDF | DRG+43*, DRG+44, DOIT~, DOIT+2, DOIT+3, NVA+6!, NVA1+1*, NVA1+2 |
| >> O | OIDRG+4 |
| ORN | DOIT+11*, DOIT+13, EXIT!, GET+2*, GET+11, GETX+1!, NVA+3*, NVA+6!, NVA1+2 |
| >> P(5 | CLOZ+1*, CLOZ+3! |
| >> PHARMST | GET+9* |
| >> POERR | DRG+16 |
| PSJINX | DRGCHK+6~* |
| PSOCLOZ | EXIT! |
| >> PSODC | DRG+23*, DRG+25* |
| PSODD | BUILD+6*, BLDOI+2*, SETTMP+2, SETTMP+3, BUILDX! |
| PSODFN | EN~, EN+1, EN+3, BLD, BUILD+2, BUILD+4, BUILD+5, CLOZ+1, DRGCHK~, OIDRG~ , OIDRG+3, NVA+1, NVA+2, NVA+3, REMOTE+3, REMOTE+4 |
| PSODRUG | EXIT!, GET+3*, GET+4, GET+11, GETX+1! |
| PSODRUG("CLN" | DRG+6* |
| PSODRUG("COST" | DRG+9* |
| PSODRUG("DAW" | DRG+8* |
| PSODRUG("DEA" | DRG+6* |
| PSODRUG("EXPI | RATION DATE" , DRG+9* |
| PSODRUG("IEN" | DRG+3*, DRG+14, DRG+15, DRG+20, CLOZ+1 |
| PSODRUG("MAXDOSE" | DRG+6* |
| PSODRUG("NAME" | DRG+3*, DRG+20, DRG+21 |
| PSODRUG("NDC" | DRG+7*, DRG+13, DRG+14, DRG+15 |
| PSODRUG("NDF" | DRG+5*, DOIT+2, DOIT+4 |
| PSODRUG("OI" | DRG+4* |
| PSODRUG("OIN" | DRG+4* |
| PSODRUG("SIG" | DRG+7* |
| PSODRUG("UNIT" | DRG+9* |
| PSODRUG("VA C | LASS" , DRG+3*, DRG+21, DRG+22, DRG+23, DRG+24 |
| PSODRUG0 | EXIT+1!, GET+4*, GETX+1! |
| >> PSODTCUT | BLD+1*, BUILD+1 |
| PSOEN | BUILD+4*, BUILD+5, BUILDX! |
| PSOI | BLDOI+1~*, BLDOI+2, OIDRG~, OIDRG+4, NVA+3*, NVA+5, NVA+6! |
| PSOICT | DRG+1~*, DOIT+1*, DOIT+6*, DOIT+7*, DOIT+9, DOIT+10 |
| >> PSONEW("AWP" | DRG+14* |
| >> PSONEW("COST" | DRG+15* |
| >> PSONEW("DFLG" | DRG+14, DRG+15 |
| >> PSONEW("NDC" | DRG+13*, DRG+14, DRG+15 |
| >> PSONEW("QFLG" | DRG+14, DRG+15 |
| PSOOI | BUILD+6*, BLDOI+1, SETTMP+1, BUILDX! |
| PSOOTC | NVA+6! |
| PSOPHI | EN+1!, DRG+20, DOIT+15, OIDRG+1*, OIDRG+5! |
| >> PSORX("DFLG" | CLOZ+2* |
| PSORX0 | EXIT+1!, GET+1*, GET+3, GETX+1! |
| PSORX2 | EXIT+1!, GET+2*, GETX+1! |
| PSORX3 | EXIT+1!, GET+2*, GETX+1! |
| >> PSOSITE | DRG+7, DRG+12 |
| PSOST0 | EXIT+1!, GET+1*, GETX+1! |
| PSOVACL | EXIT+1!, GET+4*, GET+11, GETX+1! |
| PSOX | EXIT+1!, GETX+1! |
| PSOX1 | DRG+9*, DRG+16! |
| PSOY | DRG+2*, DRG+3, DRG+4, DRG+5, DRG+6, DRG+7, DRG+8, DRG+9, DRG+16!, EXIT! , NVA+6!, NVA1* |
| PSOY(0 | DRG+2*, DRG+3, DRG+6, DRG+7 |
| RX | EXIT!, BUILD+1*, BUILD+2*, GET+1, GET+2, GET+7, GET+8, GET+11 |
| RXN | DOIT+11*, DOIT+13, EXIT+1! |
| >> STAT | GET+7*, GET+9 |
| >> TALK | DRG+14, DRG+15 |
| TDRG | DRG+27~, DRG+33*, DRG+34, DRG+35, DRG+38, DRG+39 |
| U | DRG+35, DRG+39 |
| VACL | NVA+6!, NVA1*, NVA1+2 |
| X | DRG+2!, EXIT+1!, BLD+1, GETX+1!, CLOZ+1*, CLOZ+3! |
| X1 | EXIT+1!, BLD+1*, GETX+1! |
| X2 | EXIT+1!, BLD+1*, GETX+1! |
| Y | DRG+2!, EXIT!, EXIT+1!, GETX+1! |
| ZZ | EXIT! |
| Name | Field # of Occurrence |
|---|---|
| $T(HAVEHDR^ORRDI1 | REMOTE+1 |