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 |