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 |