PXRMHF ;SLC/PKR - Handle Health Factor findings. ;04/05/2022
Source file <PXRMHF.m>
| 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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CATSORT(FIEVAL,FIND0,FARR) | ;Sort all the true health factor findings
|
|
| EVALFI(DFN,DEFARR,ENODE,FIEVAL) | ;Evaluate health factor findings.
|
|
| EVALPL(FINDPA,ENODE,TERMARR,PLIST) | ;Evaluate health factor term findings
|
|
| EVALTERM(DFN,FINDPA,ENODE,TERMARR,TFIEVAL) | ;Evaluate health factor terms.
|
|
| GETDATA(DAS,FIEVT) | ;Return data for a specified V Health Factor entry.
|
|
| MHVOUT(INDENT,IFIEVAL,NLINES,TEXT) | ;Produce the MHV output.
|
|
| OUTPUT(INDENT,IFIEVAL,NLINES,TEXT) | ;Produce the clinical
|
|
| WARN(HF0) | ;Issue a warning if a health factor is missing its category.
|
| Name | Field # of Occurrence |
|---|---|
| $$EXTERNAL^DILFD | MHVOUT+18, OUTPUT+33 |
| VHF^PXPXRM | GETDATA+2 |
| $$GETFNUM^PXRMDATA | EVALFI+2 |
| $$EDATE^PXRMDATE | MHVOUT+20, OUTPUT+29 |
| NOINDEX^PXRMERRH | EVALFI+4, EVALTERM+4 |
| $$INSCHR^PXRMEXLC | MHVOUT+28, OUTPUT+18, OUTPUT+41 |
| EVALPL^PXRMINDL | EVALPL+2 |
| FIEVAL^PXRMINDX | EVALFI+15, EVALTERM+16 |
| SEND^PXRMMSG | WARN+7 |
| SPFINDPA^PXRMTERM | EVALTERM+15 |
| COLFMT^PXRMTEXT | OUTPUT+24 |
| FORMATS^PXRMTEXT | MHVOUT+21, OUTPUT+34, OUTPUT+45 |
| $$UCUMFIELDS^PXRMUCUM | MHVOUT+13, OUTPUT+14 |
| FileNo | Call Tags |
|---|---|
| ^AUPNVHF - [#9000010.23] | EXTERNAL^DILFD |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUTTHF - [#9999999.64] | CATSORT+16, CATSORT+18, MHVOUT+4, MHVOUT+5, MHVOUT+7, OUTPUT+6, OUTPUT+7, OUTPUT+8 |
| ^PXRMINDX( | EVALFI+3 |
| ^PXRMINDX(9000010.23 | EVALTERM+3 |
| ^TMP("PXRMXMZ" | WARN+2!, WARN+4*, WARN+5*, WARN+6* |
| Name | Line Occurrences |
|---|---|
| CATSORT | EVALFI+19, EVALTERM+20 |
| WARN | CATSORT+18 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BDT | EVALTERM+1~ |
| CAPTION | MHVOUT+1~, MHVOUT+27*, MHVOUT+28, OUTPUT+2~, OUTPUT+40*, OUTPUT+41 |
| CAT | CATSORT+3~, CATSORT+16*, CATSORT+18, CATSORT+19, CATSORT+20, CATSORT+24*, CATSORT+25*, CATSORT+26, CATSORT+29, CATSORT+31 , CATSORT+33, CATSORT+45, CATSORT+47 |
| CATLIST | CATSORT+3~, CATSORT+22 |
| CATLIST( | CATSORT+19*, CATSORT+25, CATSORT+26, CATSORT+29, CATSORT+31, CATSORT+33, CATSORT+45, CATSORT+47 |
| COL1W | OUTPUT+20~, OUTPUT+22*, OUTPUT+23 |
| COL2W | OUTPUT+20~, OUTPUT+22*, OUTPUT+23 |
| DAS | GETDATA~, GETDATA+2 |
| DATE | CATSORT+3~, CATSORT+28*, CATSORT+29*, CATSORT+31, CATSORT+33 |
| DEFARR | EVALFI~, EVALFI+19 |
| DEFARR("E" | EVALFI+8, EVALFI+10 |
| DEFARR(20 | EVALFI+13 |
| DFN | EVALFI~, EVALFI+15, EVALTERM~, EVALTERM+16 |
| DUZ | WARN+7 |
| EDT | EVALTERM+1~ |
| EM | MHVOUT+1~, MHVOUT+18, OUTPUT+2~, OUTPUT+33 |
| ENODE | EVALFI~, EVALFI+2, EVALFI+8, EVALFI+10, EVALPL~, EVALPL+2, EVALTERM~, EVALTERM+8, EVALTERM+10 |
| FARR | CATSORT~ |
| FARR("E" | CATSORT+5, CATSORT+7 |
| FARR(20 | CATSORT+10 |
| FI | CATSORT+3~, CATSORT+6*, CATSORT+7*, CATSORT+8, CATSORT+10, CATSORT+19, CATSORT+20, CATSORT+32*, CATSORT+33*, CATSORT+34 , CATSORT+37, CATSORT+46*, CATSORT+47*, CATSORT+51, CATSORT+52, CATSORT+55 |
| FIEN | MHVOUT+1~, MHVOUT+3*, MHVOUT+4, MHVOUT+5, MHVOUT+7, OUTPUT+2~, OUTPUT+4*, OUTPUT+6, OUTPUT+7, OUTPUT+8 |
| FIEVAL | CATSORT~, EVALFI~, EVALFI+19 |
| FIEVAL( | CATSORT+8, CATSORT+19, CATSORT+20*, CATSORT+34*, CATSORT+37*, CATSORT+51*, CATSORT+52*, CATSORT+55*, EVALFI+11*, EVALFI+16* , EVALFI+17* |
| FIEVT | EVALFI+1~, EVALFI+14!, EVALFI+15, EVALFI+16, EVALTERM+1~, EVALTERM+12!, EVALTERM+16, EVALTERM+17, GETDATA~, GETDATA+2 |
| FILENUM | EVALFI+1~, EVALFI+2*, EVALFI+3, EVALFI+4, EVALFI+15 |
| FIND0 | CATSORT~, CATSORT+11 |
| FINDING | EVALFI+1~, EVALFI+9*, EVALFI+10*, EVALFI+11, EVALFI+13, EVALFI+16, EVALFI+17 |
| FINDPA | EVALFI+1~, EVALFI+12!, EVALFI+13*, EVALFI+15, EVALPL~, EVALPL+2, EVALTERM~, EVALTERM+15 |
| FINDPA(0 | EVALFI+17, EVALTERM+20 |
| FMTSTR | OUTPUT+20~, OUTPUT+23*, OUTPUT+24 |
| HF0 | WARN~, WARN+4 |
| HF220 | MHVOUT+1~, MHVOUT+7*, MHVOUT+8, MHVOUT+10, OUTPUT+2~, OUTPUT+8*, OUTPUT+9, OUTPUT+11 |
| HFIEN | CATSORT+3~, CATSORT+4*, CATSORT+5*, CATSORT+7, CATSORT+16, CATSORT+18, EVALFI+1~, EVALFI+7*, EVALFI+8*, EVALFI+10 , EVALFI+15, EVALTERM+1~, EVALTERM+7*, EVALTERM+8*, EVALTERM+10, EVALTERM+16 |
| IFIEVAL | MHVOUT~, OUTPUT~ |
| IFIEVAL( | MHVOUT+16, MHVOUT+17, MHVOUT+19, MHVOUT+23, MHVOUT+24, OUTPUT+27, OUTPUT+28, OUTPUT+30, OUTPUT+36, OUTPUT+37 , OUTPUT+43, OUTPUT+44 |
| IFIEVAL("FINDING" | MHVOUT+3, OUTPUT+4 |
| IND | CATSORT+3~, CATSORT+36*, CATSORT+37*, CATSORT+50*, CATSORT+51*, CATSORT+54*, CATSORT+55*, MHVOUT+1~, MHVOUT+15*, MHVOUT+16* , MHVOUT+17, MHVOUT+19, MHVOUT+23, MHVOUT+24, OUTPUT+2~, OUTPUT+26*, OUTPUT+27*, OUTPUT+28, OUTPUT+30, OUTPUT+36 , OUTPUT+37, OUTPUT+43, OUTPUT+44 |
| INDENT | MHVOUT~, MHVOUT+21, MHVOUT+28, OUTPUT~, OUTPUT+16, OUTPUT+18, OUTPUT+22, OUTPUT+34, OUTPUT+41, OUTPUT+45 |
| JND | MHVOUT+1~, MHVOUT+22*, OUTPUT+2~, OUTPUT+25*, OUTPUT+35*, OUTPUT+46* |
| LDATE | CATSORT+3~, CATSORT+26*, CATSORT+29, CATSORT+45, CATSORT+47 |
| LVL | MHVOUT+1~, MHVOUT+17*, MHVOUT+18*, MHVOUT+20, OUTPUT+2~, OUTPUT+30*, OUTPUT+31, OUTPUT+33 |
| MAGNITUDE | MHVOUT+1~, MHVOUT+24*, MHVOUT+25, MHVOUT+28, OUTPUT+2~, OUTPUT+37*, OUTPUT+38, OUTPUT+41 |
| NAME | MHVOUT+1~, MHVOUT+6*, MHVOUT+20 |
| NLINES | MHVOUT~, MHVOUT+22*, MHVOUT+26*, MHVOUT+28, MHVOUT+29, MHVOUT+30*, OUTPUT~, OUTPUT+17*, OUTPUT+18, OUTPUT+25* , OUTPUT+35*, OUTPUT+39*, OUTPUT+41, OUTPUT+42, OUTPUT+46*, OUTPUT+47* |
| NOINDEX | EVALFI+1~, EVALFI+5*, EVALFI+6*, EVALFI+11, EVALTERM+1~, EVALTERM+5*, EVALTERM+6*, EVALTERM+11 |
| NOUT | MHVOUT+1~, MHVOUT+21, MHVOUT+22, OUTPUT+2~, OUTPUT+24, OUTPUT+25, OUTPUT+34, OUTPUT+35, OUTPUT+45, OUTPUT+46 |
| NTRUE | CATSORT+3~, CATSORT+44*, CATSORT+48, CATSORT+50* |
| PFINDPA | EVALTERM+1~, EVALTERM+12!, EVALTERM+15, EVALTERM+16 |
| PLIST | EVALPL~, EVALPL+2 |
| PNAME | MHVOUT+1~, MHVOUT+4*, MHVOUT+5*, MHVOUT+6, OUTPUT+2~, OUTPUT+6*, OUTPUT+7*, OUTPUT+16, OUTPUT+18, OUTPUT+21 |
| >> PXRMDEBG | CATSORT+20 |
| >> PXRMITEM | EVALFI+4 |
| >> PXRMRM | MHVOUT+21, OUTPUT+34, OUTPUT+45 |
| TEMP | MHVOUT+1~, MHVOUT+20*, MHVOUT+21, OUTPUT+2~, OUTPUT+21*, OUTPUT+24, OUTPUT+29*, OUTPUT+32*, OUTPUT+33*, OUTPUT+34 , OUTPUT+44*, OUTPUT+45 |
| TERMARR | EVALPL~, EVALPL+2, EVALTERM~, EVALTERM+20 |
| TERMARR("E" | EVALTERM+8, EVALTERM+10 |
| TERMARR("IEN" | EVALTERM+4 |
| TERMARR(20 | EVALTERM+13 |
| TEXT | MHVOUT~, OUTPUT~ |
| TEXT( | MHVOUT+22*, MHVOUT+28*, MHVOUT+29*, MHVOUT+30*, OUTPUT+18*, OUTPUT+25*, OUTPUT+35*, OUTPUT+41*, OUTPUT+42*, OUTPUT+46* , OUTPUT+47* |
| TEXTOUT | MHVOUT+1~, MHVOUT+21, OUTPUT+2~, OUTPUT+24, OUTPUT+34, OUTPUT+45 |
| TEXTOUT( | MHVOUT+22, OUTPUT+25, OUTPUT+35, OUTPUT+46 |
| TFIEVAL | EVALTERM~, EVALTERM+20 |
| TFIEVAL( | EVALTERM+11*, EVALTERM+17*, EVALTERM+18* |
| TFINDING | EVALTERM+2~, EVALTERM+9*, EVALTERM+10*, EVALTERM+11, EVALTERM+13, EVALTERM+17, EVALTERM+18 |
| TFINDPA | EVALTERM+2~, EVALTERM+12!, EVALTERM+13*, EVALTERM+15 |
| TFINDPA(0 | EVALTERM+18 |
| U | CATSORT+10, CATSORT+11, CATSORT+16, CATSORT+20, EVALFI+17, EVALTERM+18, MHVOUT+4, MHVOUT+5, MHVOUT+8, MHVOUT+10 , MHVOUT+24, OUTPUT+6, OUTPUT+7, OUTPUT+9, OUTPUT+11, OUTPUT+37, WARN+4 |
| UCUMDISPLAY | MHVOUT+2~, MHVOUT+10*, MHVOUT+11, MHVOUT+12, OUTPUT+3~, OUTPUT+11*, OUTPUT+12, OUTPUT+13 |
| UCUMFIELD | MHVOUT+2~, MHVOUT+12*, MHVOUT+13, OUTPUT+3~, OUTPUT+13*, OUTPUT+14 |
| UCUMIEN | MHVOUT+2~, MHVOUT+8*, MHVOUT+9, MHVOUT+13, OUTPUT+3~, OUTPUT+9*, OUTPUT+10, OUTPUT+14 |
| UNITS | MHVOUT+2~, MHVOUT+11*, MHVOUT+13*, MHVOUT+14*, MHVOUT+27, MHVOUT+29, OUTPUT+3~, OUTPUT+12*, OUTPUT+14*, OUTPUT+15* , OUTPUT+40, OUTPUT+42 |
| VDATE | MHVOUT+2~, MHVOUT+19*, MHVOUT+20, OUTPUT+3~, OUTPUT+28*, OUTPUT+29 |
| WCR | CATSORT+3~, CATSORT+10*, CATSORT+11*, CATSORT+12*, CATSORT+15, CATSORT+19, CATSORT+20, CATSORT+30*, CATSORT+31*, CATSORT+33 , CATSORT+44*, CATSORT+45*, CATSORT+47 |
| XMSUB | WARN+1~, WARN+3*, WARN+7 |