MHVUMRPC ;KUM/LB - myHealtheVet Management Utilities ; 6/18/2013
Source file <MHVUMRPC.m>
| Package | Total | Call Graph |
|---|---|---|
| Event Capture | 3 | ELIG^ECUERPC PATCLAST^ECUERPC1 SRCLST^ECUMRPC1 |
| VA FileMan | 2 | LIST^DIC $$GET1^DIQ |
| CPT HCPCS Codes | 1 | $$CPT^ICPTCOD |
| DRG Grouper | 1 | $$CODEN^ICDCODE |
| Master Patient Index VistA | 1 | $$GETDFN^MPIF001 |
| Problem List | 1 | LIST^GMPLUTL2 |
| 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 |
|---|---|---|
| DSSUNT(RESULTS,MHVSTRING) | ;
|
|
| MHVRST | ;Populate results array
|
|
| MHVCHK | ;Check if DSS Unit is already populated in results array ;JAZZ#
|
|
| CLINIC() | ;Get clinic
|
|
| PRINTRES | ; Print Results
|
|
| DSSPROCS(RESULTS,MHVARY) | ; Get Procedures from DSS Unit IEN and Locaiton IEN
; MHVARY IS DSS UNIT IEN AND LOCATION IEN ; RESULTS = Procedure IEN^Procedure 5 digit code and description^synonym^Active flag |
|
| PATECLS(RESULTS,MHVSTRING) | ; Get Patient eligibility and Classification data
; MHVSTRING IS PATIENT ICN, DSS UNIT IEN, PROCEDURE DATE AND TIME IN FILEMAN FORMAT ; RESULTS = PATIENT STATUS ^CLASSIFICATION DATA (AGENT ORANCE, IONIZING RADIATION, SC CONDITION, ENVIRONMENTAL CONTAMINANTS, MILITARY SEXUAL TRUMA ; RESULTS(1,2...)=PRIMARY/SECONDARY FLAG (1-PRIMARY,0-SECONDARY)^ELIGIBILITY IEN^ELIGIBILITY DESCRIPTION |
|
| DIAGPL(RESULTS,MHVSTRING) | ; Get Patient Diagnosis codes from Patient Probelm list
; MHVSTRING IS PATIENT ICN ; RESULTS = DIAGNOSIS CODE IEN^DIAGNOSIS CODE^SNOMED-CT DESCRIPTION~ICD-10 DESCRIPTION^ICD CODING SYSTEM |
|
| DIAGSRCH(RESULTS,MHVSTRING) | ; Get Diagnosis codes and description from Search string
; MHVSTRING IS SEARCH STRING AND FILE TO SEARCH ; RESULTS = DIAGNOSIS CODE IEN IN FILE 80^DIAGNOSIS CODE^DESCRIPTION |
| Name | Field # of Occurrence |
|---|---|
| LIST^DIC | DSSUNT+35 |
| $$GET1^DIQ | DSSUNT+42, DSSUNT+43, DSSUNT+44, CLINIC+3, CLINIC+5, CLINIC+6 |
| ELIG^ECUERPC | PATECLS+16 |
| PATCLAST^ECUERPC1 | PATECLS+26 |
| SRCLST^ECUMRPC1 | DIAGSRCH+10 |
| LIST^GMPLUTL2 | DIAGPL+12 |
| $$CODEN^ICDCODE | DIAGPL+19 |
| $$CPT^ICPTCOD | DSSPROCS+14 |
| $$GETDFN^MPIF001 | PATECLS+8, DIAGPL+7 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| 200.72 | LIST^DIC |
| ^DG(40.8 - [#40.8] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ |
| ^ECD - [#724] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^EC(725 - [#725] | DSSPROCS+13 |
| ^ECJ - [#720.3] | DSSPROCS+10, DSSPROCS+11 |
| ^ECJ("AP" | DSSUNT+48, DSSPROCS+7, DSSPROCS+8, DSSPROCS+9 |
| ^SC - [#44] | DSSUNT+32 |
| ^TMP($J | DSSUNT+27! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DCOD | DIAGPL+3~, DIAGPL+23*, DIAGPL+24 |
| DT | DIAGSRCH+9 |
| ECARY | PATECLS+4~, PATECLS+15*, PATECLS+16, PATECLS+24*, PATECLS+26 |
| FLAG | DSSUNT+17~, DSSUNT+20*, DSSUNT+33* |
| FLG | CLINIC+1~, CLINIC+2*, CLINIC+4*, CLINIC+7*, CLINIC+8 |
| I | PRINTRES+1~, PRINTRES+2*, PRINTRES+4, DIAGSRCH+17*, DIAGSRCH+19, DIAGSRCH+20 |
| MHVARY | DSSPROCS~, DSSPROCS+4, DSSPROCS+5 |
| MHVCAT | DSSPROCS+3~, DSSPROCS+7*, DSSPROCS+8, DSSPROCS+9 |
| MHVCHKF | DSSUNT+16~, DSSUNT+46, DSSUNT+48, MHVCHK+2*, MHVCHK+3, MHVCHK+4* |
| MHVCIEN | DSSUNT+16~, DSSUNT+23*, DSSUNT+24*, DSSUNT+32, DSSUNT+33, DSSUNT+46, DSSUNT+48, DSSUNT+51, DSSUNT+52, CLINIC+3 , CLINIC+4, CLINIC+6, CLINIC+7 |
| MHVCNT | DSSUNT+16~, DSSUNT+18*, DSSUNT+50, MHVRST+1*, MHVRST+2, DSSPROCS+3~, DSSPROCS+6*, DSSPROCS+18*, DSSPROCS+19, DSSPROCS+20 , PATECLS+4~, PATECLS+18*, PATECLS+20*, PATECLS+21, PATECLS+22, DIAGPL+3~, DIAGPL+14*, DIAGPL+17*, DIAGPL+18, DIAGPL+22 , DIAGPL+25, DIAGPL+27, DIAGSRCH+3~, DIAGSRCH+12*, DIAGSRCH+17, DIAGSRCH+18*, DIAGSRCH+21 |
| MHVDCOD | DIAGPL+3~, DIAGPL+18*, DIAGPL+19, DIAGPL+22, DIAGPL+23, DIAGPL+27 |
| MHVDIACT | DSSUNT+16~, DSSUNT+43*, DSSUNT+46, DSSUNT+48, MHVRST+2 |
| MHVDIEN | DSSUNT+16~, DSSUNT+40*, DSSUNT+41, DSSUNT+42, DSSUNT+43, DSSUNT+44, DSSUNT+48, MHVRST+2, MHVCHK+4, DIAGPL+19* , DIAGPL+27 |
| MHVDIV | DSSUNT+17~, CLINIC+3*, CLINIC+4, CLINIC+5 |
| MHVDIVN | DSSUNT+17~, CLINIC+3*, CLINIC+4 |
| MHVDNAM | DSSUNT+16~, DSSUNT+42*, MHVRST+2 |
| MHVDPCE | DSSUNT+16~, DSSUNT+19*, DSSUNT+44*, MHVRST+2 |
| MHVECD | DSSPROCS+3~, DSSPROCS+5*, DSSPROCS+7, DSSPROCS+8, DSSPROCS+9, DSSPROCS+20, PATECLS+4~, PATECLS+12* |
| MHVI | MHVCHK+1~, MHVCHK+3*, MHVCHK+4, PATECLS+4~, PATECLS+19*, PATECLS+21 |
| MHVIEN | DSSPROCS+3~, DSSPROCS+8*, DSSPROCS+9*, DSSPROCS+10, DSSPROCS+11 |
| MHVLIEN | DSSUNT+16~, DSSUNT+48, MHVRST+2, CLINIC+5*, CLINIC+6*, CLINIC+7 |
| MHVLNAM | DSSUNT+16~, MHVRST+2, CLINIC+5*, CLINIC+6*, CLINIC+7 |
| MHVLOC | DSSPROCS+3~, DSSPROCS+4*, DSSPROCS+7, DSSPROCS+8, DSSPROCS+9, DSSPROCS+20 |
| MHVNODE | DSSPROCS+3~, DSSPROCS+10*, DSSPROCS+15 |
| MHVPDT | PATECLS+4~, PATECLS+13* |
| MHVPDUZ | DSSUNT+17~, DSSUNT+26*, DSSUNT+35 |
| MHVPICN | PATECLS+4~, PATECLS+6*, PATECLS+7, PATECLS+8, DIAGPL+3~, DIAGPL+5*, DIAGPL+6, DIAGPL+7 |
| MHVPIEN | PATECLS+4~, PATECLS+8*, PATECLS+9, PATECLS+11, PATECLS+15, PATECLS+17, PATECLS+22, PATECLS+28, DIAGPL+3~, DIAGPL+7* , DIAGPL+8, DIAGPL+10, DIAGPL+12 |
| MHVPN | DSSPROCS+3~, DSSPROCS+11*, DSSPROCS+12, DSSPROCS+13*, DSSPROCS+14*, DSSPROCS+19 |
| MHVPRO | DSSPROCS+3~, DSSPROCS+11*, DSSPROCS+13*, DSSPROCS+14* |
| MHVPX | DSSPROCS+3~, DSSPROCS+8*, DSSPROCS+9, DSSPROCS+19 |
| MHVR1 | DSSUNT+16~ |
| MHVR1("DILIST" | DSSUNT+36, DSSUNT+37, DSSUNT+39, DSSUNT+40 |
| MHVR1C | DSSUNT+17~, DSSUNT+38*, DSSUNT+39*, DSSUNT+40 |
| MHVR1E | DSSUNT+17~ |
| MHVROOT | DIAGSRCH+4!, DIAGSRCH+10, DIAGSRCH+11, DIAGSRCH+17, DIAGSRCH+19 |
| MHVROOTP | DIAGPL+11!, DIAGPL+12 |
| MHVROOTP( | DIAGPL+18, DIAGPL+22, DIAGPL+25*, DIAGPL+27 |
| MHVROOTP(0 | DIAGPL+13, DIAGPL+17 |
| MHVSTAT | DSSPROCS+3~, DSSPROCS+15*, DSSPROCS+17, DSSPROCS+19 |
| MHVSTR | DIAGSRCH+3~, DIAGSRCH+9*, DIAGSRCH+10 |
| MHVSTRING | DSSUNT~, DSSUNT+23, DSSUNT+26, PATECLS~, PATECLS+6, PATECLS+11*, PATECLS+12, PATECLS+13, PATECLS+24, DIAGPL~ , DIAGPL+5, DIAGPL+10*, DIAGSRCH~, DIAGSRCH+9 |
| MHVSYN | DSSPROCS+3~, DSSPROCS+11*, DSSPROCS+19 |
| PRB | DIAGPL+3~, DIAGPL+24 |
| PRB(1 | DIAGPL+25 |
| RESULTS | DSSUNT~, PRINTRES+2, PRINTRES+4, DSSPROCS~, PATECLS~, PATECLS+16, PATECLS+17, PATECLS+19, PATECLS+21, PATECLS+25* , PATECLS+26, PATECLS+27, PATECLS+28, DIAGPL~, DIAGSRCH~ |
| RESULTS( | MHVRST+2*, MHVCHK+3, MHVCHK+4, DSSPROCS+19*, PATECLS+21*, DIAGPL+27*, DIAGSRCH+19*, DIAGSRCH+20* |
| RESULTS(0 | PATECLS+27* |
| RESULTS(1 | DSSUNT+32*, DSSUNT+36*, DSSUNT+51*, DSSUNT+52*, CLINIC+4*, CLINIC+7*, DSSPROCS+20*, PATECLS+7*, PATECLS+9*, PATECLS+17* , PATECLS+22*, PATECLS+28*, DIAGPL+6*, DIAGPL+8*, DIAGPL+13*, DIAGSRCH+11*, DIAGSRCH+21* |
| U | DSSPROCS+11, DSSPROCS+13, DSSPROCS+14, DSSPROCS+15, DSSPROCS+19, DIAGSRCH+9 |