Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGPZ07C

DGPZ07C.m

Go to the documentation of this file. 
  1. DGPZ07C ;BAJ - HL7 Z07 CONSISTENCY CHECKER -- DRIVER ROUTINE ; 10/14/05 11:48am
  1.  ;;5.3;Registration;**653,1015**;Aug 13,1993;Build 21
  1.  ;
  1.  ; This routine prompts the user for a patient name.  Then, when found, calls the IVMZ07C support routine 
  1.  ; to check for inconsistencies in the patient record which will prevent the building of a Z07 HL7 record.  
  1.  ; Data from this routine will be available on the Inconsistent Data report.
  1.  ; 
  1.  ; structure:
  1.  ; 1. Begin loop
  1.  ; 2. Select patient
  1.  ; 3. Call IVMZ07C support routine
  1.  ; 4. Notify user of Pass/Fail
  1.  ; 
  1.  ; Must be called from entry point
  1.  Q
  1.  ;
  1. EN ; entry point.
  1.  ; Start loop, quit when no more patients to check
  1.  F  I '$$SELECT() Q
  1.  ;
  1. SELECT() ; Select patient and call support routine
  1.  N DFN,DIC,Y,DGP,DGSD,PASS,SEL
  1.  S SEL=0
  1.  W !! S DIC=2,DIC(0)="AEQM",DIC("A")="Check consistency for which PATIENT: " D ^DIC
  1.  I Y<0 Q SEL
  1.  S DFN=+Y,SEL=1
  1.  W !,"Checking..."
  1.  S PASS=$$EN^IVMZ07C(DFN)
  1.  D NOTIFY(PASS)
  1.  ; we only need "CC" counter in batch mode so kill it here.
  1.  K ^TMP($J,"CC")
  1.  Q SEL
  1.  ;
  1. NOTIFY(PASS) ; Notify user of Pass/Fail
  1.  W !!    ;write two blank lines
  1.  I PASS W "NO INCONSISTENCIES FOUND..." Q
  1.  W "INCONSISTENCIES FOUND..."
  1.  D ON^DGRPC Q:DGER
  1.  S DGVAR="DUZ^DFN",DGPGM="^DGPZ07P" D ZIS^DGUTQ G Q^DGPZ07P:POP U IO G ^DGPZ07P
  1.  Q
  1.  ;