PXRMVCPT ; SLC/PKR - Code to handle VCPT data. ;05/05/2014
Source file <PXRMVCPT.m>
| Package | Total | Call Graph | 
|---|---|---|
| Clinical Reminders | 4 | $$EDATE^PXRMDATE NOINDEX^PXRMERRH $$INSCHR^PXRMEXLC (FORMAT,FORMATS)^PXRMTEXT | 
| Lexicon Utility | 1 | ($$CSDATA,$$CSYS)^LEXU | 
| PCE Patient Care Encounter | 1 | VCPT^PXPXRM | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| GETDATA(DAS,FIEVT) | ;Return data for a specified V CPT entry. | |
| GPLCPT4(CODE,CODEP,TAXARR,NNODES,BDT,DS,TLIST) | ;Build patient list for V CPT for | |
| FPDAT(DFN,TAXARR,NGET,SDIR,BDT,EDT,FLIST) | ;Find data for a patient. | |
| OUTPUT(INDENT,OCCLIST,IFIEVAL,NLINES,TEXT) | ;Produce the clinical | |
| MHVOUT(INDENT,OCCLIST,IFIEVAL,NLINES,TEXT) | ;Produce the MHV output. | |
| GPLIST(TAXARR,NOCC,BDT,EDT,PLIST) | ;Build patient list for V CPT entries. | |
| GPLCSYS(CODESYS,CODE,TAXARR,NNODES,BDT,DS,TLIST) | ;Build patient list for V CPT | |
| FPDP81(DFN,CODESYS,TAXARR,NNODES,NGET,BDT,EDTT,DS,SDIR,TLIST) | ;Find data for a | |
| FPDCSYS(DFN,CODESYS,TAXARR,NNODES,NGET,BDT,EDTT,DS,SDIR,TLIST) | ;Find data for | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AUPNVCPT - [#9000010.18] | OUTPUT+16 | 
| ^AUTNPOV - [#9999999.27] | OUTPUT+19 | 
| ^PXRMINDX(9000010.18 | FPDAT+4, FPDAT+6, FPDAT+12, FPDAT+13, FPDP81+6, FPDP81+10, FPDP81+12, FPDP81+13, FPDCSYS+4, FPDCSYS+8 , FPDCSYS+11, FPDCSYS+13, FPDCSYS+14, GPLIST+4, GPLIST+15, GPLIST+16, GPLCPT4+5, GPLCPT4+7, GPLCPT4+9, GPLCPT4+10 , GPLCSYS+5, GPLCSYS+7, GPLCSYS+9, GPLCSYS+10 | 
| ^TMP($J | GPLIST+7!, GPLIST+19, GPLIST+21, GPLIST+23, GPLIST+25, GPLIST+26*, GPLIST+27!, GPLCPT4+11*, GPLCSYS+11* | 
| Name | Line Occurrences | 
|---|---|
| FPDCSYS | FPDAT+13 | 
| FPDP81 | FPDAT+12 | 
| GPLCPT4 | GPLIST+15 | 
| GPLCSYS | GPLIST+16 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| BDT | FPDAT~, FPDAT+8, FPDAT+12, FPDAT+13, FPDP81~, FPDP81+12, FPDCSYS~, FPDCSYS+13, GPLIST~, GPLIST+15 , GPLIST+16, GPLCPT4~, GPLCPT4+9, GPLCSYS~, GPLCSYS+9 | 
| CDATA | MHVOUT+1~, MHVOUT+8!, MHVOUT+10, OUTPUT+2~, OUTPUT+13!, OUTPUT+15 | 
| CDATA("LEX" | MHVOUT+11, OUTPUT+23 | 
| CODE | FPDP81+2~, FPDP81+7*, FPDP81+8*, FPDP81+9, FPDP81+15, FPDCSYS+2~, FPDCSYS+9*, FPDCSYS+10*, FPDCSYS+11, FPDCSYS+13 , FPDCSYS+14, FPDCSYS+16, GPLIST+1~, GPLIST+11*, GPLIST+12*, GPLIST+14, GPLIST+15, GPLIST+16, GPLCPT4~, GPLCPT4+11 , GPLCSYS~, GPLCSYS+5, GPLCSYS+7, GPLCSYS+9, GPLCSYS+10, GPLCSYS+11, MHVOUT+1~, MHVOUT+7*, MHVOUT+10, OUTPUT+2~ , OUTPUT+11*, OUTPUT+15, OUTPUT+22 | 
| CODEP | FPDP81+2~, FPDP81+9*, FPDP81+10, FPDP81+12, FPDP81+13, GPLIST+1~, GPLIST+14*, GPLIST+15, GPLCPT4~, GPLCPT4+5 , GPLCPT4+7, GPLCPT4+9, GPLCPT4+10 | 
| CODESYS | FPDAT+1~, FPDAT+9*, FPDAT+10*, FPDAT+11, FPDAT+12, FPDAT+13, FPDP81~, FPDP81+8, FPDP81+9, FPDP81+15 , FPDCSYS~, FPDCSYS+4, FPDCSYS+8, FPDCSYS+10, FPDCSYS+11, FPDCSYS+13, FPDCSYS+14, FPDCSYS+16, GPLIST+1~, GPLIST+9* , GPLIST+10*, GPLIST+12, GPLIST+13, GPLIST+16, GPLCSYS~, GPLCSYS+5, GPLCSYS+7, GPLCSYS+9, GPLCSYS+10, GPLCSYS+11 , OUTPUT+2~, OUTPUT+12*, OUTPUT+15 | 
| CODESYSN | OUTPUT+2~, OUTPUT+7*, OUTPUT+22 | 
| CSYST | FPDAT+1~, FPDAT+11*, FPDAT+12, FPDAT+13 | 
| D0 | OUTPUT+2~, OUTPUT+16*, OUTPUT+17 | 
| DAS | FPDP81+2~, FPDP81+13*, FPDP81+15, FPDCSYS+2~, FPDCSYS+14*, FPDCSYS+16, GETDATA~, GETDATA+2, GPLIST+1~, GPLIST+22* , GPLIST+23*, GPLIST+25, GPLIST+26, GPLCPT4+2~, GPLCPT4+10*, GPLCPT4+11, GPLCSYS+2~, GPLCSYS+10*, GPLCSYS+11 | 
| DATE | FPDAT+1~, FPDAT+15*, FPDAT+16*, FPDAT+18, FPDAT+20, FPDP81+2~, FPDP81+11*, FPDP81+12*, FPDP81+13, FPDP81+15 , FPDCSYS+2~, FPDCSYS+12*, FPDCSYS+13*, FPDCSYS+14, FPDCSYS+16, GPLIST+1~, GPLIST+20*, GPLIST+21*, GPLIST+23, GPLIST+25 , GPLIST+26, GPLCPT4+2~, GPLCPT4+8*, GPLCPT4+9*, GPLCPT4+10, GPLCPT4+11, GPLCSYS+2~, GPLCSYS+8*, GPLCSYS+9*, GPLCSYS+10 , GPLCSYS+11 | 
| DFN | FPDAT~, FPDAT+6, FPDAT+12, FPDAT+13, FPDP81~, FPDP81+6, FPDP81+10, FPDP81+12, FPDP81+13, FPDCSYS~ , FPDCSYS+4, FPDCSYS+8, FPDCSYS+11, FPDCSYS+13, FPDCSYS+14, GPLIST+1~, GPLIST+18*, GPLIST+19*, GPLIST+21, GPLIST+23 , GPLIST+25, GPLIST+26, GPLCPT4+2~, GPLCPT4+6*, GPLCPT4+7*, GPLCPT4+9, GPLCPT4+10, GPLCPT4+11, GPLCSYS+2~, GPLCSYS+6* , GPLCSYS+7*, GPLCSYS+9, GPLCSYS+10, GPLCSYS+11 | 
| DS | FPDAT+1~, FPDAT+8*, FPDAT+12, FPDAT+13, FPDP81~, FPDP81+11, FPDCSYS~, FPDCSYS+12, GPLIST+1~, GPLIST+8* , GPLIST+15, GPLIST+16, GPLCPT4~, GPLCPT4+8, GPLCSYS~, GPLCSYS+8 | 
| EDT | FPDAT~, FPDAT+7, GPLIST~, GPLIST+8 | 
| EDTT | FPDAT+1~, FPDAT+7*, FPDAT+8, FPDAT+12, FPDAT+13, FPDP81~, FPDP81+12, FPDCSYS~, FPDCSYS+13 | 
| FIEVT | GETDATA~, GETDATA+2 | 
| FLIST | FPDAT~ | 
| FLIST( | FPDAT+20* | 
| IFIEVAL | MHVOUT~, OUTPUT~ | 
| IFIEVAL( | MHVOUT+6, MHVOUT+7, OUTPUT+10, OUTPUT+11, OUTPUT+12, OUTPUT+16, OUTPUT+20, OUTPUT+28, OUTPUT+29 | 
| IND | FPDAT+1~, FPDAT+17*, FPDAT+18*, FPDAT+20, FPDP81+4*, FPDP81+5, FPDCSYS+6*, FPDCSYS+7, GPLCPT4+2~, GPLCPT4+3* , GPLCPT4+4, GPLCSYS+2~, GPLCSYS+3*, GPLCSYS+4, MHVOUT+1~, MHVOUT+4*, MHVOUT+5*, MHVOUT+6, MHVOUT+7, OUTPUT+2~ , OUTPUT+8*, OUTPUT+9*, OUTPUT+10, OUTPUT+11, OUTPUT+12, OUTPUT+16, OUTPUT+20, OUTPUT+28, OUTPUT+29 | 
| INDENT | MHVOUT~, MHVOUT+12, OUTPUT~, OUTPUT+5, OUTPUT+26, OUTPUT+30 | 
| JND | MHVOUT+1~, MHVOUT+13*, OUTPUT+2~, OUTPUT+27*, OUTPUT+31* | 
| NAME | MHVOUT+1~, MHVOUT+3*, MHVOUT+11 | 
| NFOUND | FPDAT+1~, FPDAT+15*, FPDAT+16, FPDAT+18, FPDAT+19*, FPDAT+20, FPDP81+2~, FPDP81+3*, FPDP81+14*, FPDP81+15 , FPDP81+16, FPDCSYS+2~, FPDCSYS+5*, FPDCSYS+15*, FPDCSYS+16, FPDCSYS+17, GPLIST+1~, GPLIST+20*, GPLIST+21, GPLIST+24* | 
| NGET | FPDAT~, FPDAT+12, FPDAT+13, FPDAT+16, FPDAT+18, FPDP81~, FPDP81+16, FPDCSYS~, FPDCSYS+17 | 
| NIN | MHVOUT+1~, OUTPUT+2~ | 
| NLINES | MHVOUT~, MHVOUT+13*, MHVOUT+14*, OUTPUT~, OUTPUT+4*, OUTPUT+5, OUTPUT+27*, OUTPUT+31*, OUTPUT+32* | 
| NNODES | FPDAT+1~, FPDAT+2*, FPDAT+3, FPDAT+12, FPDAT+13, FPDP81~, FPDP81+4, FPDCSYS~, FPDCSYS+6, GPLIST+1~ , GPLIST+2*, GPLIST+3, GPLIST+15, GPLIST+16, GPLCPT4~, GPLCPT4+3, GPLCSYS~, GPLCSYS+3 | 
| NOCC | GPLIST~, GPLIST+21 | 
| NODE | FPDP81+2~, FPDP81+5*, FPDP81+6, FPDP81+10, FPDP81+12, FPDP81+13, FPDP81+15, FPDCSYS+2~, FPDCSYS+7*, FPDCSYS+8 , FPDCSYS+11, FPDCSYS+13, FPDCSYS+14, FPDCSYS+16, GPLIST+1~, GPLCPT4+2~, GPLCPT4+4*, GPLCPT4+5, GPLCPT4+7, GPLCPT4+9 , GPLCPT4+10, GPLCPT4+11, GPLCSYS+2~, GPLCSYS+4*, GPLCSYS+5, GPLCSYS+7, GPLCSYS+9, GPLCSYS+10, GPLCSYS+11 | 
| NOUT | MHVOUT+1~, MHVOUT+12, MHVOUT+13, OUTPUT+2~, OUTPUT+26, OUTPUT+27, OUTPUT+30, OUTPUT+31 | 
| OCCLIST | MHVOUT~, OUTPUT~ | 
| OCCLIST( | MHVOUT+5, OUTPUT+9 | 
| PLIST | GPLIST~, GPLIST+26 | 
| PN | MHVOUT+2~, OUTPUT+3~, OUTPUT+17*, OUTPUT+18*, OUTPUT+19*, OUTPUT+25 | 
| PP | MHVOUT+2~, OUTPUT+3~, OUTPUT+20*, OUTPUT+21*, OUTPUT+24 | 
| >> PXRMRM | MHVOUT+12, OUTPUT+26, OUTPUT+30 | 
| RESULT | MHVOUT+2~, MHVOUT+10*, OUTPUT+3~, OUTPUT+15* | 
| SDIR | FPDAT~, FPDAT+8, FPDAT+12, FPDAT+13, FPDAT+16, FPDP81~, FPDP81+12, FPDP81+17, FPDCSYS~, FPDCSYS+13 , FPDCSYS+18 | 
| TAXARR | FPDAT~, FPDAT+12, FPDAT+13, FPDP81~, FPDCSYS~, GPLIST~, GPLIST+15, GPLIST+16, GPLCPT4~, GPLCSYS~ | 
| TAXARR("AE" | FPDAT+10, FPDP81+8, FPDP81+9, FPDCSYS+10, GPLIST+10, GPLIST+12, GPLIST+14 | 
| TAXARR("APDS" | FPDAT+2, FPDP81+5, FPDCSYS+7, GPLIST+2, GPLCPT4+4, GPLCSYS+4 | 
| TAXARR("IEN" | FPDAT+5, GPLIST+5 | 
| TDATE | FPDP81+2~, FPDP81+17*, FPDP81+18, FPDCSYS+2~, FPDCSYS+18*, FPDCSYS+19 | 
| TEMP | GPLIST+1~, GPLIST+25*, GPLIST+26, GPLCPT4+2~, GPLCSYS+2~, MHVOUT+2~, MHVOUT+11*, MHVOUT+12, OUTPUT+29*, OUTPUT+30 | 
| TEXT | MHVOUT~, OUTPUT~ | 
| TEXT( | MHVOUT+13*, MHVOUT+14*, OUTPUT+5*, OUTPUT+27*, OUTPUT+31*, OUTPUT+32* | 
| TEXTIN | OUTPUT+3~, OUTPUT+26 | 
| TEXTIN(1 | OUTPUT+22* | 
| TEXTIN(2 | OUTPUT+23* | 
| TEXTIN(3 | OUTPUT+24* | 
| TEXTIN(4 | OUTPUT+25* | 
| TEXTOUT | MHVOUT+2~, MHVOUT+12, OUTPUT+3~, OUTPUT+26, OUTPUT+30 | 
| TEXTOUT( | MHVOUT+13, OUTPUT+27, OUTPUT+31 | 
| TIND | FPDP81+2~, FPDP81+17*, FPDP81+18, FPDCSYS+2~, FPDCSYS+18*, FPDCSYS+19 | 
| TLIST | FPDAT+1~, FPDAT+12, FPDAT+13, FPDP81~, FPDCSYS~, GPLIST+1~, GPLIST+6*, GPLIST+7, GPLIST+15, GPLIST+16 , GPLIST+19, GPLIST+21, GPLIST+23, GPLIST+25, GPLIST+27, GPLCPT4~, GPLCPT4+11, GPLCSYS~, GPLCSYS+11 | 
| TLIST( | FPDAT+16, FPDAT+18, FPDAT+20, FPDP81+15*, FPDP81+17, FPDP81+18!, FPDCSYS+16*, FPDCSYS+18, FPDCSYS+19! | 
| TLIST("" | FPDP81+17, FPDCSYS+18 | 
| U | FPDP81+15, FPDCSYS+16, GPLIST+26, GPLCPT4+11, GPLCSYS+11, MHVOUT+11, OUTPUT+7, OUTPUT+17, OUTPUT+19, OUTPUT+20 , OUTPUT+23 | 
| VDATE | MHVOUT+2~, MHVOUT+6*, MHVOUT+10, MHVOUT+11, OUTPUT+3~, OUTPUT+10*, OUTPUT+15, OUTPUT+22 |