PXRMVSC ; SLC/PKR - Code to handle V Standard Codes data. ;02/03/2022
Source file <PXRMVSC.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 |
|---|---|---|
| FPDAT(DFN,TAXARR,NGET,SDIR,BDT,EDT,FLIST) | ;Find data for a patient.
|
|
| FPDCSYS(DFN,CODESYS,TAXARR,NGET,NFOUND,BDT,EDTT,DS,SDIR,TLIST) | ;Find data for
|
|
| GETDATA(DAS,FIEVT) | ;Return data for a specified V Standard Codes entry.
|
|
| GPLIST(TAXARR,NOCC,BDT,EDT,PLIST) | ;Build patient list for V CPT entries.
|
|
| GPLCSYS(CODESYS,CODE,TAXARR,BDT,DS,TLIST) | ;Build patient list for V
|
|
| MHVOUT(INDENT,OCCLIST,IFIEVAL,NLINES,TEXT) | ;Produce the MHV output.
|
|
| OUTPUT(INDENT,OCCLIST,IFIEVAL,NLINES,TEXT) | ;Produce the clinical
|
| Name | Field # of Occurrence |
|---|---|
| $$CSDATA^LEXU | MHVOUT+11, OUTPUT+15 |
| $$CSYS^LEXU | OUTPUT+12 |
| VSCDATA^PXPXRM | GETDATA+2 |
| $$EDATE^PXRMDATE | MHVOUT+12, OUTPUT+17 |
| NOINDEX^PXRMERRH | FPDAT+5, GPLIST+5 |
| $$INSCHR^PXRMEXLC | MHVOUT+20, OUTPUT+5, OUTPUT+29 |
| FORMAT^PXRMTEXT | OUTPUT+22 |
| FORMATS^PXRMTEXT | MHVOUT+13, OUTPUT+34 |
| $$SCTHIER^PXRMTXIN | OUTPUT+19 |
| $$UCUMFIELDS^PXRMUCUM | MHVOUT+22, OUTPUT+31 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVSC - [#9000010.71] | OUTPUT+16 |
| ^PXRMINDX(9000010.71 | FPDAT+4, FPDAT+6, FPDAT+10, FPDCSYS+5, FPDCSYS+7, FPDCSYS+8, GPLIST+4, GPLCSYS+2, GPLCSYS+5, GPLCSYS+7 , GPLCSYS+8 |
| ^TMP($J | GPLIST+7!, GPLIST+16, GPLIST+18, GPLIST+20, GPLIST+22, GPLIST+23*, GPLIST+24!, GPLCSYS+9* |
| Name | Line Occurrences |
|---|---|
| FPDCSYS | FPDAT+11 |
| GPLCSYS | GPLIST+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BDT | FPDAT~, FPDAT+8, FPDAT+11, FPDCSYS~, FPDCSYS+7, GPLIST~, GPLIST+13, GPLCSYS~, GPLCSYS+7 |
| CDATA | MHVOUT+1~, MHVOUT+9!, MHVOUT+11, OUTPUT+2~, OUTPUT+13!, OUTPUT+15 |
| CDATA("LEX" | MHVOUT+12, OUTPUT+21 |
| CODE | FPDCSYS+2~, FPDCSYS+3*, FPDCSYS+4*, FPDCSYS+5, FPDCSYS+7, FPDCSYS+8, FPDCSYS+10, GPLIST+1~, GPLIST+11*, GPLIST+12* , GPLIST+13, GPLCSYS~, GPLCSYS+2, GPLCSYS+5, GPLCSYS+7, GPLCSYS+8, GPLCSYS+9, MHVOUT+1~, MHVOUT+7*, MHVOUT+11 , OUTPUT+2~, OUTPUT+10*, OUTPUT+15, OUTPUT+17, OUTPUT+19 |
| CODEP | GPLIST+1~ |
| CODESYS | FPDAT+1~, FPDAT+9*, FPDAT+10*, FPDAT+11, FPDCSYS~, FPDCSYS+4, FPDCSYS+5, FPDCSYS+7, FPDCSYS+8, FPDCSYS+10 , GPLIST+1~, GPLIST+9*, GPLIST+10*, GPLIST+12, GPLIST+13, GPLCSYS~, GPLCSYS+2, GPLCSYS+5, GPLCSYS+7, GPLCSYS+8 , GPLCSYS+9, MHVOUT+1~, MHVOUT+8*, MHVOUT+11, OUTPUT+2~, OUTPUT+11*, OUTPUT+12, OUTPUT+15, OUTPUT+18 |
| CODESYSN | OUTPUT+2~, OUTPUT+12*, OUTPUT+17 |
| CSYST | FPDAT+1~ |
| D0 | OUTPUT+2~, OUTPUT+16* |
| DAS | FPDCSYS+2~, FPDCSYS+8*, FPDCSYS+10, GETDATA~, GETDATA+2, GPLIST+1~, GPLIST+19*, GPLIST+20*, GPLIST+22, GPLIST+23 , GPLCSYS+3~, GPLCSYS+8*, GPLCSYS+9 |
| DATE | FPDAT+1~, FPDAT+13*, FPDAT+14*, FPDAT+16, FPDAT+18, FPDCSYS+2~, FPDCSYS+6*, FPDCSYS+7*, FPDCSYS+8, FPDCSYS+10 , GPLIST+1~, GPLIST+17*, GPLIST+18*, GPLIST+20, GPLIST+22, GPLIST+23, GPLCSYS+3~, GPLCSYS+6*, GPLCSYS+7*, GPLCSYS+8 , GPLCSYS+9 |
| DFN | FPDAT~, FPDAT+6, FPDAT+10, FPDAT+11, FPDCSYS~, FPDCSYS+5, FPDCSYS+7, FPDCSYS+8, GPLIST+1~, GPLIST+15* , GPLIST+16*, GPLIST+18, GPLIST+20, GPLIST+22, GPLIST+23, GPLCSYS+3~, GPLCSYS+4*, GPLCSYS+5*, GPLCSYS+7, GPLCSYS+8 , GPLCSYS+9 |
| DS | FPDAT+1~, FPDAT+8*, FPDAT+11, FPDCSYS~, FPDCSYS+6, GPLIST+1~, GPLIST+8*, GPLIST+13, GPLCSYS~, GPLCSYS+6 |
| EDT | FPDAT~, FPDAT+7, GPLIST~, GPLIST+8 |
| EDTT | FPDAT+1~, FPDAT+7*, FPDAT+8, FPDAT+11, FPDCSYS~, FPDCSYS+7 |
| FIEVT | GETDATA~, GETDATA+2 |
| FLIST | FPDAT~ |
| FLIST( | FPDAT+18* |
| HIER | OUTPUT+2~, OUTPUT+19*, OUTPUT+20 |
| IFIEVAL | MHVOUT~, OUTPUT~ |
| IFIEVAL( | MHVOUT+6, MHVOUT+7, MHVOUT+8, MHVOUT+15, MHVOUT+17, MHVOUT+21, OUTPUT+9, OUTPUT+10, OUTPUT+11, OUTPUT+16 , OUTPUT+24, OUTPUT+26, OUTPUT+30, OUTPUT+32, OUTPUT+33 |
| IND | FPDAT+1~, FPDAT+15*, FPDAT+16*, FPDAT+18, MHVOUT+1~, MHVOUT+4*, MHVOUT+5*, MHVOUT+6, MHVOUT+7, MHVOUT+8 , MHVOUT+15, MHVOUT+17, MHVOUT+21, OUTPUT+2~, OUTPUT+7*, OUTPUT+8*, OUTPUT+9, OUTPUT+10, OUTPUT+11, OUTPUT+16 , OUTPUT+24, OUTPUT+26, OUTPUT+30, OUTPUT+32, OUTPUT+33 |
| INDENT | MHVOUT~, MHVOUT+13, MHVOUT+20, OUTPUT~, OUTPUT+5, OUTPUT+22, OUTPUT+29, OUTPUT+34 |
| JND | MHVOUT+1~, MHVOUT+14*, OUTPUT+2~, OUTPUT+23*, OUTPUT+35* |
| MAGNITUDE | MHVOUT+16~, MHVOUT+17*, MHVOUT+18, MHVOUT+20, OUTPUT+25~, OUTPUT+26*, OUTPUT+27, OUTPUT+29 |
| NAME | MHVOUT+1~, MHVOUT+3*, MHVOUT+12 |
| NFOUND | FPDAT+1~, FPDAT+9*, FPDAT+11, FPDAT+13*, FPDAT+14, FPDAT+16, FPDAT+17*, FPDAT+18, FPDCSYS~, FPDCSYS+9* , FPDCSYS+10, FPDCSYS+11, GPLIST+1~, GPLIST+17*, GPLIST+18, GPLIST+21*, GPLIST+23 |
| NGET | FPDAT~, FPDAT+11, FPDAT+14, FPDAT+16, FPDCSYS~, FPDCSYS+11 |
| NIN | MHVOUT+1~, OUTPUT+2~ |
| NLINES | MHVOUT~, MHVOUT+14*, MHVOUT+19*, MHVOUT+20, MHVOUT+22, MHVOUT+23*, OUTPUT~, OUTPUT+4*, OUTPUT+5, OUTPUT+23* , OUTPUT+28*, OUTPUT+29, OUTPUT+31, OUTPUT+35*, OUTPUT+36* |
| NNODES | FPDAT+1~, FPDAT+2*, FPDAT+3, GPLIST+2*, GPLIST+3 |
| NOCC | GPLIST~, GPLIST+18 |
| NODE | FPDCSYS+2~ |
| NOUT | MHVOUT+1~, MHVOUT+13, MHVOUT+14, OUTPUT+2~, OUTPUT+22, OUTPUT+23, OUTPUT+34, OUTPUT+35 |
| OCCLIST | MHVOUT~, OUTPUT~ |
| OCCLIST( | MHVOUT+5, OUTPUT+8 |
| PLIST | GPLIST~, GPLIST+23 |
| PN | MHVOUT+2~ |
| PP | MHVOUT+2~ |
| >> PXRMRM | MHVOUT+13, OUTPUT+22, OUTPUT+34 |
| RESULT | MHVOUT+2~, MHVOUT+11*, OUTPUT+3~, OUTPUT+15* |
| SDIR | FPDAT~, FPDAT+8, FPDAT+11, FPDAT+14, FPDCSYS~, FPDCSYS+7, FPDCSYS+12 |
| TAXARR | FPDAT~, FPDAT+11, FPDCSYS~, GPLIST~, GPLIST+13, GPLCSYS~ |
| TAXARR("AE" | FPDCSYS+4, GPLIST+10, GPLIST+12 |
| TAXARR("APDS" | FPDAT+2, GPLIST+2 |
| TAXARR("IEN" | FPDAT+5, GPLIST+5 |
| TDATE | FPDCSYS+2~, FPDCSYS+12*, FPDCSYS+13 |
| TEMP | GPLIST+1~, GPLIST+22*, GPLIST+23, MHVOUT+2~, MHVOUT+12*, MHVOUT+13, OUTPUT+33*, OUTPUT+34 |
| TEXT | MHVOUT~, OUTPUT~ |
| TEXT( | MHVOUT+14*, MHVOUT+20*, MHVOUT+22*, MHVOUT+23*, OUTPUT+5*, OUTPUT+23*, OUTPUT+29*, OUTPUT+31*, OUTPUT+35*, OUTPUT+36* |
| TEXTIN | OUTPUT+3~, OUTPUT+22 |
| TEXTIN(1 | OUTPUT+17*, OUTPUT+20* |
| TEXTIN(2 | OUTPUT+21* |
| TEXTOUT | MHVOUT+2~, MHVOUT+13, OUTPUT+3~, OUTPUT+22, OUTPUT+34 |
| TEXTOUT( | MHVOUT+14, OUTPUT+23, OUTPUT+35 |
| TIND | FPDCSYS+2~, FPDCSYS+12*, FPDCSYS+13 |
| TLIST | FPDAT+1~, FPDAT+11, FPDCSYS~, GPLIST+1~, GPLIST+6*, GPLIST+7, GPLIST+13, GPLIST+16, GPLIST+18, GPLIST+20 , GPLIST+22, GPLIST+24, GPLCSYS~, GPLCSYS+9 |
| TLIST( | FPDAT+14, FPDAT+16, FPDAT+18, FPDCSYS+10*, FPDCSYS+12, FPDCSYS+13! |
| TLIST("" | FPDCSYS+12 |
| U | FPDCSYS+10, GPLIST+23, GPLCSYS+9, MHVOUT+12, MHVOUT+17, MHVOUT+21, OUTPUT+12, OUTPUT+21, OUTPUT+26, OUTPUT+30 |
| UCUMIEN | MHVOUT+16~, MHVOUT+21*, MHVOUT+22, OUTPUT+25~, OUTPUT+30*, OUTPUT+31 |
| VDATE | MHVOUT+2~, MHVOUT+6*, MHVOUT+11, MHVOUT+12, OUTPUT+3~, OUTPUT+9*, OUTPUT+15, OUTPUT+17, OUTPUT+19 |