PXRMVPOV ; SLC/PKR - Code to handle V POV ;31-Dec-2015 10:16;DU
Source file <PXRMVPOV.m>
| Package | Total | Call Graph | 
|---|---|---|
| Clinical Reminders | 4 | $$EDATE^PXRMDATE NOINDEX^PXRMERRH $$INSCHR^PXRMEXLC (FORMAT,FORMATS)^PXRMTEXT | 
| DRG Grouper | 1 | $$CODEN^ICDEX | 
| IHS Standard Terminology | 1 | $$DESC^BSTSAPI | 
| Lexicon Utility | 1 | ($$CSDATA,$$CSYS)^LEXU | 
| PCE Patient Care Encounter | 1 | VPOV^PXPXRM | 
| VA Fileman | 1 | $$EXTERNAL^DILFD | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| GETDATA(DAS,FIEVT) | ;Return data for a specified V POV entry. | |
| 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. | |
| FPDICD9(DFN,TAXARR,NNODES,NGET,BDT,EDTT,DS,SDIR,TLIST,CODESYS) | ;Find ICD-9 data for a | |
| GPLIST(TAXARR,NOCC,BDT,EDT,PLIST) | ;Build patient list for V POV entries. | |
| GPLCSYS(CODESYS,CODE,TAXARR,NNODES,BDT,DS,TLIST) | ;Build a patient list for V POV | |
| FPDCSYS(DFN,CODESYS,TAXARR,NNODES,NGET,BDT,EDTT,DS,SDIR,TLIST) | ;Find data for | |
| GPLICD9(CODE,CODEP,TAXARR,NNODES,BDT,DS,TLIST,CODESYS) | ;Build a patient list for | 
| Name | Field # of Occurrence | 
|---|---|
| $$DESC^BSTSAPI | OUTPUT+29 | 
| $$EXTERNAL^DILFD | OUTPUT+21 | 
| $$CODEN^ICDEX | FPDICD9+13, GPLIST+17 | 
| $$CSDATA^LEXU | MHVOUT+11, OUTPUT+15 | 
| $$CSYS^LEXU | OUTPUT+12 | 
| VPOV^PXPXRM | GETDATA+2 | 
| $$EDATE^PXRMDATE | MHVOUT+12, OUTPUT+22 | 
| NOINDEX^PXRMERRH | FPDAT+5, GPLIST+5 | 
| $$INSCHR^PXRMEXLC | OUTPUT+5 | 
| FORMAT^PXRMTEXT | OUTPUT+34 | 
| FORMATS^PXRMTEXT | MHVOUT+13, OUTPUT+38 | 
| FileNo | Call Tags | 
|---|---|
| ^AUPNVPOV - [#9000010.07] | EXTERNAL^DILFD | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AUPNVPOV - [#9000010.07] | OUTPUT+16 | 
| ^AUTNPOV - [#9999999.27] | OUTPUT+19 | 
| ^PXRMINDX(9000010.07 | FPDAT+4, FPDAT+11, FPDAT+12, FPDCSYS+3, FPDCSYS+7, FPDCSYS+10, FPDCSYS+12, FPDCSYS+13, FPDICD9+3, FPDICD9+7 , FPDICD9+14, FPDICD9+16, FPDICD9+17, GPLIST+4, GPLIST+18, GPLIST+19, GPLCSYS+5, GPLCSYS+7, GPLCSYS+9, GPLCSYS+10 , GPLICD9+5, GPLICD9+7, GPLICD9+9, GPLICD9+10 | 
| ^TMP($J | GPLIST+7!, GPLIST+22, GPLIST+24, GPLIST+26, GPLIST+28, GPLIST+29*, GPLIST+30!, GPLCSYS+11*, GPLICD9+11* | 
| Name | Line Occurrences | 
|---|---|
| FPDCSYS | FPDAT+12 | 
| FPDICD9 | FPDAT+11 | 
| GPLCSYS | GPLIST+19 | 
| GPLICD9 | GPLIST+18 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| BDT | FPDAT~, FPDAT+7, FPDAT+11, FPDAT+12, FPDCSYS~, FPDCSYS+12, FPDICD9~, FPDICD9+16, GPLIST~, GPLIST+18 , GPLIST+19, GPLCSYS~, GPLCSYS+9, GPLICD9~, GPLICD9+9 | 
| CDATA | MHVOUT+1~, MHVOUT+9!, MHVOUT+11, OUTPUT+2~, OUTPUT+13!, OUTPUT+15 | 
| CDATA("LEX" | MHVOUT+12, OUTPUT+23 | 
| CODE | FPDCSYS+2~, FPDCSYS+8*, FPDCSYS+9*, FPDCSYS+10, FPDCSYS+12, FPDCSYS+13, FPDCSYS+15, FPDICD9+2~, FPDICD9+8*, FPDICD9+10* , FPDICD9+11, FPDICD9+13, FPDICD9+19, GPLIST+1~, GPLIST+11*, GPLIST+12*, GPLIST+15, GPLIST+17, GPLIST+18, GPLIST+19 , GPLCSYS~, GPLCSYS+5, GPLCSYS+7, GPLCSYS+9, GPLCSYS+10, GPLCSYS+11, GPLICD9~, GPLICD9+11, MHVOUT+1~, MHVOUT+7* , MHVOUT+11, OUTPUT+2~, OUTPUT+9*, OUTPUT+15, OUTPUT+22 | 
| CODEP | FPDICD9+2~, FPDICD9+11*, FPDICD9+13*, FPDICD9+14, FPDICD9+16, FPDICD9+17, GPLIST+1~, GPLIST+15*, GPLIST+17*, GPLIST+18 , GPLICD9~, GPLICD9+5, GPLICD9+7, GPLICD9+9, GPLICD9+10 | 
| CODESYS | FPDAT+1~, FPDAT+8*, FPDAT+9*, FPDAT+11, FPDAT+12, FPDCSYS~, FPDCSYS+3, FPDCSYS+7, FPDCSYS+9, FPDCSYS+10 , FPDCSYS+12, FPDCSYS+13, FPDCSYS+15, FPDICD9~, FPDICD9+10, FPDICD9+11, FPDICD9+13, FPDICD9+19, GPLIST+1~, GPLIST+9* , GPLIST+10*, GPLIST+12, GPLIST+14, GPLIST+15, GPLIST+17, GPLIST+18, GPLIST+19, GPLCSYS~, GPLCSYS+5, GPLCSYS+7 , GPLCSYS+11, GPLICD9~, GPLICD9+11, MHVOUT+1~, MHVOUT+8*, MHVOUT+11, OUTPUT+2~, OUTPUT+10*, OUTPUT+12, OUTPUT+15 , OUTPUT+22 | 
| CODESYSN | OUTPUT+2~ | 
| CODESYSN( | OUTPUT+12*, OUTPUT+22 | 
| D0 | OUTPUT+2~, OUTPUT+16*, OUTPUT+17 | 
| DAS | FPDCSYS+2~, FPDCSYS+13*, FPDCSYS+15, FPDICD9+2~, FPDICD9+17*, FPDICD9+19, GETDATA~, GETDATA+2, GPLIST+1~, GPLIST+25* , GPLIST+26*, GPLIST+28, GPLIST+29, GPLCSYS+2~, GPLCSYS+10*, GPLCSYS+11, GPLICD9+2~, GPLICD9+10*, GPLICD9+11 | 
| DATE | FPDAT+1~, FPDAT+14*, FPDAT+15*, FPDAT+17, FPDAT+19, FPDCSYS+2~, FPDCSYS+11*, FPDCSYS+12*, FPDCSYS+13, FPDCSYS+15 , FPDICD9+2~, FPDICD9+15*, FPDICD9+16*, FPDICD9+17, FPDICD9+19, GPLIST+1~, GPLIST+23*, GPLIST+24*, GPLIST+26, GPLIST+28 , GPLIST+29, GPLCSYS+2~, GPLCSYS+8*, GPLCSYS+9*, GPLCSYS+10, GPLCSYS+11, GPLICD9+2~, GPLICD9+8*, GPLICD9+9*, GPLICD9+10 , GPLICD9+11 | 
| DFN | FPDAT~, FPDAT+11, FPDAT+12, FPDCSYS~, FPDCSYS+3, FPDCSYS+7, FPDCSYS+10, FPDCSYS+12, FPDCSYS+13, FPDICD9~ , FPDICD9+3, FPDICD9+7, FPDICD9+14, FPDICD9+16, FPDICD9+17, GPLIST+1~, GPLIST+21*, GPLIST+22*, GPLIST+24, GPLIST+26 , GPLIST+28, GPLIST+29, GPLCSYS+2~, GPLCSYS+6*, GPLCSYS+7*, GPLCSYS+9, GPLCSYS+10, GPLCSYS+11, GPLICD9+2~, GPLICD9+6* , GPLICD9+7*, GPLICD9+9, GPLICD9+10, GPLICD9+11 | 
| DS | FPDAT+1~, FPDAT+7*, FPDAT+11, FPDAT+12, FPDCSYS~, FPDCSYS+11, FPDICD9~, FPDICD9+15, GPLIST+1~, GPLIST+8* , GPLIST+18, GPLIST+19, GPLCSYS~, GPLCSYS+8, GPLICD9~, GPLICD9+8 | 
| EDT | FPDAT~, FPDAT+6, GPLIST~, GPLIST+8 | 
| EDTT | FPDAT+1~, FPDAT+6*, FPDAT+7, FPDAT+11, FPDAT+12, FPDCSYS~, FPDCSYS+12, FPDICD9~, FPDICD9+16 | 
| EM | MHVOUT+1~, OUTPUT+2~, OUTPUT+21 | 
| FIEVT | GETDATA~, GETDATA+2 | 
| FLIST | FPDAT~ | 
| FLIST( | FPDAT+19* | 
| IFIEVAL | MHVOUT~, OUTPUT~ | 
| IFIEVAL( | MHVOUT+6, MHVOUT+7, MHVOUT+8, OUTPUT+8, OUTPUT+9, OUTPUT+10, OUTPUT+16, OUTPUT+20, OUTPUT+36, OUTPUT+37 | 
| IND | FPDAT+1~, FPDAT+16*, FPDAT+17*, FPDAT+19, FPDCSYS+2~, FPDCSYS+5*, FPDCSYS+6, FPDICD9+2~, FPDICD9+5*, FPDICD9+6 , GPLIST+1~, GPLCSYS+2~, GPLCSYS+3*, GPLCSYS+4, GPLICD9+2~, GPLICD9+3*, GPLICD9+4, MHVOUT+1~, MHVOUT+4*, MHVOUT+5* , MHVOUT+6, MHVOUT+7, MHVOUT+8, OUTPUT+2~, OUTPUT+6*, OUTPUT+7*, OUTPUT+8, OUTPUT+9, OUTPUT+10, OUTPUT+16 , OUTPUT+20, OUTPUT+36, OUTPUT+37 | 
| INDENT | MHVOUT~, MHVOUT+13, OUTPUT~, OUTPUT+5, OUTPUT+34, OUTPUT+38 | 
| JND | MHVOUT+1~, MHVOUT+14*, OUTPUT+2~, OUTPUT+35*, OUTPUT+39* | 
| NAME | MHVOUT+1~, MHVOUT+3*, MHVOUT+12 | 
| NFOUND | FPDAT+1~, FPDAT+14*, FPDAT+15, FPDAT+17, FPDAT+18*, FPDAT+19, FPDCSYS+2~, FPDCSYS+4*, FPDCSYS+14*, FPDCSYS+15 , FPDCSYS+16, FPDICD9+2~, FPDICD9+4*, FPDICD9+18*, FPDICD9+19, FPDICD9+20, GPLIST+1~, GPLIST+23*, GPLIST+24, GPLIST+27* , GPLIST+29 | 
| NGET | FPDAT~, FPDAT+11, FPDAT+12, FPDAT+15, FPDAT+17, FPDCSYS~, FPDCSYS+16, FPDICD9~, FPDICD9+20 | 
| NIN | MHVOUT+1~ | 
| NLINES | MHVOUT~, MHVOUT+14*, MHVOUT+15*, OUTPUT~, OUTPUT+4*, OUTPUT+5, OUTPUT+35*, OUTPUT+39*, OUTPUT+40* | 
| NNODES | FPDAT+1~, FPDAT+2*, FPDAT+3, FPDAT+11, FPDAT+12, FPDCSYS~, FPDCSYS+5, FPDICD9~, FPDICD9+5, GPLIST+1~ , GPLIST+2*, GPLIST+3, GPLIST+18, GPLIST+19, GPLCSYS~, GPLCSYS+3, GPLICD9~, GPLICD9+3 | 
| NOCC | GPLIST~, GPLIST+24 | 
| NODE | FPDCSYS+2~, FPDCSYS+6*, FPDCSYS+7, FPDCSYS+10, FPDCSYS+12, FPDCSYS+13, FPDCSYS+15, FPDICD9+2~, FPDICD9+6*, FPDICD9+7 , FPDICD9+14, FPDICD9+16, FPDICD9+17, FPDICD9+19, GPLIST+1~, GPLCSYS+2~, GPLCSYS+4*, GPLCSYS+5, GPLCSYS+7, GPLCSYS+9 , GPLCSYS+10, GPLCSYS+11, GPLICD9+2~, GPLICD9+4*, GPLICD9+5, GPLICD9+7, GPLICD9+9, GPLICD9+10, GPLICD9+11 | 
| NOUT | MHVOUT+1~, MHVOUT+13, MHVOUT+14, OUTPUT+3~, OUTPUT+34, OUTPUT+35, OUTPUT+38, OUTPUT+39 | 
| OCCLIST | MHVOUT~, OUTPUT~ | 
| OCCLIST( | MHVOUT+5, OUTPUT+7 | 
| PLIST | GPLIST~, GPLIST+29 | 
| PN | MHVOUT+2~, OUTPUT+3~, OUTPUT+17*, OUTPUT+18*, OUTPUT+19*, OUTPUT+26, OUTPUT+28, OUTPUT+30, OUTPUT+31, OUTPUT+33 | 
| >> PXRMRM | MHVOUT+13, OUTPUT+34, OUTPUT+38 | 
| RANK | OUTPUT+3~, OUTPUT+20*, OUTPUT+21*, OUTPUT+24 | 
| RESULT | MHVOUT+2~, MHVOUT+11*, OUTPUT+3~, OUTPUT+15* | 
| SDI | OUTPUT+27~, OUTPUT+28*, OUTPUT+29 | 
| SDIR | FPDAT~, FPDAT+7, FPDAT+11, FPDAT+12, FPDAT+15, FPDCSYS~, FPDCSYS+12, FPDCSYS+17, FPDICD9~, FPDICD9+16 , FPDICD9+21 | 
| SDIT | OUTPUT+27~, OUTPUT+29*, OUTPUT+30, OUTPUT+31 | 
| SNTXT | OUTPUT+27~, OUTPUT+30*, OUTPUT+31*, OUTPUT+32 | 
| TAXARR | FPDAT~, FPDAT+11, FPDAT+12, FPDCSYS~, FPDICD9~, GPLIST~, GPLIST+18, GPLIST+19, GPLCSYS~, GPLICD9~ | 
| TAXARR("AE" | FPDAT+9, FPDCSYS+9, FPDICD9+10, FPDICD9+11, GPLIST+10, GPLIST+12, GPLIST+15 | 
| TAXARR("APDS" | FPDAT+2, FPDCSYS+6, FPDICD9+6, GPLIST+2, GPLCSYS+4, GPLICD9+4 | 
| TAXARR("IEN" | FPDAT+5, GPLIST+5 | 
| TDATE | FPDCSYS+2~, FPDCSYS+17*, FPDCSYS+18, FPDICD9+2~, FPDICD9+21*, FPDICD9+22 | 
| TEMP | GPLIST+1~, GPLIST+28*, GPLIST+29, MHVOUT+2~, MHVOUT+12*, MHVOUT+13, OUTPUT+37*, OUTPUT+38 | 
| TEXT | MHVOUT~, OUTPUT~ | 
| TEXT( | MHVOUT+14*, MHVOUT+15*, OUTPUT+5*, OUTPUT+35*, OUTPUT+39*, OUTPUT+40* | 
| TEXTIN | OUTPUT+3~, OUTPUT+34 | 
| TEXTIN(1 | OUTPUT+22* | 
| TEXTIN(2 | OUTPUT+23* | 
| TEXTIN(3 | OUTPUT+24* | 
| TEXTIN(4 | OUTPUT+32*, OUTPUT+33* | 
| TEXTOUT | MHVOUT+2~, MHVOUT+13, OUTPUT+3~, OUTPUT+34, OUTPUT+38 | 
| TEXTOUT( | MHVOUT+14, OUTPUT+35, OUTPUT+39 | 
| TIND | FPDCSYS+2~, FPDCSYS+17*, FPDCSYS+18, FPDICD9+2~, FPDICD9+21*, FPDICD9+22 | 
| TLIST | FPDAT+1~, FPDAT+11, FPDAT+12, FPDCSYS~, FPDICD9~, GPLIST+1~, GPLIST+6*, GPLIST+7, GPLIST+18, GPLIST+19 , GPLIST+22, GPLIST+24, GPLIST+26, GPLIST+28, GPLIST+30, GPLCSYS~, GPLCSYS+11, GPLICD9~, GPLICD9+11 | 
| TLIST( | FPDAT+15, FPDAT+17, FPDAT+19, FPDCSYS+15*, FPDCSYS+17, FPDCSYS+18!, FPDICD9+19*, FPDICD9+21, FPDICD9+22! | 
| TLIST("" | FPDCSYS+17, FPDICD9+21 | 
| U | FPDCSYS+15, FPDICD9+19, GPLIST+29, GPLCSYS+11, GPLICD9+11, MHVOUT+12, OUTPUT+12, OUTPUT+17, OUTPUT+19, OUTPUT+23 , OUTPUT+29 | 
| VDATE | MHVOUT+2~, MHVOUT+6*, MHVOUT+11, MHVOUT+12, OUTPUT+3~, OUTPUT+8*, OUTPUT+15, OUTPUT+22 |