©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
PSODGDGI ;BIR/SAB - drug drug interaction checker ;05-Jun-2013 08:41;DU
Source file <PSODGDGI.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 7 | NOOR^PSOCAN4 NVA^PSODRDU1 DC^PSOORFI2 (DRGINT,PAUSE)^PSOORRD2 REMOTE^PSORX1 ENQ^PSORXDL (,EN1)^PSORXI |
| VA Fileman | 2 | FILE^DICN ^DIR |
| Kernel | 1 | SIG^XUSESIG |
| National Drug File | 1 | $$DDIEX^PSNAPIS |
| Order Entry Results Reporting | 1 | ($$HAVEHDR,HAVEHDR)^ORRDI1 |
| Pharmacy Data Management | 1 | (PSOL,PSOUL)^PSSLOCK |
| Registration | 1 | FULL^VALM1 |
| Package | Total | Caller Graph |
|---|---|---|
| Outpatient Pharmacy | 3 | PSODRG PSON52 PSORN52C |
| IHS Changes To Pharmacy | 2 | APSQDRG APSQFAS4 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHECK(NDF) | ; check drug interations
|
|
| MESS | ||
| PPL | ||
| PHARM | ;pharmacist verification of drug interaction
|
|
| TECH | ;add tech entry to RX VERIFY file (#52.4)
|
|
| BLD | ||
| CRI | ;process new drug interactions entered by pharmacist
|
|
| ULRX | ;
|
|
| CRITN | ;process multiple new drug interactions
|
| Name | Field # of Occurrence |
|---|---|
| FILE^DICN | TECH+1 |
| ^DIR | PHARM+1, PHARM+10, CRI+2, CRITN+5 |
| $$HAVEHDR^ORRDI1 | PSODGDGI+33 |
| HAVEHDR^ORRDI1 | PSODGDGI+32 |
| $$DDIEX^PSNAPIS | PSODGDGI+9, CHECK+5 |
| NOOR^PSOCAN4 | CRITN+8, CRITN+15, CRITN+19, CRITN+26 |
| NVA^PSODRDU1 | CHECK+12 |
| DC^PSOORFI2 | CRITN+17, CRITN+29 |
| DRGINT^PSOORRD2 | PSODGDGI+38 |
| PAUSE^PSOORRD2 | PSODGDGI+36, PSODGDGI+37 |
| REMOTE^PSORX1 | PSODGDGI+35 |
| ENQ^PSORXDL | CRITN+9, CRITN+21, CRITN+28, CRITN+32 |
| ^PSORXI | CRITN+11 |
| EN1^PSORXI | CRITN+22, CRITN+30 |
| PSOL^PSSLOCK | PHARM+1 |
| PSOUL^PSSLOCK | ULRX+2 |
| FULL^VALM1 | CRITN+9, CRITN+11, CRITN+22, CRITN+30, CRITN+32 |
| SIG^XUSESIG | CRI+4 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^PS(52.4 - [#52.4] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(56 - [#56] | CHECK+4, CHECK+6, CHECK+8, BLD+1, BLD+2, BLD+3, PHARM+7 |
| ^PSDRUG - [#50] | PSODGDGI+16, PSODGDGI+20, PSODGDGI+21, PSODGDGI+22, BLD+1, PHARM+3, MESS |
| ^PSDRUG("B" | PSODGDGI+15 |
| ^PSRX - [#52] | TECH+2*, BLD+1*, PHARM+3, PHARM+5, PHARM+9, CRITN+1, CRITN+3, CRITN+4, CRITN+11, MESS |
| ^TMP($J | PSODGDGI+38!*, PSODGDGI+39! |
| ^XTMP("ORRDI" | PSODGDGI+34, PSODGDGI+37 |
| ^XUSEC("PSORPH" | PSODGDGI+28, BLD |
| Name | Line Occurrences |
|---|---|
| BLD | CHECK+13 |
| CHECK | PSODGDGI+23, PSODGDGI+27 |
| CRI | PHARM+12 |
| CRITN | CRI+1 |
| MESS | CRITN+9, CRITN+21, CRITN+28, CRITN+32 |
| PHARM | BLD |
| PPL | CRITN+22, CRITN+30 |
| ULRX | PHARM+13, PHARM+15, CRI+2, CRI+6, CRITN+6, CRITN+18, CRITN+35 |
| Name | Field # of Occurrence |
|---|---|
| ^("ND" | PSODGDGI+22 |
| ^(0 | BLD+1, PHARM+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CDRG | PSODGDGI+10~, PSODGDGI+18~, PSODGDGI+21*, PSODGDGI+22 |
| CMP | PSODGDGI+10~, PSODGDGI+14*, PSODGDGI+16*, PSODGDGI+17 |
| CMPDR | PSODGDGI+10~, PSODGDGI+18~, PSODGDGI+19*, PSODGDGI+20*, PSODGDGI+21 |
| CNDF | PSODGDGI+18~ |
| CRIT | PSODGDGI+11*, PSODGDGI+28, TECH+1, TECH+2!, BLD+3* |
| >> DA | CRITN+9*, CRITN+18*, CRITN+22*, CRITN+25*, CRITN+30*, CRITN+32*, MESS |
| DD | TECH+1! |
| DGI | PSODGDGI+11*, PSODGDGI+28, TECH+1, TECH+2!, BLD+1*, PHARM+11*, PHARM+12*, PHARM+14*, CRI+2*, CRITN+6* |
| DGS | PSODGDGI+11*, TECH+2!, BLD+2* |
| DIC | TECH+1*, TECH+2! |
| DIC("DR" | TECH+1* |
| DIC(0 | TECH+1* |
| DINUM | TECH+1*, TECH+2! |
| DIR | PHARM+1!, PHARM+11!, PHARM+12!, PHARM+13!, PHARM+14!, CRI+1!, CRI+2!, CRITN+1!, CRITN+5! |
| DIR("?" | PHARM+7*, PHARM+8*, CRI+2*, CRITN+3*, CRITN+4*, CRITN+5* |
| DIR("A" | PHARM+1*, PHARM+9*, PHARM+10*, CRI+1*, CRITN+1*, CRITN+2* |
| DIR("B" | PHARM+10*, CRI+1* |
| DIR(0 | PHARM+1*, PHARM+10*, CRI+1*, CRITN+2* |
| DIROUT | PHARM+11!, PHARM+12!, PHARM+13!, PHARM+14!, CRI+2!, CRI+6!, CRITN+10!, CRITN+13!, CRITN+23!, CRITN+33! , CRITN+34! |
| DIRUT | PHARM+11!, PHARM+12!, PHARM+13!, PHARM+14!, CRI+2!, CRI+6!, CRITN+8, CRITN+10!, CRITN+13!, CRITN+15 , CRITN+19, CRITN+23!, CRITN+26, CRITN+33!, CRITN+34! |
| DLAYGO | TECH+1*, TECH+2! |
| DNM | CHECK+12*! |
| DO | TECH+1! |
| DRG | PSODGDGI+11*, PSODGDGI+12*, PSODGDGI+15, PSODGDGI+25, PSODGDGI+26, PSODGDGI+28!, CHECK+12, BLD+1, BLD+2, PHARM+1 , PHARM+3, PHARM+5, PHARM+6, PHARM+9, CRI+1, CRITN+1, CRITN+2, CRITN+3, CRITN+4, CRITN+11 , CRITN+18, CRITN+23, CRITN+25, CRITN+30, PPL+2 |
| DT | CHECK+6, TECH+1 |
| DTOUT | PHARM+11!, PHARM+12!, PHARM+13!, PHARM+14!, CRI+2!, CRI+6!, CRITN+10!, CRITN+13!, CRITN+23!, CRITN+33! , CRITN+34! |
| DUOUT | PHARM+11!, PHARM+12!, PHARM+13!, PHARM+14!, CRI+2!, CRI+6!, CRITN+10!, CRITN+13!, CRITN+23!, CRITN+33! , CRITN+34! |
| DUZ | PSODGDGI+28, TECH+1, BLD |
| ENT | PPL+2*, PPL+3*, PPL+4, PPL+5, PPL+6, PPL+7! |
| IT | PSODGDGI+28!, PSODGDGI+29!, CHECK+3*, CHECK+4*, CHECK+6, CHECK+7, CHECK+8, CHECK+11*, CHECK+12!, BLD+1 , BLD+2, BLD+3, PHARM+7 |
| LSI | PSODGDGI+11*, PSODGDGI+28!, BLD+1* |
| NDF | PSODGDGI+22*, PSODGDGI+23, PSODGDGI+26*, PSODGDGI+27, PSODGDGI+28!, CHECK~, CHECK+4, CHECK+5 |
| >> OR0 | CRITN+14, CRITN+29 |
| >> ORN | CRITN+9, CRITN+10, CRITN+32, CRITN+33 |
| PSHLDDRG | CRITN+6*, CRITN+12, CRITN+13! |
| >> PSODFN | PSODGDGI+37, PSODGDGI+38, PSODGDGI+39, TECH+1 |
| PSODGRLX | PHARM+6*, ULRX+1, ULRX+2! |
| PSODI | TECH+1*, TECH+2! |
| >> PSODRUG("IEN" | CRITN+6, CRITN+11*, CRITN+12* |
| >> PSODRUG("NAME" | CRI+1, CRITN+1, CRITN+10, CRITN+33 |
| >> PSODRUG("NDF" | PSODGDGI+9, CHECK+4 |
| PSOHOLDA | CRITN+18*, CRITN+22, CRITN+23!, CRITN+25*, CRITN+30! |
| PSOICT | PSODGDGI+10~, PSODGDGI+11*, PSODGDGI+28!, CHECK+3*, CHECK+7*, CHECK+8*, CHECK+10, CHECK+11, CHECK+12! |
| PSOL | PPL+3*, PPL+4, PPL+5, PPL+6, PPL+7! |
| PSOL( | PPL+2*, PPL+3 |
| >> PSOLST( | CRITN+9, CRITN+10, CRITN+32, CRITN+33 |
| PSOMSG | PHARM+1!, PHARM+2 |
| >> PSONEW("STATUS" | PSODGDGI+28* |
| >> PSORX("DFLG" | PSODGDGI+12, PSODGDGI+31, CHECK+13, PHARM+1*, PHARM+11*, CRI+2*, CRI+4*, CRITN+6*, CRITN+8*, CRITN+16* , CRITN+20*, CRITN+27*, CRITN+28* |
| >> PSORX("INTERVENE" | PHARM+12*, PHARM+14*, CRI+2!, CRI+4!, CRI+5*, CRITN+8!, CRITN+16!, CRITN+20!, CRITN+27! |
| >> PSORX("PSOL" | PPL, PPL+2, PPL+4!, PPL+5*, PPL+6* |
| >> PSORXED | CRITN+7, CRITN+31 |
| >> PSOSD | CRITN+10*, CRITN+24*, CRITN+28*, CRITN+33* |
| >> PSOSD( | PSODGDGI+12, PSODGDGI+25, PSODGDGI+26, BLD+1, BLD+2, PHARM+1, PHARM+3, PHARM+5, PHARM+6, PHARM+9 , CRI+1, CRITN+1, CRITN+3, CRITN+4, CRITN+10!, CRITN+11, CRITN+18, CRITN+23!, CRITN+25, CRITN+30! , CRITN+33!, PPL+2 |
| PSOSL | PPL*, PPL+2*, PPL+7! |
| >> PSOX("IRXN" | TECH+1, TECH+2 |
| PSOX2 | PPL*, PPL+1, PPL+2, PPL+7! |
| SAVE | PSODGDGI+18~ |
| SER | PSODGDGI+11*, TECH+1, TECH+2!, BLD+1*, PHARM+7*, PHARM+8, PHARM+9, PHARM+10, PHARM+11, PHARM+12 , PHARM+13, PHARM+14, CRI+3, CRI+5 |
| SERS | PSODGDGI+11*, TECH+2!, BLD+2* |
| >> STA | PSODGDGI+11*, PSODGDGI+12*, PSODGDGI+25, PSODGDGI+26, CHECK+12, BLD+1, BLD+2, PHARM+1, PHARM+3, PHARM+5 , PHARM+6, PHARM+9, CRI+1, CRITN+1, CRITN+3, CRITN+4, CRITN+11, CRITN+18, CRITN+23, CRITN+25 , CRITN+30, PPL+2 |
| TDRG | PSODGDGI+10~, PSODGDGI+15*, PSODGDGI+16, PSODGDGI+20, PSODGDGI+21 |
| U | PSODGDGI+15, PSODGDGI+16, PSODGDGI+21 |
| >> VALMBCK | CRITN+12*, CRITN+24*, CRITN+25* |
| >> X | TECH+1* |
| X1 | CRI+2!, CRI+4, CRITN+1! |
| >> Y | PHARM+11, PHARM+12, PHARM+13, PHARM+14, CRI+2, CRITN+6, CRITN+18, CRITN+25 |
| >> ZONE | CRITN+10*, CRITN+33* |
| Name | Field # of Occurrence |
|---|---|
| $T(HAVEHDR^ORRDI1 | PSODGDGI+32 |
| $T(REMOTE^PSORX1 | PSODGDGI+35 |