PXRMLOCF ;SLC/PKR - Handle location findings. ;02/17/2016
Source file <PXRMLOCF.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 |
---|---|---|
ALL(FILENUM,DFN,PFINDPA,FIEVAL) | ;Get all Visits with a location
|
|
EVALFI(DFN,DEFARR,ENODE,FIEVAL) | ;Evaluate location findings.
|
|
EVALTERM(DFN,FINDPA,ENODE,TERMARR,TFIEVAL) | ;Evaluate location terms.
|
|
FIEVAL(FILENUM,SNODE,DFN,ITEM,PFINDPA,FIEVAL) | ;
|
|
FPDAT(DFN,HLOCL,NOCC,SDIR,BDT,EDT,NFOUND,FLIST) | ;Find patient data for
|
|
LOCLIST(IEN,SUB) | ;Build a list of unique locations based on stop code
|
|
MHVOUT(INDENT,IFIEVAL,NLINES,TEXT) | ;Produce the MHV output.
|
|
OUTPUT(INDENT,IFIEVAL,NLINES,TEXT) | ;Produce the clinical
|
Name | Field # of Occurrence |
---|---|
$$EXTERNAL^DILFD | OUTPUT+24 |
$$COND^PXRMCOND | ALL+32, FIEVAL+26 |
SCPAR^PXRMCOND | ALL+10, FIEVAL+14 |
$$GETFNUM^PXRMDATA | EVALFI+2, EVALTERM+3 |
GETDATA^PXRMDATA | ALL+29, FIEVAL+24 |
$$EDATE^PXRMDATE | MHVOUT+14, OUTPUT+10 |
$$INSCHR^PXRMEXLC | OUTPUT+5 |
SEND^PXRMMSG | LOCLIST+41 |
SPFINDPA^PXRMTERM | EVALTERM+11 |
FORMAT^PXRMTEXT | OUTPUT+30 |
FORMATS^PXRMTEXT | MHVOUT+15, OUTPUT+14, OUTPUT+34 |
SFRES^PXRMUTIL | ALL+44, FIEVAL+38 |
SSPAR^PXRMUTIL | ALL+6, FIEVAL+11 |
$$VAPSTAT^PXRMVSIT | FPDAT+32 |
FileNo | Call Tags |
---|---|
^AUPNVSIT - [#9000010] | EXTERNAL^DILFD |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVSIT - [#9000010] | ALL+30, FPDAT+25 |
^AUPNVSIT("AA" | ALL+20, ALL+28, FPDAT+15, FPDAT+24 |
^DIC(4 - [#4] | MHVOUT+9, OUTPUT+12 |
^DIC(40.7 - [#40.7] | MHVOUT+11 |
^PXRMD(810.9 - [#810.9] | FIEVAL+5, FIEVAL+8, LOCLIST+5, LOCLIST+8, LOCLIST+9, LOCLIST+13, LOCLIST+14, LOCLIST+17, LOCLIST+20, LOCLIST+21 , LOCLIST+24, LOCLIST+34, LOCLIST+35, LOCLIST+39 |
^SC - [#44] | LOCLIST+28, MHVOUT+13 |
^SC("AST" | LOCLIST+26 |
^TMP( | FIEVAL+7* |
^TMP("PXRMXMZ" | LOCLIST+39*, LOCLIST+40* |
^TMP($J | FPDAT+28, FPDAT+43!, LOCLIST+3!, LOCLIST+31*, LOCLIST+36*, LOCLIST+37 |
Name | Line Occurrences |
---|---|
ALL | FIEVAL+9 |
FIEVAL | EVALFI+10, EVALTERM+12 |
FPDAT | FIEVAL+19 |
LOCLIST | FIEVAL+18 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BDT | ALL+2~, ALL+6, ALL+7, ALL+11, ALL+14, EVALFI+1~, FIEVAL+2~, FIEVAL+11, FIEVAL+12, FIEVAL+19 , FPDAT~, FPDAT+9 |
BTIME | ALL+2~, ALL+14*, ALL+26, FPDAT+6~, FPDAT+9*, FPDAT+22 |
CASESEN | ALL+2~, ALL+10, ALL+32, FIEVAL+2~, FIEVAL+14, FIEVAL+26 |
COND | ALL+2~, ALL+10, ALL+32, ALL+37, FIEVAL+2~, FIEVAL+14, FIEVAL+26, FIEVAL+31 |
CONVAL | ALL+2~, ALL+32*, ALL+33, ALL+36, ALL+37, FIEVAL+2~, FIEVAL+26*, FIEVAL+27, FIEVAL+30, FIEVAL+31 |
CSTOP | LOCLIST+2~, LOCLIST+28*, LOCLIST+29, LOCLIST+30 |
DAS | ALL+2~, ALL+27*, ALL+28*, ALL+29, ALL+30, ALL+38, FIEVAL+2~, FIEVAL+23*, FIEVAL+24, FPDAT+6~ , FPDAT+23*, FPDAT+24*, FPDAT+25, FPDAT+32, FPDAT+36 |
DATE | ALL+2~, ALL+30*, ALL+31, ALL+39, FIEVAL+2~, FPDAT+6~, FPDAT+33*, FPDAT+36 |
DEFARR | EVALFI~ |
DEFARR("E" | EVALFI+4, EVALFI+6 |
DEFARR(20 | EVALFI+8 |
DEND | ALL+2~, ALL+13*, ALL+15, FPDAT+6~, FPDAT+8*, FPDAT+10 |
DFN | ALL~, ALL+20, ALL+28, EVALFI~, EVALFI+10, EVALTERM~, EVALTERM+12, FIEVAL~, FIEVAL+9, FIEVAL+19 , FPDAT~, FPDAT+15, FPDAT+24 |
DLIST | FPDAT+6~ |
DLIST( | FPDAT+36*, FPDAT+38, FPDAT+40, FPDAT+42 |
DONE | ALL+2~, ALL+12*, ALL+18*, ALL+20, ALL+22*, ALL+23*, ALL+28, ALL+42*, FPDAT+6~, FPDAT+14* , FPDAT+15, FPDAT+18*, FPDAT+19*, FPDAT+24, FPDAT+35* |
DS | ALL+2~, ALL+16*, ALL+17*, ALL+18, FPDAT+6~, FPDAT+11*, FPDAT+12*, FPDAT+14 |
DUZ | LOCLIST+41 |
EDT | ALL+2~, ALL+6, ALL+7, ALL+11, ALL+13, EVALFI+1~, FIEVAL+2~, FIEVAL+11, FIEVAL+12, FIEVAL+19 , FPDAT~, FPDAT+8 |
EM | OUTPUT+3~, OUTPUT+24 |
ENODE | EVALFI~, EVALFI+2, EVALFI+4, EVALFI+6, EVALTERM~, EVALTERM+3, EVALTERM+5, EVALTERM+7 |
ETIME | ALL+2~, ALL+15*, ALL+25, FPDAT+6~, FPDAT+10*, FPDAT+21 |
EXCL | LOCLIST+2~, LOCLIST+10!, LOCLIST+14*, LOCLIST+15, LOCLIST+21*, LOCLIST+22 |
EXCL( | LOCLIST+15*, LOCLIST+22*, LOCLIST+29 |
EXCLNCS | LOCLIST+2~, LOCLIST+24*, LOCLIST+30 |
EXCLP | LOCLIST+2~, LOCLIST+17*, LOCLIST+18, LOCLIST+20, LOCLIST+21 |
FIEVAL | ALL~, ALL+44, EVALFI~, FIEVAL~, FIEVAL+6*, FIEVAL+9, FIEVAL+20*, FIEVAL+38 |
FIEVAL( | ALL+36*, ALL+37*, ALL+38*, ALL+39*, ALL+40*, ALL+41*, EVALFI+11*, EVALFI+12*, FIEVAL+30*, FIEVAL+31* , FIEVAL+32*, FIEVAL+33*, FIEVAL+34*, FIEVAL+35* |
FIEVAL("BDTE" | ALL+7*, ALL+11*, FIEVAL+12* |
FIEVAL("EDTE" | ALL+7*, ALL+11*, FIEVAL+12* |
FIEVAL("FILE | NUMBER" , ALL+45*, FIEVAL+39* |
FIEVD | ALL+2~, ALL+29, ALL+32, ALL+40, ALL+41, FIEVAL+2~, FIEVAL+24, FIEVAL+26, FIEVAL+34, FIEVAL+35 |
FIEVD("DATE" | ALL+31*, FIEVAL+25*, FIEVAL+33 |
FIEVT | EVALFI+1~, EVALFI+9!, EVALFI+10, EVALFI+11, EVALTERM+1~, EVALTERM+8!, EVALTERM+12, EVALTERM+13 |
FILENUM | ALL~, ALL+29, ALL+45, EVALFI+1~, EVALFI+2*, EVALFI+10, EVALTERM+1~, EVALTERM+3*, EVALTERM+12, FIEVAL~ , FIEVAL+9, FIEVAL+24, FIEVAL+39 |
FINDING | EVALFI+1~, EVALFI+5*, EVALFI+6*, EVALFI+8, EVALFI+11, EVALFI+12 |
FINDPA | EVALFI+1~, EVALFI+7!, EVALFI+8*, EVALFI+10, EVALTERM~, EVALTERM+11 |
FINDPA(0 | EVALFI+12 |
FLIST | FIEVAL+2~, FIEVAL+19, FPDAT~ |
FLIST( | FIEVAL+23, FIEVAL+25, FIEVAL+32, FPDAT+42* |
HLOC | FIEVAL+2~, FPDAT+6~, FPDAT+26*, FPDAT+27, FPDAT+28, LOCLIST+2~, LOCLIST+25*, LOCLIST+26*, LOCLIST+28, LOCLIST+31 , LOCLIST+35*, LOCLIST+36, MHVOUT+2~, MHVOUT+12*, MHVOUT+13*, MHVOUT+14, OUTPUT+3~, OUTPUT+16*, OUTPUT+17*, OUTPUT+18 |
HLOCL | FPDAT~, FPDAT+28 |
ICOND | ALL+3~, ALL+10, ALL+32, FIEVAL+3~, FIEVAL+14, FIEVAL+26 |
IEN | LOCLIST~, LOCLIST+4, LOCLIST+5, LOCLIST+8, LOCLIST+9, LOCLIST+13, LOCLIST+14, LOCLIST+17, LOCLIST+24, LOCLIST+34 , LOCLIST+35, LOCLIST+39 |
IFIEVAL | MHVOUT~, OUTPUT~ |
IFIEVAL( | MHVOUT+5, MHVOUT+7, MHVOUT+8, MHVOUT+10, MHVOUT+12, OUTPUT+7, OUTPUT+9, OUTPUT+11, OUTPUT+16, OUTPUT+19 , OUTPUT+23, OUTPUT+26, OUTPUT+32, OUTPUT+33 |
IND | FIEVAL+3~, FIEVAL+22*, FIEVAL+23, FIEVAL+25, FIEVAL+32, LOCLIST+2~, LOCLIST+7*, LOCLIST+8*, LOCLIST+9, LOCLIST+13 , LOCLIST+14, LOCLIST+17, LOCLIST+24, LOCLIST+33*, LOCLIST+34*, LOCLIST+35, MHVOUT+2~, MHVOUT+4*, MHVOUT+5*, MHVOUT+7 , MHVOUT+8, MHVOUT+10, MHVOUT+12, OUTPUT+3~, OUTPUT+6*, OUTPUT+7*, OUTPUT+9, OUTPUT+11, OUTPUT+16, OUTPUT+19 , OUTPUT+23, OUTPUT+26, OUTPUT+32, OUTPUT+33 |
INDENT | MHVOUT~, MHVOUT+15, OUTPUT~, OUTPUT+5, OUTPUT+14, OUTPUT+30, OUTPUT+34 |
INVBD | ALL+3~, ALL+14*, ALL+17, ALL+22, ALL+26, FPDAT+7~, FPDAT+9*, FPDAT+12, FPDAT+18, FPDAT+22 |
INVDATE | ALL+3~, ALL+21*, ALL+22, ALL+23, ALL+25, ALL+26, FPDAT+7~, FPDAT+17*, FPDAT+18, FPDAT+19 , FPDAT+21, FPDAT+22 |
INVDT | ALL+3~, ALL+18*, ALL+20*, ALL+21, ALL+24, ALL+28, FPDAT+7~, FPDAT+14*, FPDAT+15*, FPDAT+17 , FPDAT+20, FPDAT+24, FPDAT+36, FPDAT+37*, FPDAT+38*, FPDAT+40, FPDAT+42 |
INVED | ALL+3~, ALL+15*, ALL+16, ALL+23, ALL+25, FPDAT+7~, FPDAT+10*, FPDAT+11, FPDAT+19, FPDAT+21 |
ITEM | EVALFI+1~, EVALFI+3*, EVALFI+4*, EVALFI+6, EVALFI+10, EVALTERM+1~, EVALTERM+4*, EVALTERM+5*, EVALTERM+7, EVALTERM+12 , FIEVAL~, FIEVAL+5, FIEVAL+7, FIEVAL+8, FIEVAL+18 |
JND | LOCLIST+2~, LOCLIST+12*, LOCLIST+13*, LOCLIST+14, LOCLIST+19*, LOCLIST+20*, LOCLIST+21, MHVOUT+2~, MHVOUT+16*, OUTPUT+3~ , OUTPUT+15*, OUTPUT+31*, OUTPUT+35* |
LNAME | FIEVAL+3~, FIEVAL+8*, FIEVAL+9 |
LOC | MHVOUT+2~, MHVOUT+8*, MHVOUT+9*, MHVOUT+14, OUTPUT+3~, OUTPUT+11*, OUTPUT+12*, OUTPUT+13 |
MGIEN | LOCLIST+38~ |
MGROUP | LOCLIST+38~ |
NAME | MHVOUT+2~, MHVOUT+3*, MHVOUT+14 |
NF | FPDAT+7~, FPDAT+16*, FPDAT+34*, FPDAT+36, FPDAT+39*, FPDAT+40*, FPDAT+42 |
NFOUND | ALL+3~, ALL+12*, ALL+18*, ALL+35*, ALL+36, ALL+37, ALL+38, ALL+39, ALL+40, ALL+41 , ALL+42, ALL+44, FIEVAL+3~, FIEVAL+19, FIEVAL+20, FIEVAL+22, FPDAT~, FPDAT+14*, FPDAT+34*, FPDAT+35 , FPDAT+37*, FPDAT+41*, FPDAT+42 |
NGET | FIEVAL+3~, FIEVAL+16*, FIEVAL+19 |
NIN | MHVOUT+2~, MHVOUT+6*, OUTPUT+3~, OUTPUT+8*, OUTPUT+22*, OUTPUT+25*, OUTPUT+29*, OUTPUT+30 |
NLINES | MHVOUT~, MHVOUT+16*, MHVOUT+17*, OUTPUT~, OUTPUT+4*, OUTPUT+5, OUTPUT+15*, OUTPUT+31*, OUTPUT+35*, OUTPUT+36* |
NOCC | ALL+3~, ALL+6, ALL+8, ALL+9*, ALL+42, FIEVAL+3~, FIEVAL+11, FIEVAL+13, FIEVAL+15*, FIEVAL+16 , FIEVAL+22, FIEVAL+38, FPDAT~, FPDAT+35 |
NOUT | MHVOUT+2~, MHVOUT+15, MHVOUT+16, OUTPUT+3~, OUTPUT+14, OUTPUT+15, OUTPUT+30, OUTPUT+31, OUTPUT+34, OUTPUT+35 |
NP | FIEVAL+3~, FIEVAL+21*, FIEVAL+22, FIEVAL+29*, FIEVAL+30, FIEVAL+31, FIEVAL+32, FIEVAL+33, FIEVAL+34, FIEVAL+35 , FIEVAL+38 |
PFINDPA | ALL~, ALL+10, EVALTERM+1~, EVALTERM+8!, EVALTERM+11, EVALTERM+12, FIEVAL~, FIEVAL+9, FIEVAL+14 |
PFINDPA(0 | ALL+6, FIEVAL+11 |
>> PXRMDEBG | ALL+7, ALL+11, ALL+41, FIEVAL+12, FIEVAL+35 |
>> PXRMITEM | FIEVAL+7 |
>> PXRMPID | FIEVAL+7 |
>> PXRMRM | MHVOUT+15, OUTPUT+14, OUTPUT+30, OUTPUT+34 |
SAVE | ALL+4~, ALL+33*, ALL+34, FIEVAL+4~, FIEVAL+27*, FIEVAL+28 |
SC | FPDAT+7~, FPDAT+31*, FPDAT+32, MHVOUT+2~, MHVOUT+10*, MHVOUT+11*, MHVOUT+14, OUTPUT+3~, OUTPUT+19*, OUTPUT+20* , OUTPUT+21, OUTPUT+23*, OUTPUT+24 |
SDIR | ALL+4~, ALL+8*, ALL+16, ALL+17, ALL+20, ALL+22, ALL+23, ALL+44, FIEVAL+4~, FIEVAL+13* , FIEVAL+19, FPDAT~, FPDAT+11, FPDAT+12, FPDAT+15, FPDAT+18, FPDAT+19 |
SNODE | FIEVAL~ |
STATUS | OUTPUT+3~, OUTPUT+26*, OUTPUT+27*, OUTPUT+28 |
STATUSA | FIEVAL+4~, FIEVAL+16 |
STOP | LOCLIST+2~, LOCLIST+9*, LOCLIST+26 |
SUB | LOCLIST~, LOCLIST+3, LOCLIST+31, LOCLIST+36, LOCLIST+37 |
TEMP | ALL+4~, EVALTERM+2~, FIEVAL+4~, FPDAT+7~, FPDAT+25*, FPDAT+26, FPDAT+31, FPDAT+33, MHVOUT+2~, MHVOUT+14* , MHVOUT+15, OUTPUT+3~, OUTPUT+10*, OUTPUT+13*, OUTPUT+14, OUTPUT+18*, OUTPUT+21*, OUTPUT+22, OUTPUT+24*, OUTPUT+25 , OUTPUT+28*, OUTPUT+29, OUTPUT+33*, OUTPUT+34 |
TERMARR | EVALTERM~ |
TERMARR("E" | EVALTERM+5, EVALTERM+7 |
TERMARR(20 | EVALTERM+9 |
TEXT | MHVOUT~, OUTPUT~ |
TEXT( | MHVOUT+16*, MHVOUT+17*, OUTPUT+5*, OUTPUT+15*, OUTPUT+31*, OUTPUT+35*, OUTPUT+36* |
TEXTIN | MHVOUT+2~, OUTPUT+3~, OUTPUT+30 |
TEXTIN( | OUTPUT+22*, OUTPUT+25*, OUTPUT+29* |
TEXTOUT | MHVOUT+2~, MHVOUT+15, OUTPUT+3~, OUTPUT+14, OUTPUT+30, OUTPUT+34 |
TEXTOUT( | MHVOUT+16, OUTPUT+15, OUTPUT+31, OUTPUT+35 |
TFIEVAL | EVALTERM~ |
TFIEVAL( | EVALTERM+13*, EVALTERM+14* |
TFINDING | EVALTERM+2~, EVALTERM+6*, EVALTERM+7*, EVALTERM+9, EVALTERM+13, EVALTERM+14 |
TFINDPA | EVALTERM+2~, EVALTERM+8!, EVALTERM+9*, EVALTERM+11 |
TFINDPA(0 | EVALTERM+14 |
TIME | ALL+4~, ALL+24*, ALL+25, ALL+26, FPDAT+7~, FPDAT+20*, FPDAT+21, FPDAT+22 |
TO | LOCLIST+38~, LOCLIST+41 |
U | ALL+30, EVALFI+12, EVALTERM+14, FIEVAL+8, FIEVAL+23, FIEVAL+25, FIEVAL+32, FPDAT+26, FPDAT+31, FPDAT+33 , FPDAT+36, LOCLIST+9, LOCLIST+14, LOCLIST+21, LOCLIST+28, LOCLIST+39, MHVOUT+9, MHVOUT+11, MHVOUT+13, OUTPUT+12 , OUTPUT+26 |
UCIFS | ALL+4~, ALL+10, ALL+33, FIEVAL+4~, FIEVAL+14, FIEVAL+16, FIEVAL+27 |
VDATE | MHVOUT+2~, MHVOUT+7*, MHVOUT+14, OUTPUT+3~, OUTPUT+9*, OUTPUT+10 |
VSLIST | ALL+10, ALL+32, FIEVAL+4~, FIEVAL+14, FIEVAL+26 |