PXRMDRGR ; SLC/PKR - Handle groups of drug findings. ;01/25/2008
Source file <PXRMDRGR.m>
| Package | Total | Call Graph | 
|---|---|---|
| Clinical Reminders | 6 | DEVAL^PXRMDRUG NOINDEX^PXRMERRH GPLIST^PXRMINDL SRXTYL^PXRMRXTY SPFINDPA^PXRMTERM SFRES^PXRMUTIL | 
| Pharmacy Data Management | 1 | ($$ITEM,IX)^PSSCLINR | 
| Package | Total | Caller Graph | 
|---|---|---|
| Clinical Reminders | 2 | PXRMDGEN PXRMDRCL | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| FIEVAL(DFN,DRGRIEN,FINDPA,DEFARR,FINDING,XREF,FIEVAL) | ; | |
| EVALTERM(DFN,FINDPA,ENODE,XREF,TERMARR,TFIEVAL) | ;Evaluate drug | |
| GPLIST(DRGRIEN,PFINDPA,XREF,PLIST) | ; | |
| EVALPL(FINDPA,ENODE,XREF,TERMARR,PLIST) | ;Evaluate drug group | |
| GETPDR(DFN,RXTYL,DRBEG,DREND,POIBEG,POIEND) | ;Return the beginning drug and | |
| EVALFI(DFN,DEFARR,ENODE,XREF,FIEVAL) | ;Evaluate drug group findings. | |
| ONLIST(FIEVTL,IND,FIEVT) | ;Return true if FIEVT(IND) is already on | 
| Name | Field # of Occurrence | 
|---|---|
| $$ITEM^PSSCLINR | FIEVAL+18, GPLIST+11 | 
| IX^PSSCLINR | FIEVAL+13, GPLIST+8 | 
| DEVAL^PXRMDRUG | FIEVAL+22 | 
| NOINDEX^PXRMERRH | EVALFI+4, EVALFI+7, EVALPL+6, EVALPL+9, EVALTERM+6, EVALTERM+9 | 
| GPLIST^PXRMINDL | GPLIST+12, GPLIST+13, GPLIST+14 | 
| SRXTYL^PXRMRXTY | FIEVAL+10, GPLIST+7 | 
| SPFINDPA^PXRMTERM | EVALPL+19, EVALTERM+19 | 
| SFRES^PXRMUTIL | FIEVAL+44 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^PXRMINDX("55NVA" | GETPDR+14, GETPDR+15 | 
| ^PXRMINDX(52 | EVALFI+3, EVALPL+5, EVALTERM+5, GETPDR+8, GETPDR+9 | 
| ^PXRMINDX(55 | EVALFI+6, EVALPL+8, EVALTERM+8, GETPDR+4, GETPDR+5 | 
| ^TMP($J | FIEVAL+15, FIEVAL+45!, GPLIST+5!, GPLIST+10, GPLIST+20, GPLIST+23, GPLIST+25, GPLIST+27, GPLIST+28, GPLIST+40* , GPLIST+41! | 
| Name | Line Occurrences | 
|---|---|
| $$ONLIST | FIEVAL+27 | 
| FIEVAL | EVALFI+16, EVALTERM+20 | 
| GETPDR | FIEVAL+11 | 
| GPLIST | EVALPL+20 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| DATE | FIEVAL+2~, FIEVAL+37*, FIEVAL+38*, FIEVAL+40, GPLIST+2~, GPLIST+29*, GPLIST+30, GPLIST+31*, GPLIST+32*, GPLIST+34 , GPLIST+36, GPLIST+38 | 
| DATEORDR | FIEVAL+2~ | 
| DATEORDR( | FIEVAL+30*, FIEVAL+33, FIEVAL+34!, FIEVAL+38, FIEVAL+40 | 
| DATEORDR("" | FIEVAL+33 | 
| DEFARR | EVALFI~, EVALFI+16, FIEVAL~, FIEVAL+22 | 
| DEFARR("E" | EVALFI+10, EVALFI+12 | 
| DEFARR(20 | EVALFI+15 | 
| DFN | EVALFI~, EVALFI+16, EVALTERM~, EVALTERM+20, FIEVAL~, FIEVAL+11, FIEVAL+22, GETPDR~, GETPDR+4, GETPDR+5 , GETPDR+8, GETPDR+9, GETPDR+14, GETPDR+15, GPLIST+2~, GPLIST+19*, GPLIST+20*, GPLIST+23, GPLIST+25, GPLIST+27 , GPLIST+28, GPLIST+40 | 
| DRBEG | FIEVAL+2~, FIEVAL+11, FIEVAL+16, GETPDR~, GETPDR+11* | 
| DREND | FIEVAL+2~, FIEVAL+11, FIEVAL+12, FIEVAL+16, GETPDR~, GETPDR+12* | 
| DRGRIEN | EVALFI+1~, EVALFI+9*, EVALFI+10*, EVALFI+12, EVALFI+16, EVALPL+2~, EVALPL+12*, EVALPL+13*, EVALPL+15, EVALPL+20 , EVALTERM+2~, EVALTERM+11*, EVALTERM+12*, EVALTERM+14, EVALTERM+20, FIEVAL~, FIEVAL+13, FIEVAL+15, GPLIST~, GPLIST+8 , GPLIST+10 | 
| DRUG | FIEVAL+2~, FIEVAL+16*, FIEVAL+17*, FIEVAL+22 | 
| DRUGIEN | FIEVAL+2~, FIEVAL+14*, FIEVAL+15*, FIEVAL+16, FIEVAL+18, FIEVAL+28, GPLIST+2~, GPLIST+9*, GPLIST+10*, GPLIST+11 , GPLIST+12, GPLIST+14 | 
| ENODE | EVALFI~, EVALFI+10, EVALFI+12, EVALPL~, EVALPL+13, EVALPL+15, EVALTERM~, EVALTERM+12, EVALTERM+14 | 
| FIEVAL | EVALFI~, FIEVAL~, FIEVAL+12*, FIEVAL+35*, FIEVAL+44 | 
| FIEVAL( | EVALFI+13*, EVALFI+17*, EVALFI+18*, FIEVAL+42* | 
| FIEVT | EVALFI+1~, EVALFI+14!, EVALFI+16, EVALFI+17, EVALTERM+2~, EVALTERM+16!, EVALTERM+20, EVALTERM+21, FIEVAL+2~, FIEVAL+21! , FIEVAL+22, FIEVAL+23, FIEVAL+27, ONLIST~ | 
| FIEVT( | FIEVAL+25, FIEVAL+29, FIEVAL+30, ONLIST+5, ONLIST+6 | 
| FIEVTL | FIEVAL+2~, FIEVAL+27, ONLIST~ | 
| FIEVTL( | FIEVAL+28*, FIEVAL+29*, FIEVAL+34!, FIEVAL+42, ONLIST+4, ONLIST+5, ONLIST+6 | 
| FILENUM | GPLIST+2~, GPLIST+26*, GPLIST+27*, GPLIST+28, GPLIST+30, GPLIST+37*, GPLIST+38*, GPLIST+40 | 
| FINDING | EVALFI+1~, EVALFI+11*, EVALFI+12*, EVALFI+13, EVALFI+15, EVALFI+16, EVALFI+17, EVALFI+18, FIEVAL~, FIEVAL+22 | 
| FINDPA | EVALFI+1~, EVALFI+14!, EVALFI+15*, EVALFI+16, EVALPL~, EVALPL+19, EVALTERM~, EVALTERM+19, FIEVAL~, FIEVAL+22 | 
| FINDPA(0 | EVALFI+18, FIEVAL+5, FIEVAL+10, GPLIST+16 | 
| IBEG | GETPDR+2~, GETPDR+4*, GETPDR+6*, GETPDR+11 | 
| IEND | GETPDR+2~, GETPDR+5*, GETPDR+6*, GETPDR+12 | 
| IND | FIEVAL+2~, FIEVAL+24*, FIEVAL+25*, FIEVAL+27, FIEVAL+29, FIEVAL+30, FIEVAL+39*, FIEVAL+40*, FIEVAL+42, GPLIST+2~ , GPLIST+35*, GPLIST+36*, GPLIST+38, GPLIST+40, ONLIST~, ONLIST+5, ONLIST+6 | 
| ITEM | GPLIST+2~, GPLIST+22*, GPLIST+23*, GPLIST+25, GPLIST+27, GPLIST+28, GPLIST+30, GPLIST+33*, GPLIST+34*, GPLIST+36 , GPLIST+38, GPLIST+40 | 
| JND | ONLIST+2~, ONLIST+3*, ONLIST+4*, ONLIST+5, ONLIST+6 | 
| NFOUND | FIEVAL+3~, FIEVAL+14*, FIEVAL+28*, FIEVAL+29, FIEVAL+30, FIEVAL+32, FIEVAL+35, FIEVAL+37*, FIEVAL+38, FIEVAL+40 , FIEVAL+41*, FIEVAL+42, FIEVAL+44, GPLIST+2~, GPLIST+24*, GPLIST+25*, GPLIST+27, GPLIST+28, GPLIST+30, GPLIST+31* , GPLIST+32, GPLIST+34, GPLIST+36, GPLIST+38, GPLIST+39*, GPLIST+40 | 
| NOCC | FIEVAL+3~, FIEVAL+5*, FIEVAL+6*, FIEVAL+7, FIEVAL+8*, FIEVAL+32, FIEVAL+38, FIEVAL+40, GPLIST+2~, GPLIST+16* , GPLIST+17*, GPLIST+32, GPLIST+34, GPLIST+36, GPLIST+38 | 
| NOINDEX | EVALFI+1~, EVALFI+2*, EVALFI+5*, EVALFI+8*, EVALFI+13, EVALPL+2~, EVALPL+4*, EVALPL+7*, EVALPL+10*, EVALPL+11 , EVALTERM+2~, EVALTERM+4*, EVALTERM+7*, EVALTERM+10*, EVALTERM+15 | 
| OBEG | GETPDR+2~, GETPDR+8*, GETPDR+10*, GETPDR+11 | 
| OEND | GETPDR+2~, GETPDR+9*, GETPDR+10*, GETPDR+12 | 
| ONLIST | ONLIST+2~, ONLIST+3*, ONLIST+4, ONLIST+7*, ONLIST+8 | 
| PFINDPA | EVALPL+2~, EVALPL+16!, EVALPL+19, EVALPL+20, EVALTERM+2~, EVALTERM+16!, EVALTERM+19, EVALTERM+20, GPLIST~, GPLIST+12 , GPLIST+13, GPLIST+14 | 
| PFINDPA(0 | GPLIST+7 | 
| PLIST | EVALPL~, EVALPL+20, GPLIST~, GPLIST+40 | 
| POI | FIEVAL+3~, FIEVAL+19*, FIEVAL+20*, FIEVAL+22, GPLIST+2~, GPLIST+11*, GPLIST+13 | 
| POIBEG | FIEVAL+3~, FIEVAL+11, FIEVAL+19, GETPDR~, GETPDR+14*, GETPDR+16* | 
| POIEND | FIEVAL+3~, FIEVAL+11, FIEVAL+12, FIEVAL+19, GETPDR~, GETPDR+15*, GETPDR+16* | 
| POIIEN | FIEVAL+3~, FIEVAL+18*, FIEVAL+19 | 
| >> PXRMITEM | EVALFI+4, EVALFI+7 | 
| RXTYL | FIEVAL+3~, FIEVAL+10, FIEVAL+11, FIEVAL+22, GETPDR~, GPLIST+2~, GPLIST+7 | 
| RXTYL("I" | GETPDR+3, GPLIST+12 | 
| RXTYL("N" | GETPDR+13, GPLIST+13 | 
| RXTYL("O" | GETPDR+7, GPLIST+14 | 
| SDIR | FIEVAL+4~, FIEVAL+7*, FIEVAL+33, FIEVAL+38, FIEVAL+44 | 
| TDATE | FIEVAL+4~, FIEVAL+33*, FIEVAL+34 | 
| TEMP | EVALPL+3~, EVALTERM+3~, GPLIST+3~, GPLIST+28*, GPLIST+29 | 
| TERMARR | EVALPL~, EVALTERM~, EVALTERM+20 | 
| TERMARR("E" | EVALPL+13, EVALPL+15, EVALTERM+12, EVALTERM+14 | 
| TERMARR("IEN" | EVALPL+6, EVALPL+9, EVALTERM+6, EVALTERM+9 | 
| TERMARR(20 | EVALPL+17, EVALTERM+17 | 
| TF | GPLIST+3~, GPLIST+18*, GPLIST+20, GPLIST+23, GPLIST+25, GPLIST+27, GPLIST+28, GPLIST+30, GPLIST+32, GPLIST+34 , GPLIST+36, GPLIST+38, GPLIST+40 | 
| TFIEVAL | EVALTERM~ | 
| TFIEVAL( | EVALTERM+15*, EVALTERM+21*, EVALTERM+22* | 
| TFINDING | EVALPL+3~, EVALPL+14*, EVALPL+15*, EVALPL+17, EVALTERM+3~, EVALTERM+13*, EVALTERM+14*, EVALTERM+15, EVALTERM+17, EVALTERM+20 , EVALTERM+21, EVALTERM+22 | 
| TFINDPA | EVALPL+3~, EVALPL+16!, EVALPL+17*, EVALPL+19, EVALTERM+3~, EVALTERM+16!, EVALTERM+17*, EVALTERM+19 | 
| TFINDPA(0 | EVALTERM+22 | 
| TGLIST | GPLIST+3~, GPLIST+4*, GPLIST+5, GPLIST+12, GPLIST+13, GPLIST+14, GPLIST+20, GPLIST+23, GPLIST+25, GPLIST+27 , GPLIST+28, GPLIST+40, GPLIST+41 | 
| TIND | FIEVAL+4~, FIEVAL+33*, FIEVAL+34 | 
| TLIST | GPLIST+3~, GPLIST+21! | 
| TLIST( | GPLIST+30*, GPLIST+32, GPLIST+34, GPLIST+36, GPLIST+38 | 
| U | EVALFI+18, EVALTERM+22, FIEVAL+5, GPLIST+16, GPLIST+29 | 
| XREF | EVALFI~, EVALFI+16, EVALPL~, EVALPL+20, EVALTERM~, EVALTERM+20, FIEVAL~, FIEVAL+13, FIEVAL+15, FIEVAL+45 , GPLIST~, GPLIST+8, GPLIST+10, GPLIST+41 |