PSSDSAPM ;BIR/RTR-Dose Check utilities routine ;09/13/10
Source file <PSSDSAPM.m>
| Package | Total | Call Graph |
|---|---|---|
| Pharmacy Data Management | 5 | $$TLS^PSSDSAPA ($$DLTM,$$EMSY,$$EXMT,$$SUP,$$UNIT)^PSSDSAPI ($$DRG,$$MTCH,$$PRE,DPL,DPOP,FRDR,INFERR,ITEM)^PSSDSAPK NUM^PSSDSAPL ($$MLTOK,PTH,RANGE)^PSSDSUTL |
| General Medical Record - Vitals | 1 | EN6^GMRVUTL |
| Kernel | 1 | $$UP^XLFSTR |
| National Drug File | 1 | $$PROD0^PSNAPIS |
| Registration | 1 | DEM^VADPT |
| Toolkit | 1 | $$SCREEN^XTID |
| VA FileMan | 1 | ^%DTC |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Outpatient Pharmacy | 3 | PSODDPR4 PSODDPRE PSOUTL |
| Inpatient Medications | 2 | PSJBLDOC PSJDGCK |
| Order Entry Results Reporting | 1 | ORKPS |
| Pharmacy Data Management | 1 | PSSDSAPD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DRG(PSSNBOI,PSSNBPK,PSSNBOR) | ;
|
|
| DREX() | ;Quit if drug is exempt from order check
|
|
| EMS() | ;Sets piece 5 of output to 1 if CPRS needs to show error message and not do Dose check
|
|
| EMSX() | ;Sets piece 5 of output to 1 if no active drugs are tied to the orderable Item
|
|
| APP | ;
|
|
| GCN() | ;Returns drug matching information
|
|
| MLT | ;Multi Ingredient check called from PSSDSAPD
|
|
| MLTS | ;
|
|
| MLTNO | ;
|
|
| MLTNP | ;
|
|
| FDRUG | ; Find drug, called from PSSDSAPD
|
|
| INERR | ;Set OI error
|
|
| FRQE | ;Set Frequency error called from PSSDSAPD
|
|
| INFUE | ;Set Infusion rate error from PSSDSAPD
|
|
| ERST | ;Set Dosing Sequences into error summary list
|
|
| PAT | ;
|
|
| ADDCT | ;Add counter to output globals so data appears in correct order for more than 9 Dosing Sequences
|
|
| ADDCTA | ;Add counter to CPRS global
|
|
| ADDCTB | ;Add counter to Pharmacy global
|
|
| DSP(PSSDBDS,PSSDBFDB) | ;Return Dose and Dose Unit to Inpatient for complex order display
|
|
| DSPRT | ;Line Tag added for retry if Free Text Dosage contains parenthesis
|
|
| DSPL | ;Add leading zero
|
|
| NXDRUG | ;No Drug found
|
|
| STDB | ;Set PSSDBCAR array for Input Exceptions
|
| Name | Field # of Occurrence |
|---|---|
| ^%DTC | PAT+4 |
| EN6^GMRVUTL | PAT+8, PAT+12 |
| $$PROD0^PSNAPIS | GCN+4 |
| $$TLS^PSSDSAPA | MLT+8 |
| $$DLTM^PSSDSAPI | NXDRUG+1 |
| $$EMSY^PSSDSAPI | DRG+27 |
| $$EXMT^PSSDSAPI | DREX+1 |
| $$SUP^PSSDSAPI | DRG+21, DREX+2, EMSX+5, EMSX+7 |
| $$UNIT^PSSDSAPI | DSP+9 |
| $$DRG^PSSDSAPK | FDRUG+2 |
| $$MTCH^PSSDSAPK | DSPRT+4 |
| $$PRE^PSSDSAPK | EMS+2 |
| DPL^PSSDSAPK | NXDRUG+2, STDB+4 |
| DPOP^PSSDSAPK | DSPRT+9 |
| FRDR^PSSDSAPK | FRQE+1 |
| INFERR^PSSDSAPK | FRQE+1 |
| ITEM^PSSDSAPK | MLT+1, DSPRT+10 |
| NUM^PSSDSAPL | MLT+1, DSPRT+11 |
| $$MLTOK^PSSDSUTL | MLT+7 |
| PTH^PSSDSUTL | DSP+16 |
| RANGE^PSSDSUTL | MLT+1, DSPRT+12 |
| DEM^VADPT | PAT+3 |
| $$UP^XLFSTR | DSP+8 |
| $$SCREEN^XTID | DSPRT+5 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(51.24 - [#51.24] | DSPRT+6 |
| ^PSDRUG - [#50] | DRG+12, DRG+13, DRG+22, DRG+25, EMSX+4, GCN+2, MLT+5, DSPRT+2, DSPRT+3 |
| ^PSDRUG("ASP" | DRG+11, DRG+20, EMSX+3 |
| ^TMP($J | INERR+3*, PAT+5*, PAT+10*, PAT+17*, ADDCTB+1, ADDCTB+3!*, ADDCTB+5, ADDCTB+7, ADDCTB+8*, ADDCTB+9* , ADDCTB+10*, ADDCTB+12, ADDCTB+13, ADDCTB+14*, ADDCTB+16, ADDCTB+17, ADDCTB+19, ADDCTB+20, ADDCTB+21*, ADDCTB+22 , ADDCTB+23*, ADDCTB+25!, NXDRUG+1!, NXDRUG+2, NXDRUG+3*, NXDRUG+4* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %Y | PAT+1~ |
| DA | MLT+4~ |
| DFN | PAT+1~, PAT+2*, PAT+6*, PAT+11* |
| DT | DRG+12, DRG+25, EMSX+4, PAT+4 |
| GMRVSTR | PAT+1~, PAT+8*, PAT+12* |
| PSSDBAR | DSP+2~, DSP+4! |
| PSSDBAR("AMN" | MLT+7, MLTS+1!, DSPRT+9, DSPRT+10, DSPRT+11, DSPRT+12 |
| PSSDBAR("UNIT" | MLT+7, MLTS+1!, DSPRT+9, DSPRT+10, DSPRT+11, DSPRT+12 |
| >> PSSDBASB | ADDCT+2 |
| >> PSSDBASE | INERR+3, ERST+2, PAT+5, PAT+10, PAT+17, NXDRUG+1, NXDRUG+2, NXDRUG+3, NXDRUG+4 |
| >> PSSDBASG | ADDCTB+1, ADDCTB+3, ADDCTB+8, ADDCTB+9, ADDCTB+10, ADDCTB+14, ADDCTB+21, ADDCTB+23 |
| PSSDBATX | PAT+1~, PAT+2*, PAT+4*, PAT+5 |
| PSSDBBSA | PAT+1~, PAT+7*, PAT+15*, PAT+17 |
| >> PSSDBCAR( | MLTNO+1*, MLTNP+1*, STDB+1*, STDB+2* |
| >> PSSDBCAX( | ERST+2*, ERST+3, ERST+4*, ERST+5*, ERST+6*, ERST+7* |
| >> PSSDBCAZ( | MLTS+2*, MLTNO+1, MLTNP+1, FDRUG+3*, FRQE+1*, INFUE+1*, NXDRUG+1! |
| >> PSSDBDFN | PAT+2, PAT+6, PAT+11 |
| PSSDBDS | DSP~ |
| PSSDBDS( | FDRUG+2, DSP+3, DSP+6, DSP+7, DSP+10, DSP+12*, DSP+14, DSP+15*, DSPRT+14*, DSPL+2* |
| >> PSSDBEQ2( | ERST+2 |
| >> PSSDBEQ3 | ERST+2*, ERST+3, ERST+4, ERST+5, ERST+6, ERST+7 |
| PSSDBFAL | MLT+1, MLT+2, DSP+2~, DSP+4*, DSP+10*, DSP+11, DSPRT+7*, DSPRT+8, DSPRT+9, DSPRT+10 , DSPRT+11, DSPRT+12, DSPRT+13 |
| PSSDBFDB | DSP~ |
| PSSDBFDB( | MLTS+2, FDRUG+3, INERR+2, INERR+3, FRQE+1, INFUE+1, DSP+5, DSP+12, DSPRT+2, DSPRT+3 , NXDRUG+1, NXDRUG+2, NXDRUG+3, NXDRUG+4, STDB+1, STDB+2 |
| PSSDBFDB("OI" | FDRUG+2, FDRUG+3, NXDRUG+1 |
| PSSDBFDB("OI_USAGE" | FDRUG+2 |
| PSSDBFDB("PACKAGE" | FDRUG+2, FDRUG+3, NXDRUG+1 |
| PSSDBHT | PAT+1~, PAT+13* |
| PSSDBHTX | PAT+1~, PAT+7*, PAT+13*, PAT+15 |
| >> PSSDBIFG | MLT+3, MLT+5, FDRUG+2*, FDRUG+3* |
| PSSDBIFL | FDRUG+2*, DSP+2~, DSP+4* |
| >> PSSDBKLP | MLTNO+1 |
| PSSDBLP | MLTS+2, FDRUG+2, FDRUG+3, INERR+2, INERR+3, FRQE+1, INFUE+1, DSP+2~, DSP+3*, DSP+5 , DSP+6, DSP+7, DSP+10, DSP+12, DSP+14, DSP+15, DSPRT+2, DSPRT+3, DSPRT+14, DSPL+2 , NXDRUG+1, NXDRUG+2, NXDRUG+3, NXDRUG+4, STDB+1, STDB+2 |
| PSSDBLPD | DSP+2~, DSP+4*, DSPRT+4*, DSPRT+9, DSPRT+13* |
| PSSDBNOD | DSP+2~, DSPRT+3*, DSPRT+4, DSPRT+5, DSPRT+6, DSPRT+7 |
| PSSDBNT | DSP+2~, DSPRT+6*, DSPRT+7 |
| >> PSSDBRLS | MLTNP+1, ERST+2, ERST+3, ERST+4, ERST+5, ERST+6, ERST+7 |
| PSSDBWT | PAT+1~, PAT+9* |
| PSSDBWTX | PAT+1~, PAT+7*, PAT+9*, PAT+10, PAT+15 |
| >> PSSDBXAX( | ERST+2, ERST+3 |
| PSSDBXP | DSP+2~, DSPRT+2*, DSPRT+3 |
| >> PSSDSIVF | NXDRUG+3 |
| PSSDSLC1 | DSP+2~ |
| PSSDSLC1( | MLT+2, DSPRT+13 |
| PSSDSLCL | MLT+2*, DSP+2~, DSP+14*, DSP+15, DSP+16, DSPRT+13* |
| PSSDSLCT | MLT+2*, DSP+2~, DSP+4*, DSPRT+13* |
| PSSDSXTD | DSP+2~, DSPRT+5* |
| >> PSSENO | INERR+3* |
| PSSINCFO | DREX+1, FDRUG+1~* |
| PSSIND1 | DSP+2~, DSP+7*, DSP+8*, DSP+9 |
| PSSIND2 | DSP+2~, DSP+9*, DSP+10 |
| PSSIND3 | DSP+2~, DSPRT+1*, DSPRT+2, DSPRT+7* |
| PSSINDSP | DSP+2~, DSP+4*, DSP+5*, DSP+10*, DSPRT+7*, DSPRT+9*, DSPRT+10*, DSPRT+11*, DSPRT+12*, DSPL+1* , DSPL+2 |
| PSSJW56 | ADDCTB+2~, ADDCTB+19*, ADDCTB+20, ADDCTB+21 |
| PSSJW57 | ADDCTB+2~, ADDCTB+20*, ADDCTB+21 |
| PSSJW7 | ADDCTB+2~, ADDCTB+5*, ADDCTB+6, ADDCTB+7, ADDCTB+8, ADDCTB+9, ADDCTB+10, ADDCTB+12, ADDCTB+13, ADDCTB+14 , ADDCTB+16, ADDCTB+17, ADDCTB+19, ADDCTB+20, ADDCTB+21, ADDCTB+22, ADDCTB+23 |
| PSSJW8 | ADDCTB+2~, ADDCTB+7*, ADDCTB+8, ADDCTB+9, ADDCTB+10, ADDCTB+12*, ADDCTB+13, ADDCTB+14, ADDCTB+16*, ADDCTB+17 , ADDCTB+18, ADDCTB+19, ADDCTB+20, ADDCTB+21, ADDCTB+22, ADDCTB+23 |
| PSSJW9 | ADDCTB+2~, ADDCTB+13*, ADDCTB+14, ADDCTB+17*, ADDCTB+19, ADDCTB+20, ADDCTB+21, ADDCTB+22, ADDCTB+23 |
| PSSJWNUM | ADDCTB+2~, ADDCTB+6*, ADDCTB+8, ADDCTB+9, ADDCTB+10, ADDCTB+14, ADDCTB+21, ADDCTB+23 |
| PSSJWVAL | ADDCTB+2~, ADDCTB+22*, ADDCTB+23 |
| PSSKRC1 | EMSX+1~, EMSX+3*, EMSX+4, EMSX+5, EMSX+7 |
| PSSKRC2 | EMSX+1~, EMSX+4* |
| PSSKRC3 | EMSX+1~, EMSX+2*, EMSX+6*, EMSX+8 |
| PSSKRC4 | EMSX+1~, EMSX+2*, EMSX+4, EMSX+5*, EMSX+8 |
| PSSKRC9 | EMSX+1~, EMSX+2*, EMSX+3, EMSX+7*, EMSX+8*, EMSX+9 |
| PSSMLT1 | MLT+4~, MLT+5*, MLT+6, MLT+7, MLT+8 |
| PSSMLT2 | MLT+4~, MLT+8* |
| PSSMLT3 | MLT+4~, MLT+5*, MLT+6, MLT+7, MLT+8 |
| PSSNB1 | DRG+3~, DRG+11*, DRG+12, DRG+13, DREX+1, DREX+2, APP+23, APP+25, APP+26, APP+28 , APP+30, APP+34, GCN+2, GCN+5, GCN+6 |
| PSSNBAP1 | DRG+3~, DRG+14*, APP+1, APP+3, APP+4, APP+6, APP+8, APP+10, APP+12, APP+14 , APP+15, APP+17, APP+19, APP+21, APP+32 |
| PSSNBAPP | DRG+3~, DRG+13*, APP+1, APP+3, APP+4, APP+6, APP+8, APP+12, APP+14, APP+15 , APP+17, APP+19, APP+23, APP+25, APP+26, APP+28, APP+30 |
| PSSNBARR | DRG+3~ |
| PSSNBARR( | DRG+17 |
| PSSNBARR(0 | DRG+16 |
| PSSNBARR(1 | APP+1*, APP+4* |
| PSSNBARR(10 | APP+21* |
| PSSNBARR(11 | APP+23*, APP+26* |
| PSSNBARR(12 | APP+25* |
| PSSNBARR(13 | APP+28* |
| PSSNBARR(14 | APP+30* |
| PSSNBARR(15 | APP+32* |
| PSSNBARR(16 | APP+34* |
| PSSNBARR(2 | APP+3* |
| PSSNBARR(3 | APP+6* |
| PSSNBARR(4 | APP+8* |
| PSSNBARR(5 | APP+10* |
| PSSNBARR(6 | APP+12*, APP+15* |
| PSSNBARR(7 | APP+14* |
| PSSNBARR(8 | APP+17* |
| PSSNBARR(9 | APP+19* |
| PSSNBARX | DRG+3~, DRG+16*, DRG+17 |
| PSSNBGC1 | GCN+1~, GCN+2*, GCN+3, GCN+4, GCN+5, GCN+6 |
| PSSNBGC3 | GCN+1~, GCN+2*, GCN+3, GCN+4 |
| PSSNBGRS | GCN+1~, GCN+4*, GCN+5 |
| PSSNBIN | DRG+3~, DRG+12* |
| PSSNBLOW | DRG+3~, DRG+4*, APP+2, APP+3*, APP+5, APP+6*, APP+7, APP+8*, APP+9, APP+10* , APP+11, APP+12*, APP+13, APP+14*, APP+15*, APP+16, APP+17*, APP+18, APP+19*, APP+20 , APP+21*, APP+22, APP+23*, APP+24, APP+25*, APP+26*, APP+27, APP+28*, APP+29, APP+30* , APP+31, APP+32*, APP+33, APP+34* |
| PSSNBO3 | DRG+3~, DRG+22*, DRG+23, DRG+24 |
| PSSNBOA | DRG+3~, DRG+22*, DRG+23, DRG+24 |
| PSSNBOD | DRG+3~, DRG+25* |
| PSSNBOF | DRG+3~, DRG+20*, DRG+26* |
| PSSNBOI | DRG~, DRG+1, DRG+11, DRG+20, EMS+2, EMSX+3 |
| PSSNBOL | DRG+3~, DRG+20*, DRG+21, DRG+22, DRG+25 |
| PSSNBOR | DRG~, DRG+1, DRG+2, DRG+18, DRG+27, DREX+1 |
| PSSNBPK | DRG~, DRG+1, DRG+2, DRG+7, DRG+8, DRG+9, DRG+10, DRG+22, EMS+1 |
| PSSNBRS | DRG+3~, DRG+5*, DRG+17*, DRG+19*, DRG+26*, DRG+27*, DRG+28 |
| PSSNBSTP | DRG+3~, DRG+4*, DRG+11, APP+1*, APP+4*, APP+15*, APP+26* |
| PSSNONE | DRG+3~ |
| PSSNOOIX | INERR+1~, INERR+2*, INERR+3 |
| PSSNS1 | DRG+3~, DRG+7*, DRG+8*, DRG+9*, DRG+10*, APP+1, APP+4, APP+12, APP+15, APP+23 , APP+26 |
| PSSNS2 | DRG+3~, DRG+7*, DRG+8*, DRG+9*, DRG+10*, APP+3, APP+4, APP+14, APP+15, APP+25 , APP+26 |
| PSSNS3 | DRG+3~, DRG+7*, DRG+8*, DRG+9*, DRG+10*, APP+6, APP+17, APP+28 |
| PSSNS4 | DRG+3~, DRG+7*, DRG+8*, DRG+9*, DRG+10*, APP+8, APP+19, APP+30 |
| PSSWSB1 | ERST+1~, ERST+3*, ERST+5, ERST+6 |
| PSSWSB2 | ERST+1~, ERST+3*, ERST+5 |
| VA | PAT+1~ |
| VADM | PAT+1~ |
| VADM(3 | PAT+4 |
| VAERR | PAT+1~ |
| VAHOW | PAT+1~ |
| VAPTYP | PAT+1~ |
| VAROOT | PAT+1~ |
| X | PAT+1~, PAT+4!, PAT+8!, PAT+9, PAT+12!, PAT+13 |
| X1 | PAT+1~, PAT+4* |
| X2 | PAT+1~, PAT+4* |