©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
PXRMLOCF ;SLC/PKR - Handle location findings. ;07/18/2012
Source file <PXRMLOCF.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MHVOUT(INDENT,IFIEVAL,NLINES,TEXT) | ;Produce the MHV output.
|
|
| FPDAT(DFN,HLOCL,NOCC,SDIR,BDT,EDT,NFOUND,FLIST) | ;Find patient data for
|
|
| EVALFI(DFN,DEFARR,ENODE,FIEVAL) | ;Evaluate location findings.
|
|
| EVALTERM(DFN,FINDPA,ENODE,TERMARR,TFIEVAL) | ;Evaluate location terms.
|
|
| ALL(FILENUM,DFN,PFINDPA,FIEVAL) | ;Get all Visits with a location
|
|
| OUTPUT(INDENT,IFIEVAL,NLINES,TEXT) | ;Produce the clinical
|
|
| LOCLIST(IEN,SUB) | ;Build a list of unique locations based on stop code
|
|
| FIEVAL(FILENUM,SNODE,DFN,ITEM,PFINDPA,FIEVAL) | ;
|
| 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+30 |
| 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+41!, 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+30, FPDAT+34 |
| DATE | ALL+2~, ALL+30*, ALL+31, ALL+39, FIEVAL+2~, FPDAT+6~, FPDAT+31*, FPDAT+34 |
| 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+34*, FPDAT+36, FPDAT+38, FPDAT+40 |
| 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+33* |
| 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+40* |
| 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+34, FPDAT+35*, FPDAT+36*, FPDAT+38, FPDAT+40 |
| 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+32*, FPDAT+34, FPDAT+37*, FPDAT+38*, FPDAT+40 |
| 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+32*, FPDAT+33 , FPDAT+35*, FPDAT+39*, FPDAT+40 |
| 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+33 |
| 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 | 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, 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+34 , 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 |