IVMZ07C ;BAJ/PHH/LBD - HL7 Z07 CONSISTENCY CHECKER -- DRIVER ROUTINE ; 7/14/10 11:54am
Source file <IVMZ07C.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 |
| Package | Total | Caller Graph |
|---|---|---|
| Registration | 4 | DGPZ07C DGRPC3 DGRPCR DGRPCU |
| Enrollment Application System | 1 | EASPREC4 |
| Income Verification Match | 1 | IVMPTRN7 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(DFN) | ; entry point. Patient DFN is sent from calling routine.
; initialize working variables |
|
| COUNT(PASS) | ; counter for batch run
|
|
| LOADPT(DFN,DGP) | ; load patient data into arrays
|
|
| WORK(DFN,DGP,DGSD) | ;
; call subroutines to run rules and file any inconsistencies |
|
| DELETE(DFN) | ; delete all Z07 inconsistencies from INCONSISTENT DATA file (#38.5). Since we're not sure which rules
; will block a Z07 record, we need to loop through the INCONSISTENT DATA ELEMENTS file (#38.6) and grab only ; those rules which are marked to prevent building a Z07 record: ; |
|
| FILE(DFN) | ;
|
| Name | Field # of Occurrence |
|---|---|
| $$ADD^DGENDBS | FILE+16, FILE+29 |
| $$UPD^DGENDBS | FILE+22 |
| GETMSE^DGMSEUTL | LOADPT+16 |
| MOVMSE^DGMSEUTL | LOADPT+15 |
| $$LST^DGMTU | LOADPT+31 |
| ^DIK | DELETE+15, FILE+8 |
| LOADSD^IVMZ072 | EN+26 |
| EN^IVMZ7CCD | WORK+13 |
| EN^IVMZ7CD | WORK+4 |
| EN^IVMZ7CE | WORK+7 |
| EN^IVMZ7CR | WORK+16 |
| EN^IVMZ7CS | WORK+10 |
| $$DT^XLFDT | FILE+15, FILE+21 |
| FileNo | Call Tags |
|---|---|
| ^DGIN(38.5 - [#38.5] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGEN(27.11 - [#27.11] | LOADPT+27 |
| ^DGIN( | FILE+14 |
| ^DGIN(38.5 - [#38.5] | FILE+6 |
| ^DGIN(38.6 - [#38.6] | DELETE+8, DELETE+9 |
| ^DGMS(29.11 - [#29.11] | LOADPT+36, LOADPT+38, LOADPT+39 |
| ^DGMT(408.31 - [#408.31] | LOADPT+31 |
| ^DPT - [#2] | EN+19, EN+21, LOADPT+12, LOADPT+13, LOADPT+15, LOADPT+20, LOADPT+26 |
| ^TMP($J | COUNT+3, COUNT+4*, COUNT+7*, FILE+4, FILE+27, FILE+32! |
| ^VA(20 - [#20] | LOADPT+20, LOADPT+21 |
| Name | Line Occurrences |
|---|---|
| $$FILE | EN+35 |
| COUNT | EN+38 |
| DELETE | EN+32 |
| LOADPT | EN+26 |
| WORK | EN+29 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CCS | FILE+1~, FILE+2*, FILE+4, FILE+11*, FILE+34 |
| DA | DELETE+5~, DELETE+15*, FILE+1~, FILE+7* |
| DATA | FILE+1~, FILE+16, FILE+22, FILE+25!, FILE+29 |
| DATA( | FILE+13*, FILE+28* |
| DATA(2 | FILE+15* |
| DATA(3 | FILE+15* |
| DATA(4 | FILE+21* |
| DATA(5 | FILE+21* |
| DELARRY | DELETE+5~ |
| DELARRY( | DELETE+9*, DELETE+15 |
| DFN | EN~, EN+19, EN+21, EN+26, EN+29, EN+32, EN+35, LOADPT~, LOADPT+12, LOADPT+13 , LOADPT+15, LOADPT+16, LOADPT+20, LOADPT+26, LOADPT+31, LOADPT+36, LOADPT+38, WORK~, WORK+4, WORK+7 , WORK+10, WORK+13, WORK+16, DELETE~, DELETE+13, FILE~, FILE+4, FILE+6, FILE+7, FILE+13 , FILE+14, FILE+16, FILE+21, FILE+26, FILE+27, FILE+32 |
| DGENDA | FILE+1~, FILE+21*, FILE+22, FILE+28*, FILE+29 |
| DGENDA(1 | FILE+26* |
| DGP | EN+3~, EN+26, EN+29, LOADPT~, WORK~, WORK+4, WORK+7, WORK+10, WORK+16 |
| DGP("ENR" | LOADPT+27* |
| DGP("MEANS" | LOADPT+31* |
| DGP("MST" | LOADPT+39* |
| DGP("NAME" | LOADPT+21* |
| DGP("PAT" | LOADPT+12* |
| DGPMSE | EN+3~, LOADPT+16 |
| DGSD | EN+3~, EN+26, EN+29, WORK~, WORK+4, WORK+16 |
| DIK | DELETE+5~, DELETE+13*, FILE+1~, FILE+7* |
| DTTM | LOADPT+1~, LOADPT+35*, LOADPT+36*, LOADPT+37, LOADPT+38 |
| FILE | FILE+1~, FILE+2*, FILE+14, FILE+16, FILE+22 |
| I | COUNT+1~, COUNT+4*, LOADPT+1~, LOADPT+12*, FILE+1~, FILE+27*, FILE+28 |
| IEN | LOADPT+1~ |
| NAMCOM | LOADPT+1~, LOADPT+13*, LOADPT+20*, LOADPT+21 |
| NAME | LOADPT+1~, LOADPT+13*, LOADPT+21 |
| NIEN | LOADPT+1~, LOADPT+20*, LOADPT+21, LOADPT+26*, LOADPT+27, LOADPT+31*, LOADPT+35*, LOADPT+38*, LOADPT+39 |
| PASS | EN+3~, EN+18*, EN+19, EN+21, EN+23*, EN+35*, EN+38, EN+41, COUNT~, COUNT+7 |
| RULE | DELETE+5~, DELETE+8*, DELETE+9 |
| SUBFILE | FILE+1~, FILE+26*, FILE+29 |
| SUCCESS | FILE+1~, FILE+16*, FILE+22*, FILE+29* |
| U | EN+3~, EN+4*, LOADPT+20, LOADPT+26, DELETE+9 |