IVMZ07C ;BAJ/PHH/LBD - HL7 Z07 CONSISTENCY CHECKER -- DRIVER ROUTINE ; 7/14/10 11:54am
Source file <IVMZ07C.m>
| 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) | ;
|
| FileNo | Call Tags |
|---|---|
| ^DGIN(38.5 - [#38.5] | Classic Fileman Calls |
