PXRMCF ;SLC/PKR - Handle computed findings. ;11/18/2019
Source file <PXRMCF.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 |
---|---|---|
HELP(IEN) | ;Display help for a computed finding.
|
|
EVALFI(DFN,DEFARR,ENODE,FIEVAL) | ;Evaluate computed findings.
|
|
EVALPL(FINDPA,ENODE,TERMARR,PLIST) | ;Patient list evaluator.
|
|
EVALTERM(DFN,FINDPA,ENODE,TERMARR,TFIEVAL) | ;General term
|
|
FIEVAL(FILENUM,DFN,ITEM,PFINDPA,FIEVAL) | ;
|
|
GPLIST(FILENUM,CFIEN,PFINDPA,PLIST) | ;Add to the patient list
|
|
MHVOUT(INDENT,IFIEVAL,NLINES,TEXT) | ;Produce the MHV output.
|
|
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+53 |
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+46, GPLIST+2~, GPLIST+15, GPLIST+33 |
CONVAL | FIEVAL+2~, FIEVAL+39*, FIEVAL+40*, FIEVAL+41, FIEVAL+44, FIEVAL+46, 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+49, FIEVAL+50 |
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+47 |
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+53 |
FIEVAL( | EVALFI+11*, EVALFI+12*, FIEVAL+44*, FIEVAL+46*, FIEVAL+47*, FIEVAL+48*, FIEVAL+49*, FIEVAL+50* |
FIEVAL("BDTE" | FIEVAL+7* |
FIEVAL("EDTE" | FIEVAL+7* |
FIEVAL("FILE | NUMBER" , FIEVAL+54* |
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+54, 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+47, FIEVAL+48, FIEVAL+49, FIEVAL+50, 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+46, FIEVAL+47, FIEVAL+48, FIEVAL+49, FIEVAL+50 , FIEVAL+53, 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+50 |
>> 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+53 |
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+48, 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 |