DGHBPUTL ;ALB/PWC,JAM,KUM - Health Benefit Plan Utility Routine ;5/22/13 11:50am
Source file <DGHBPUTL.m>
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 3 | NOW^%DTC IX^DIC ^DIK |
| Registration | 2 | ($$ADD,$$UPD)^DGENDBS $$SITE^VASITE |
| Health Level Seven | 1 | $$FMDATE^HLFNC |
| Income Verification Match | 1 | EVENT^IVMPLOG |
| 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 |
|---|---|---|
| GETHBP(DFN) | ;Return all records in HBP sub-file #25.01 in HBP array
; returns current information in HBP("CUR",PLAN NAME)=ENTIRE DATA FROM 25.01 DA ; returns current information in HBP("CUR",PLAN NAME,"IEN")=PLAN CODE ; returns history information in HBP("HIS",DA,DTTM)=PLAN NAME^ENTIRE DATA FROM 25.02 DA |
|
| HBP1 | ||
| GETDETL(HBPNUM) | ;Return detail for each HBP in an array for display purposes
|
|
| GETPLAN | ; Return all Health Benefit Plans from file #25.11 in array
|
|
| SETPLAN(DFN,PLAN,SITE) | ;Set Health Benefit Plan and History into file 25.01 and 25.02 for input DFN
; Current data plans will also be filed into the history so that history will contain all ; additions and deletions for the patient |
|
| DELPLAN(DFN,PLAN,SITE) | ;Delete Health Benefit Plan and set History into file 25.01 and 25.02 for input DFN
|
|
| HL7UPD(DFN,DGHBP,MSHDATE) | ; Store HL7 Health Benefit Plan (HBP) data in PATIENT file (#2)
|
|
| UPDCURHBP(DFN,DGDATAZ11) | ; DG*5.3*1149 Update Current data
|
|
| STORCUR(DFN,STORDATA) | ; Store Current data
|
|
| STORHIS(DFN,STORDATA,ACTION) | ; Store History data
|
|
| DELCUR(DFN,HBPCODE) | ; Delete entry from Current data
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGHBP(25.11 - [#25.11] | GETHBP+9, HBP1+3, GETDETL+3, GETDETL+6, GETPLAN+2, GETPLAN+5, GETPLAN+6 |
| ^DPT - [#2] | GETHBP+7, GETHBP+8, HBP1+1, HBP1+2, DELPLAN+5, HL7UPD+8, HL7UPD+9, HL7UPD+24, DELCUR+3 |
| Name | Line Occurrences |
|---|---|
| DELCUR | HL7UPD+17 |
| STORCUR | HL7UPD+25 |
| STORHIS | HL7UPD+16, HL7UPD+26 |
| UPDCURHBP | HL7UPD+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | SETPLAN+6, DELPLAN+3 |
| ACTION | STORHIS~, STORHIS+7 |
| ADDHBP | HL7UPD+1~ |
| ADDHBP( | HL7UPD+6*, HL7UPD+13 |
| CNT | GETDETL+2~, GETDETL+7* |
| D | UPDCURHBP+1~, UPDCURHBP+8* |
| DA | DELPLAN+1~, DELPLAN+5*, UPDCURHBP+1~, DELCUR+1~, DELCUR+3* |
| DA(1 | DELPLAN+4*, DELPLAN+5, DELPLAN+7, UPDCURHBP+5*, UPDCURHBP+6, DELCUR+2*, DELCUR+3, DELCUR+4 |
| DATA | GETDETL+2~, GETDETL+6*, SETPLAN+4~, SETPLAN+14, SETPLAN+18~, SETPLAN+27, DELPLAN+1~, DELPLAN+19, STORCUR+1~, STORCUR+9 , STORHIS+1~, STORHIS+10 |
| DATA( | GETDETL+7, SETPLAN+8*, SETPLAN+20*, DELPLAN+11*, STORCUR+3*, STORHIS+3* |
| DATA(1 | SETPLAN+9*, SETPLAN+21*, DELPLAN+12*, STORCUR+4*, STORHIS+4* |
| DATA(2 | SETPLAN+10*, SETPLAN+22*, DELPLAN+13*, STORCUR+5*, STORHIS+5* |
| DATA(3 | SETPLAN+11*, SETPLAN+23*, DELPLAN+14*, STORCUR+6*, STORHIS+6* |
| DATA(4 | SETPLAN+12*, SETPLAN+24*, DELPLAN+15*, STORCUR+7*, STORHIS+7* |
| DATA(5 | SETPLAN+25*, DELPLAN+16*, STORCUR+8*, STORHIS+8* |
| DATA(6 | STORHIS+9* |
| DATETIME | SETPLAN+4~, SETPLAN+6*, SETPLAN+9, SETPLAN+20, DELPLAN+1~, DELPLAN+3*, DELPLAN+11 |
| DFN | GETHBP~, GETHBP+4, GETHBP+7, GETHBP+8, HBP1+1, HBP1+2, SETPLAN~, SETPLAN+7, SETPLAN+15, SETPLAN+19 , DELPLAN~, DELPLAN+4, HL7UPD~, HL7UPD+8, HL7UPD+9, HL7UPD+13, HL7UPD+16, HL7UPD+17, HL7UPD+24, HL7UPD+25 , HL7UPD+26, UPDCURHBP~, UPDCURHBP+4, UPDCURHBP+5, STORCUR~, STORCUR+2, STORHIS~, STORHIS+2, DELCUR~, DELCUR+2 |
| >> DGDATA | UPDCURHBP+15 |
| >> DGDATA(4 | UPDCURHBP+13* |
| >> DGDATA(5 | UPDCURHBP+14* |
| DGDATAZ11 | UPDCURHBP~, UPDCURHBP+2, UPDCURHBP+13, UPDCURHBP+14 |
| DGENDA | SETPLAN+4~, SETPLAN+14, SETPLAN+18~, SETPLAN+27, DELPLAN+1~, DELPLAN+19, UPDCURHBP+1~, UPDCURHBP+11*, UPDCURHBP+12, UPDCURHBP+15 , STORCUR+1~, STORCUR+9, STORHIS+1~, STORHIS+10, DELCUR+1~ |
| DGENDA(1 | SETPLAN+7*, SETPLAN+19*, DELPLAN+4*, UPDCURHBP+4*, STORCUR+2*, STORHIS+2*, DELCUR+2* |
| DGERR | UPDCURHBP+1~, UPDCURHBP+15 |
| DGHBP | HL7UPD~, HL7UPD+20 |
| DGHBP( | HL7UPD+6, HL7UPD+21, HL7UPD+22 |
| DGHBPCD | UPDCURHBP+1~, UPDCURHBP+2*, UPDCURHBP+3, UPDCURHBP+9 |
| DGSUCCESS | UPDCURHBP+1~, UPDCURHBP+15* |
| DIC | UPDCURHBP+1~, UPDCURHBP+6* |
| DIC(0 | UPDCURHBP+7* |
| DIK | DELPLAN+1~, DELPLAN+7*, DELPLAN+8!, DELCUR+1~, DELCUR+4*, DELCUR+5! |
| DUZ | SETPLAN+10, SETPLAN+22, DELPLAN+13 |
| HBCODE | GETHBP+5~, GETHBP+6*, GETHBP+8*, GETHBP+9, GETHBP+11, HBP1*, HBP1+2*, HBP1+3 |
| HBDATA | GETHBP+5~, GETHBP+6*, GETHBP+8*, GETHBP+10, HBP1*, HBP1+2*, HBP1+4 |
| HBIEN | GETPLAN+1~, GETPLAN+4*, GETPLAN+5*, GETPLAN+6, GETPLAN+7 |
| HBNAME | GETHBP+5~, GETHBP+9*, GETHBP+10, GETHBP+11, HBP1+3*, HBP1+4 |
| >> HBP("CUR" | GETHBP+5!, GETHBP+10*, GETHBP+11* |
| >> HBP("DETAIL" | GETDETL+2!, GETDETL+3*, GETDETL+4*, GETDETL+5, GETDETL+7* |
| >> HBP("HIS" | GETHBP+5!, HBP1+4* |
| >> HBP("PLAN" | GETPLAN+1!, GETPLAN+7* |
| HBPCODE | DELCUR~, DELCUR+3 |
| HBPLAN | GETPLAN+1~*, GETPLAN+2*, GETPLAN+5 |
| HBPNOD | HL7UPD+1~, HL7UPD+9*, HL7UPD+13, HL7UPD+15*, HL7UPD+16, HL7UPD+17 |
| HBPNUM | GETDETL~, GETDETL+1, GETDETL+3, GETDETL+6, GETDETL+7 |
| HL7DATA | HL7UPD+1~, HL7UPD+22*, HL7UPD+24, HL7UPD+25, HL7UPD+26 |
| LAST | GETDETL+2~, GETDETL+5*, GETDETL+7 |
| MSHDATE | HL7UPD~, HL7UPD+15 |
| OCC | HL7UPD+1~, HL7UPD+6*, HL7UPD+8*, HL7UPD+9, HL7UPD+21*, HL7UPD+22 |
| PLAN | GETPLAN+1~, GETPLAN+6*, GETPLAN+7, SETPLAN~, SETPLAN+8, SETPLAN+21, DELPLAN~, DELPLAN+5, DELPLAN+12 |
| SDT | GETHBP+5~, GETHBP+6*, GETHBP+7*, GETHBP+8, HBP1*, HBP1+1*, HBP1+2, HBP1+4 |
| SITE | SETPLAN~, SETPLAN+11, SETPLAN+12, SETPLAN+23, SETPLAN+25, DELPLAN~, DELPLAN+14, DELPLAN+16 |
| STORDATA | STORCUR~, STORCUR+3, STORCUR+4, STORCUR+5, STORCUR+6, STORCUR+7, STORCUR+8, STORHIS~, STORHIS+3, STORHIS+4 , STORHIS+5, STORHIS+6, STORHIS+8, STORHIS+9 |
| SUCCESS | SETPLAN+4~, SETPLAN+14*, SETPLAN+15, SETPLAN+18~, SETPLAN+27*, DELPLAN+1~, DELPLAN+19*, STORCUR+1~, STORCUR+9*, STORHIS+1~ , STORHIS+10* |
| U | HL7UPD+6, HL7UPD+13, HL7UPD+15, HL7UPD+17, HL7UPD+24, UPDCURHBP+2, UPDCURHBP+13, UPDCURHBP+14, STORCUR+3, STORCUR+4 , STORCUR+5, STORCUR+6, STORCUR+7, STORCUR+8, STORHIS+3, STORHIS+4, STORHIS+5, STORHIS+6, STORHIS+8, STORHIS+9 |
| X | UPDCURHBP+1~, UPDCURHBP+9* |
| Y | UPDCURHBP+1~, UPDCURHBP+11 |