PXRMCF ;SLC/PKR - Handle computed findings. ;02/07/2014
Source file <PXRMCF.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| MHVOUT(INDENT,IFIEVAL,NLINES,TEXT) | ;Produce the MHV output. | |
| FIEVAL(FILENUM,DFN,ITEM,PFINDPA,FIEVAL) | ; | |
| GPLIST(FILENUM,CFIEN,PFINDPA,PLIST) | ;Add to the patient list | |
| EVALFI(DFN,DEFARR,ENODE,FIEVAL) | ;Evaluate computed findings. | |
| EVALPL(FINDPA,ENODE,TERMARR,PLIST) | ;Patient list evaluator. | |
| HELP(IEN) | ;Display help for a computed finding. | |
| EVALTERM(DFN,FINDPA,ENODE,TERMARR,TFIEVAL) | ;General term | |
| OUTPUT(INDENT,IFIEVAL,NLINES,TEXT) | ;Produce the clinical | 
| Name | Field # of Occurrence | 
|---|---|
| BROWSE^DDBR | HELP+15 | 
| $$EXTERNAL^DILFD | HELP+8, HELP+9 | 
| $$COND^PXRMCOND | FIEVAL+39, GPLIST+33 | 
| SCPAR^PXRMCOND | FIEVAL+10, GPLIST+15 | 
| $$GETFNUM^PXRMDATA | EVALFI+2, EVALPL+4, EVALTERM+4 | 
| $$EDATE^PXRMDATE | MHVOUT+11, OUTPUT+12 | 
| $$ASKYN^PXRMEUT | HELP+4 | 
| $$INSCHR^PXRMEXLC | OUTPUT+8 | 
| SPFINDPA^PXRMTERM | EVALPL+12, EVALTERM+12 | 
| FORMATS^PXRMTEXT | MHVOUT+12, MHVOUT+17, OUTPUT+17, OUTPUT+22 | 
| SFRES^PXRMUTIL | FIEVAL+52 | 
| SSPAR^PXRMUTIL | FIEVAL+6, GPLIST+13 | 
| $$ABS^XLFMTH | FIEVAL+13, GPLIST+14 | 
| FileNo | Call Tags | 
|---|---|
| ^PXRMD(811.4 - [#811.4] | EXTERNAL^DILFD | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^PXRMD(811.4 - [#811.4] | HELP+2, HELP+9, HELP+12, HELP+13, FIEVAL+14, GPLIST+7, MHVOUT+3, OUTPUT+4 | 
| ^TMP( | FIEVAL+32* | 
| ^TMP($J | GPLIST+17!, GPLIST+25, GPLIST+27, GPLIST+38*, GPLIST+39! | 
| Name | Line Occurrences | 
|---|---|
| @( | FIEVAL+19, FIEVAL+29, GPLIST+19 | 
| FIEVAL | EVALFI+10, EVALTERM+13 | 
| GPLIST | EVALPL+13 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| ANS | HELP+1~, HELP+4*, HELP+5 | 
| BDT | FIEVAL+2~, FIEVAL+6, FIEVAL+7, FIEVAL+21, GPLIST+2~, GPLIST+13 | 
| CASESEN | FIEVAL+2~, FIEVAL+10, FIEVAL+39, GPLIST+2~, GPLIST+15, GPLIST+33 | 
| CFIEN | GPLIST~, GPLIST+7, GPLIST+37 | 
| COND | FIEVAL+2~, FIEVAL+10, FIEVAL+37, FIEVAL+45, GPLIST+2~, GPLIST+15, GPLIST+33 | 
| CONVAL | FIEVAL+2~, FIEVAL+39*, FIEVAL+40*, FIEVAL+41, FIEVAL+44, FIEVAL+45, GPLIST+2~, GPLIST+33*, GPLIST+34, GPLIST+37 | 
| DAS | FIEVAL+2~, GPLIST+2~ | 
| DATA | FIEVAL+2~, GPLIST+2~, GPLIST+32!*, GPLIST+33, MHVOUT+1~, OUTPUT+2~ | 
| DATA( | FIEVAL+36*, FIEVAL+38, FIEVAL+48, FIEVAL+49 | 
| DATA(1 | FIEVAL+25*, FIEVAL+26* | 
| DATE | FIEVAL+2~, FIEVAL+21, FIEVAL+24, GPLIST+2~, MHVOUT+1~, MHVOUT+10*, MHVOUT+11, OUTPUT+2~, OUTPUT+11*, OUTPUT+12 | 
| DATE( | FIEVAL+36, FIEVAL+46 | 
| DATE(1 | FIEVAL+24* | 
| DEFARR | EVALFI~ | 
| DEFARR("E" | EVALFI+4, EVALFI+6 | 
| DEFARR(20 | EVALFI+8 | 
| DFN | EVALFI~, EVALFI+10, EVALTERM~, EVALTERM+13, FIEVAL~, GPLIST+2~, GPLIST+24*, GPLIST+25*, GPLIST+27, GPLIST+37 | 
| EDT | FIEVAL+2~, FIEVAL+6, FIEVAL+7, FIEVAL+21, GPLIST+2~, GPLIST+13 | 
| ENODE | EVALFI~, EVALFI+2, EVALFI+4, EVALFI+6, EVALPL~, EVALPL+4, EVALPL+6, EVALPL+8, EVALTERM~, EVALTERM+4 , EVALTERM+6, EVALTERM+8 | 
| FIEN | MHVOUT+1~, MHVOUT+2*, MHVOUT+3, OUTPUT+2~, OUTPUT+3*, OUTPUT+4 | 
| FIEVAL | EVALFI~, FIEVAL~, FIEVAL+33*, FIEVAL+52 | 
| FIEVAL( | EVALFI+11*, EVALFI+12*, FIEVAL+44*, FIEVAL+45*, FIEVAL+46*, FIEVAL+47*, FIEVAL+48*, FIEVAL+49* | 
| FIEVAL("BDTE" | FIEVAL+7* | 
| FIEVAL("EDTE" | FIEVAL+7* | 
| FIEVAL("FILE | NUMBER" , FIEVAL+53* | 
| FIEVT | EVALFI+1~, EVALFI+9!, EVALFI+10, EVALFI+11, EVALTERM+2~, EVALTERM+9!, EVALTERM+13, EVALTERM+14 | 
| FILENUM | EVALFI+1~, EVALFI+2*, EVALFI+10, EVALPL+2~, EVALPL+4*, EVALPL+13, EVALTERM+2~, EVALTERM+4*, EVALTERM+13, FIEVAL~ , FIEVAL+53, GPLIST~, GPLIST+37 | 
| FINDING | EVALFI+1~, EVALFI+5*, EVALFI+6*, EVALFI+8, EVALFI+11, EVALFI+12 | 
| FINDPA | EVALFI+1~, EVALFI+7!, EVALFI+8*, EVALFI+10, EVALPL~, EVALPL+12, EVALTERM~, EVALTERM+12 | 
| FINDPA(0 | EVALFI+12 | 
| FLIST | FIEVAL+2~, GPLIST+2~ | 
| ICOND | FIEVAL+2~, FIEVAL+10, FIEVAL+39, GPLIST+3~, GPLIST+15, GPLIST+33 | 
| IEN | HELP~, HELP+2, HELP+9, HELP+12, HELP+13 | 
| IFIEVAL | MHVOUT~, OUTPUT~ | 
| IFIEVAL( | MHVOUT+8, MHVOUT+9, MHVOUT+10, MHVOUT+16, MHVOUT+17, OUTPUT+10, OUTPUT+11, OUTPUT+13, OUTPUT+16, OUTPUT+21 , OUTPUT+22 | 
| IFIEVAL("FINDING" | MHVOUT+2, OUTPUT+3 | 
| IND | HELP+1~, HELP+11*, HELP+12*, HELP+13, FIEVAL+2~, FIEVAL+26*, FIEVAL+35*, FIEVAL+36, FIEVAL+37, FIEVAL+38 , FIEVAL+40, FIEVAL+46, FIEVAL+47, FIEVAL+48, FIEVAL+49, GPLIST+3~, GPLIST+28*, GPLIST+30*, GPLIST+31, GPLIST+32 , MHVOUT+1~, MHVOUT+7*, MHVOUT+8*, MHVOUT+9, MHVOUT+10, MHVOUT+16, MHVOUT+17, OUTPUT+2~, OUTPUT+9*, OUTPUT+10* , OUTPUT+11, OUTPUT+13, OUTPUT+16, OUTPUT+21, OUTPUT+22 | 
| INDENT | MHVOUT~, MHVOUT+12, MHVOUT+17, OUTPUT~, OUTPUT+8, OUTPUT+17, OUTPUT+22 | 
| IPLIST | GPLIST+3~, GPLIST+29!, GPLIST+38 | 
| IPLIST( | GPLIST+37* | 
| ITEM | EVALFI+1~, EVALFI+3*, EVALFI+4*, EVALFI+6, EVALFI+10, EVALPL+2~, EVALPL+5*, EVALPL+6*, EVALPL+8, EVALPL+13 , EVALTERM+2~, EVALTERM+5*, EVALTERM+6*, EVALTERM+8, EVALTERM+13, FIEVAL~, FIEVAL+14 | 
| JND | MHVOUT+1~, MHVOUT+13*, MHVOUT+18*, OUTPUT+2~, OUTPUT+18*, OUTPUT+23* | 
| KND | MHVOUT+1~, MHVOUT+15*, MHVOUT+16*, MHVOUT+17, OUTPUT+2~, OUTPUT+20*, OUTPUT+21*, OUTPUT+22 | 
| N | HELP+1~ | 
| NAME | MHVOUT+1~, MHVOUT+6*, MHVOUT+11 | 
| NFOUND | FIEVAL+3~, FIEVAL+21*, FIEVAL+22*, FIEVAL+23, FIEVAL+31*, FIEVAL+33, FIEVAL+35, GPLIST+4~, GPLIST+28*, GPLIST+30 , GPLIST+36*, GPLIST+37 | 
| NGET | FIEVAL+3~, FIEVAL+11*, FIEVAL+13*, GPLIST+4~, GPLIST+16* | 
| >> NL | HELP+11*, HELP+13*, HELP+14 | 
| NLINES | MHVOUT~, MHVOUT+13*, MHVOUT+18*, MHVOUT+19*, OUTPUT~, OUTPUT+7*, OUTPUT+8, OUTPUT+18*, OUTPUT+23*, OUTPUT+24* | 
| NOCC | FIEVAL+3~, FIEVAL+6, FIEVAL+8, FIEVAL+11, FIEVAL+13, FIEVAL+35, GPLIST+4~, GPLIST+13, GPLIST+14 | 
| NOCCABS | GPLIST+4~, GPLIST+14*, GPLIST+16, GPLIST+30 | 
| NOUT | MHVOUT+1~, MHVOUT+12, MHVOUT+13, MHVOUT+17, MHVOUT+18, OUTPUT+2~, OUTPUT+17, OUTPUT+18, OUTPUT+22, OUTPUT+23 | 
| NP | FIEVAL+3~, FIEVAL+34*, FIEVAL+35, FIEVAL+43*, FIEVAL+44, FIEVAL+45, FIEVAL+46, FIEVAL+47, FIEVAL+48, FIEVAL+49 , FIEVAL+52, GPLIST+4~ | 
| OUTPUT | HELP+1~ | 
| OUTPUT( | HELP+13* | 
| OUTPUT(1 | HELP+7* | 
| OUTPUT(2 | HELP+8* | 
| OUTPUT(3 | HELP+9* | 
| OUTPUT(4 | HELP+10*, HELP+14* | 
| PARAM | GPLIST+4~, GPLIST+11* | 
| PDATA | FIEVAL+3~, FIEVAL+38!*, FIEVAL+39 | 
| PFINDPA | EVALPL+2~, EVALPL+9!, EVALPL+12, EVALPL+13, EVALTERM+2~, EVALTERM+9!, EVALTERM+12, EVALTERM+13, FIEVAL~, FIEVAL+10 , GPLIST~, GPLIST+15 | 
| PFINDPA(0 | FIEVAL+6, GPLIST+13 | 
| PFINDPA(15 | FIEVAL+9, GPLIST+11 | 
| PLIST | EVALPL~, EVALPL+13, GPLIST~, GPLIST+38 | 
| PNAME | MHVOUT+1~, MHVOUT+4*, MHVOUT+5*, MHVOUT+6, OUTPUT+2~, OUTPUT+5*, OUTPUT+6*, OUTPUT+8 | 
| >> PXRMDEBG | FIEVAL+7, FIEVAL+49 | 
| >> PXRMITEM | FIEVAL+32 | 
| >> PXRMPID | FIEVAL+32 | 
| >> PXRMRM | MHVOUT+12, MHVOUT+17, OUTPUT+17, OUTPUT+22 | 
| ROUTINE | FIEVAL+3~, FIEVAL+18*, FIEVAL+19, FIEVAL+28*, FIEVAL+29, GPLIST+4~, GPLIST+18*, GPLIST+19 | 
| SAVE | FIEVAL+4~, FIEVAL+41*, FIEVAL+42, GPLIST+5~, GPLIST+34*, GPLIST+35 | 
| SDIR | FIEVAL+4~, FIEVAL+8*, FIEVAL+52 | 
| STATUSA | FIEVAL+4~, FIEVAL+11, GPLIST+5~, GPLIST+16 | 
| TEMP | HELP+1~, HELP+2*, HELP+3, HELP+7, HELP+8, EVALPL+3~, EVALTERM+3~, FIEVAL+4~, FIEVAL+14*, FIEVAL+15 , FIEVAL+18, FIEVAL+28, GPLIST+5~, GPLIST+7*, GPLIST+8, GPLIST+18, GPLIST+31*, GPLIST+37, MHVOUT+1~, MHVOUT+3* , MHVOUT+4, MHVOUT+5, MHVOUT+11*, MHVOUT+12, OUTPUT+2~, OUTPUT+4*, OUTPUT+5, OUTPUT+6, OUTPUT+12*, OUTPUT+14* , OUTPUT+16*, OUTPUT+17 | 
| TERMARR | EVALPL~, EVALTERM~ | 
| TERMARR("E" | EVALPL+6, EVALPL+8, EVALTERM+6, EVALTERM+8 | 
| TERMARR(20 | EVALPL+10, EVALTERM+10 | 
| TEST | FIEVAL+4~, FIEVAL+9*, FIEVAL+21, FIEVAL+24 | 
| TEST( | FIEVAL+37, FIEVAL+40 | 
| TEST(1 | FIEVAL+24* | 
| TEXT | HELP+1~, HELP+3*, HELP+4, FIEVAL+4~, FIEVAL+24, GPLIST+5~, MHVOUT~, OUTPUT~ | 
| TEXT( | FIEVAL+47, MHVOUT+13*, MHVOUT+18*, MHVOUT+19*, OUTPUT+8*, OUTPUT+18*, OUTPUT+23*, OUTPUT+24* | 
| TEXT(1 | FIEVAL+24* | 
| TEXTOUT | MHVOUT+1~, MHVOUT+12, MHVOUT+17, OUTPUT+2~, OUTPUT+17, OUTPUT+22 | 
| TEXTOUT( | MHVOUT+13, MHVOUT+18, OUTPUT+18, OUTPUT+23 | 
| TFIEVAL | EVALTERM~ | 
| TFIEVAL( | EVALTERM+14*, EVALTERM+15* | 
| TFINDING | EVALPL+3~, EVALPL+7*, EVALPL+8*, EVALPL+10, EVALTERM+3~, EVALTERM+7*, EVALTERM+8*, EVALTERM+10, EVALTERM+14, EVALTERM+15 | 
| TFINDPA | EVALPL+3~, EVALPL+9!, EVALPL+10*, EVALPL+12, EVALTERM+3~, EVALTERM+9!, EVALTERM+10*, EVALTERM+12 | 
| TFINDPA(0 | EVALTERM+15 | 
| TGLIST | GPLIST+5~, GPLIST+10*, GPLIST+17, GPLIST+25, GPLIST+27, GPLIST+39 | 
| >> TITLE | HELP+6* | 
| TPLIST | GPLIST+5~, GPLIST+26!, GPLIST+27* | 
| TPLIST( | GPLIST+30, GPLIST+31, GPLIST+32 | 
| TYPE | FIEVAL+4~, FIEVAL+15*, FIEVAL+16*, FIEVAL+17, FIEVAL+27, FIEVAL+30, FIEVAL+32, GPLIST+5~, GPLIST+8*, GPLIST+9 | 
| U | HELP+3, HELP+7, HELP+8, HELP+9, EVALFI+12, EVALTERM+15, FIEVAL+15, FIEVAL+18, FIEVAL+28, GPLIST+8 , GPLIST+18, MHVOUT+4, MHVOUT+5, OUTPUT+5, OUTPUT+6 | 
| UCIFS | FIEVAL+4~, FIEVAL+10, FIEVAL+11, FIEVAL+41, GPLIST+6~, GPLIST+15, GPLIST+16, GPLIST+34 | 
| VALUE | FIEVAL+4~, FIEVAL+25, FIEVAL+26, GPLIST+6~, MHVOUT+1~, MHVOUT+9*, MHVOUT+11, OUTPUT+2~, OUTPUT+13*, OUTPUT+14 | 
| VALUE( | FIEVAL+26 | 
| VSLIST | FIEVAL+4~, FIEVAL+10, FIEVAL+39, GPLIST+6~, GPLIST+15, GPLIST+33 |