PXRMDRUG ;SLC/PKR - Handle drug findings. ;12/15/2010
Source file <PXRMDRUG.m>
| Package | Total | Call Graph |
|---|---|---|
| Clinical Reminders | 8 | (MHVOUT,OUTPUT)^PXRMDIN (MHVOUT,OUTPUT)^PXRMDNVA (MHVOUT,OUTPUT)^PXRMDOUT NOINDEX^PXRMERRH $$INSCHR^PXRMEXLC GPLIST^PXRMINDL SRXTYL^PXRMRXTY (COPY,DORDER,IEVALTER,SPFINDPA)^PXRMTERM |
| National Drug File | 1 | ($$CLASS2,$$VAGN)^PSNAPIS |
| Pharmacy Data Management | 1 | ($$DRUG,$$ITEM)^PSSCLINR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MHVOUT(INDENT,IFIEVAL,NLINES,TEXT) | ;Produce the MHV output.
|
|
| CLORGNT(FINDING) | ;Generate drug class or VA Generic text.
|
|
| EVALFI(DFN,DEFARR,ENODE,FIEVAL) | ;Evaluate drug findings.
|
|
| EVALPL(FINDPA,ENODE,TERMARR,PLIST) | ;Evaluate drug terms for
|
|
| EVALTERM(DFN,FINDPA,ENODE,TERMARR,TFIEVAL) | ;Evaluate drug terms.
|
|
| DEVAL(DFN,FINDPA,DEFARR,FINDING,RXTYL,DRUG,POI,FIEVAL) | ;Evaluate a drug
|
|
| OUTPUT(INDENT,IFIEVAL,NLINES,TEXT) | ;Produce the clinical
|
| Name | Field # of Occurrence |
|---|---|
| $$CLASS2^PSNAPIS | CLORGNT+7 |
| $$VAGN^PSNAPIS | CLORGNT+12 |
| $$DRUG^PSSCLINR | MHVOUT+4, OUTPUT+4 |
| $$ITEM^PSSCLINR | EVALFI+12, EVALPL+16, EVALTERM+18 |
| MHVOUT^PXRMDIN | MHVOUT+14 |
| OUTPUT^PXRMDIN | OUTPUT+12 |
| MHVOUT^PXRMDNVA | MHVOUT+15 |
| OUTPUT^PXRMDNVA | OUTPUT+13 |
| MHVOUT^PXRMDOUT | MHVOUT+16 |
| OUTPUT^PXRMDOUT | OUTPUT+14 |
| NOINDEX^PXRMERRH | EVALFI+5, EVALFI+8, EVALPL+6, EVALPL+9, EVALTERM+6, EVALTERM+9 |
| $$INSCHR^PXRMEXLC | MHVOUT+7, OUTPUT+5 |
| GPLIST^PXRMINDL | EVALPL+25, EVALPL+26, EVALPL+27 |
| SRXTYL^PXRMRXTY | EVALFI+19, EVALPL+24, EVALTERM+29 |
| COPY^PXRMTERM | EVALTERM+44 |
| DORDER^PXRMTERM | EVALTERM+43 |
| IEVALTER^PXRMTERM | DEVAL+19, EVALTERM+42 |
| SPFINDPA^PXRMTERM | EVALPL+22, EVALTERM+27 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PXRMINDX(52 | EVALFI+4, EVALPL+5, EVALTERM+5 |
| ^PXRMINDX(55 | EVALFI+7, EVALPL+8, EVALTERM+8 |
| ^TMP($J | EVALPL+13!, EVALPL+33, EVALPL+36, EVALPL+38, EVALPL+40, EVALPL+41, EVALPL+53*, EVALPL+54! |
| Name | Line Occurrences |
|---|---|
| $$CLORGNT | MHVOUT+2, OUTPUT+3 |
| DEVAL | EVALFI+20 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BDT | EVALPL+2~ |
| DATE | EVALPL+2~, EVALPL+42*, EVALPL+43, EVALPL+44*, EVALPL+45*, EVALPL+47, EVALPL+49, EVALPL+51 |
| DATEORDR | EVALTERM+1~, EVALTERM+3~, EVALTERM+43, EVALTERM+44 |
| DEFARR | DEVAL~, EVALFI~, EVALFI+20 |
| DEFARR("E" | EVALFI+11, EVALFI+14 |
| DEFARR(20 | DEVAL+7, DEVAL+11, DEVAL+15, EVALFI+16 |
| DFN | DEVAL~, DEVAL+19, EVALFI~, EVALFI+20, EVALPL+2~, EVALPL+32*, EVALPL+33*, EVALPL+36, EVALPL+38, EVALPL+40 , EVALPL+41, EVALPL+53, EVALTERM~, EVALTERM+42 |
| DRUG | DEVAL~, DEVAL+2, DEVAL+6, DEVAL+8, DEVAL+9, DEVAL+10, DEVAL+12, DEVAL+13, DEVAL+21, MHVOUT+1~ , MHVOUT+4*, MHVOUT+5, MHVOUT+7, MHVOUT+13, OUTPUT+2~, OUTPUT+4*, OUTPUT+5, OUTPUT+11 |
| DRUGCLAS | CLORGNT+1~, CLORGNT+7*, CLORGNT+8 |
| DRUGIEN | EVALFI+1~, EVALFI+10*, EVALFI+11*, EVALFI+12, EVALFI+14, EVALFI+20, EVALPL+2~, EVALPL+14*, EVALPL+15*, EVALPL+16 , EVALPL+18, EVALPL+25, EVALPL+27, EVALTERM+1~, EVALTERM+16*, EVALTERM+17*, EVALTERM+18, EVALTERM+20, EVALTERM+32, EVALTERM+33 , EVALTERM+40, EVALTERM+41, EVALTERM+47, MHVOUT+1~, MHVOUT+3*, MHVOUT+4 |
| DTERM | DEVAL+3~, DEVAL+19, EVALFI+1~, EVALTERM+1~, EVALTERM+23!, EVALTERM+42 |
| DTERM("E" | DEVAL+9*, DEVAL+13*, DEVAL+17*, EVALTERM+33*, EVALTERM+37*, EVALTERM+41* |
| DTERM("IEN" | DEVAL+5*, EVALTERM+24* |
| DTERM(0 | DEVAL+5*, EVALTERM+24* |
| DTERM(20 | DEVAL+7*, DEVAL+8*, DEVAL+11*, DEVAL+12*, DEVAL+15*, DEVAL+16*, EVALTERM+31*, EVALTERM+32*, EVALTERM+35*, EVALTERM+36* , EVALTERM+39*, EVALTERM+40* |
| DTFIEVAL | EVALTERM+1~, EVALTERM+23!, EVALTERM+42, EVALTERM+43, EVALTERM+44 |
| EDT | EVALPL+2~ |
| ENODE | EVALFI~, EVALFI+11, EVALFI+14, EVALPL~, EVALPL+15, EVALPL+18, EVALTERM~, EVALTERM+17, EVALTERM+20 |
| FIEVAL | DEVAL~, DEVAL+2*, DEVAL+20*, DEVAL+21, EVALFI~ |
| FIEVAL( | EVALFI+15*, EVALFI+21* |
| FIEVAL("DISPE | NSE DRUG" , DEVAL+21* |
| FIEVAL("FINDING" | DEVAL+21* |
| FIEVT | DEVAL+3~, DEVAL+18!, DEVAL+19, EVALFI+1~, EVALFI+17!, EVALFI+20, EVALFI+21 |
| FIEVT(1 | DEVAL+20 |
| FILENUM | EVALPL+2~, EVALPL+39*, EVALPL+40*, EVALPL+41, EVALPL+43, EVALPL+50*, EVALPL+51*, EVALPL+53 |
| FINDING | DEVAL~, DEVAL+7, DEVAL+11, DEVAL+15, EVALFI+1~, EVALFI+13*, EVALFI+14*, EVALFI+15, EVALFI+16, EVALFI+20 , EVALFI+21, CLORGNT~, CLORGNT+3, CLORGNT+4 |
| FINDPA | DEVAL~, DEVAL+19, EVALFI+1~, EVALFI+16*, EVALFI+20, EVALPL~, EVALPL+22, EVALTERM~, EVALTERM+27 |
| FINDPA(0 | EVALFI+19, EVALPL+29, EVALTERM+12 |
| FTYPE | MHVOUT+1~, MHVOUT+11*, MHVOUT+14, MHVOUT+15, MHVOUT+16, OUTPUT+2~, OUTPUT+9*, OUTPUT+12, OUTPUT+13, OUTPUT+14 |
| GBL | CLORGNT+1~, CLORGNT+4*, CLORGNT+5, CLORGNT+10 |
| IEN | CLORGNT+1~, CLORGNT+3*, CLORGNT+7, CLORGNT+12 |
| IFIEVAL | MHVOUT~, OUTPUT~ |
| IFIEVAL( | MHVOUT+9, MHVOUT+10, MHVOUT+12, OUTPUT+7, OUTPUT+8, OUTPUT+10 |
| IFIEVAL("DISP | ENSE DRUG" , MHVOUT+3, OUTPUT+4 |
| IFIEVAL("TERM | FINDING" , MHVOUT+2, OUTPUT+3 |
| IND | EVALPL+2~, EVALPL+48*, EVALPL+49*, EVALPL+51, EVALPL+53, EVALTERM+1~, MHVOUT+1~, MHVOUT+8*, MHVOUT+9*, MHVOUT+10 , MHVOUT+12, OUTPUT+2~, OUTPUT+6*, OUTPUT+7*, OUTPUT+8, OUTPUT+10 |
| INDENT | MHVOUT~, MHVOUT+7, MHVOUT+14, MHVOUT+15, MHVOUT+16, OUTPUT~, OUTPUT+5, OUTPUT+12, OUTPUT+13, OUTPUT+14 |
| ITEM | EVALPL+2~, EVALPL+35*, EVALPL+36*, EVALPL+38, EVALPL+40, EVALPL+41, EVALPL+43, EVALPL+46*, EVALPL+47*, EVALPL+49 , EVALPL+51, EVALPL+53 |
| JND | EVALTERM+1~, EVALTERM+46*, EVALTERM+47* |
| LIST | EVALPL+2~ |
| NAME | MHVOUT+1~, MHVOUT+5* |
| NFOUND | EVALPL+2~, EVALPL+37*, EVALPL+38*, EVALPL+40, EVALPL+41, EVALPL+43, EVALPL+44*, EVALPL+45, EVALPL+47, EVALPL+49 , EVALPL+51, EVALPL+52*, EVALPL+53 |
| NLINES | MHVOUT~, MHVOUT+2*, MHVOUT+6*, MHVOUT+7, MHVOUT+14, MHVOUT+15, MHVOUT+16, MHVOUT+17*, OUTPUT~, OUTPUT+3* , OUTPUT+5*, OUTPUT+12, OUTPUT+13, OUTPUT+14 |
| NOCC | EVALPL+2~, EVALPL+29*, EVALPL+30*, EVALPL+45, EVALPL+47, EVALPL+49, EVALPL+51, EVALTERM+3~, EVALTERM+12*, EVALTERM+13* , EVALTERM+14, EVALTERM+15*, EVALTERM+44 |
| NOINDEX | EVALFI+2~, EVALFI+3*, EVALFI+6*, EVALFI+9*, EVALFI+15, EVALPL+2~, EVALPL+4*, EVALPL+7*, EVALPL+10*, EVALPL+11 , EVALTERM+1~, EVALTERM+4*, EVALTERM+7*, EVALTERM+10*, EVALTERM+22 |
| PFIEVAL | MHVOUT+1~, MHVOUT+12!*, MHVOUT+14, MHVOUT+15, MHVOUT+16, OUTPUT+2~, OUTPUT+10!*, OUTPUT+12, OUTPUT+13, OUTPUT+14 |
| PFIEVAL("DISP | ENSE DRUG" , MHVOUT+13*, OUTPUT+11* |
| PFINDPA | EVALPL+3~, EVALPL+19!, EVALPL+22, EVALPL+25, EVALPL+26, EVALPL+27, EVALTERM+1~, EVALTERM+23!, EVALTERM+27, EVALTERM+42 |
| PFINDPA(0 | EVALPL+24, EVALTERM+29 |
| PLIST | EVALPL~, EVALPL+53 |
| POI | DEVAL~, DEVAL+2, DEVAL+14, DEVAL+16, DEVAL+17, EVALFI+2~, EVALFI+12*, EVALFI+20, EVALPL+3~, EVALPL+16* , EVALPL+26, EVALTERM+1~, EVALTERM+18*, EVALTERM+34, EVALTERM+36, EVALTERM+37 |
| >> PXRMITEM | EVALFI+5, EVALFI+8 |
| RXTYL | DEVAL~, EVALFI+2~, EVALFI+17!, EVALFI+19, EVALFI+20, EVALPL+3~, EVALPL+24, EVALTERM+2~, EVALTERM+29 |
| RXTYL("I" | DEVAL+6, EVALPL+25, EVALTERM+30 |
| RXTYL("N" | DEVAL+14, EVALPL+26, EVALTERM+34 |
| RXTYL("O" | DEVAL+10, EVALPL+27, EVALTERM+38 |
| SDIR | EVALTERM+3~, EVALTERM+14*, EVALTERM+44 |
| TEMP | EVALPL+3~, EVALPL+41*, EVALPL+42, EVALTERM+2~, MHVOUT+1~, MHVOUT+10*, MHVOUT+11, OUTPUT+2~, OUTPUT+8*, OUTPUT+9 |
| TERMARR | EVALPL~, EVALTERM~ |
| TERMARR("E" | EVALPL+15, EVALPL+18, EVALTERM+17, EVALTERM+20 |
| TERMARR("IEN" | EVALPL+6, EVALPL+9, EVALTERM+6, EVALTERM+9 |
| TERMARR(20 | EVALPL+20, EVALTERM+25, EVALTERM+31, EVALTERM+35, EVALTERM+39 |
| TEXT | MHVOUT~, MHVOUT+14, MHVOUT+15, MHVOUT+16, OUTPUT~, OUTPUT+12, OUTPUT+13, OUTPUT+14, CLORGNT+1~, CLORGNT+2* , CLORGNT+8*, CLORGNT+12*, CLORGNT+13 |
| TEXT( | MHVOUT+2*, MHVOUT+7*, MHVOUT+17*, OUTPUT+3*, OUTPUT+5* |
| TEXTOUT | OUTPUT+2~ |
| TF | EVALPL+3~, EVALPL+31*, EVALPL+33, EVALPL+36, EVALPL+38, EVALPL+40, EVALPL+41, EVALPL+43, EVALPL+45, EVALPL+47 , EVALPL+49, EVALPL+51, EVALPL+53 |
| TFIEVAL | EVALTERM~, EVALTERM+44 |
| TFIEVAL( | EVALTERM+21*, EVALTERM+47* |
| TFINDING | EVALPL+3~, EVALPL+17*, EVALPL+18*, EVALPL+20, EVALTERM+2~, EVALTERM+19*, EVALTERM+20*, EVALTERM+21, EVALTERM+25, EVALTERM+31 , EVALTERM+35, EVALTERM+39, EVALTERM+42, EVALTERM+44, EVALTERM+47 |
| TFINDPA | EVALPL+3~, EVALPL+19!, EVALPL+20*, EVALPL+22, EVALTERM+2~, EVALTERM+23!, EVALTERM+25*, EVALTERM+27 |
| TGLIST | EVALPL+3~, EVALPL+12*, EVALPL+13, EVALPL+25, EVALPL+26, EVALPL+27, EVALPL+33, EVALPL+36, EVALPL+38, EVALPL+40 , EVALPL+41, EVALPL+53, EVALPL+54 |
| TLIST | EVALPL+3~, EVALPL+34! |
| TLIST( | EVALPL+43*, EVALPL+45, EVALPL+47, EVALPL+49, EVALPL+51 |
| U | DEVAL+8, DEVAL+12, DEVAL+16, EVALPL+29, EVALPL+42, EVALTERM+12, EVALTERM+32, EVALTERM+36, EVALTERM+40, CLORGNT+8 |