DGPZ07C ;BAJ - HL7 Z07 CONSISTENCY CHECKER -- DRIVER ROUTINE ; 10/14/05 11:48am
;;5.3;Registration;**653**;Aug 13,1993;Build 2
;
; This routine prompts the user for a patient name. Then, when found, calls the IVMZ07C support routine
; to check for inconsistencies in the patient record which will prevent the building of a Z07 HL7 record.
; Data from this routine will be available on the Inconsistent Data report.
;
; structure:
; 1. Begin loop
; 2. Select patient
; 3. Call IVMZ07C support routine
; 4. Notify user of Pass/Fail
;
; Must be called from entry point
Q
;
EN ; entry point.
; Start loop, quit when no more patients to check
F I '$$SELECT() Q
;
SELECT() ; Select patient and call support routine
N DFN,DIC,Y,DGP,DGSD,PASS,SEL
S SEL=0
W !! S DIC=2,DIC(0)="AEQM",DIC("A")="Check consistency for which PATIENT: " D ^DIC
I Y<0 Q SEL
S DFN=+Y,SEL=1
W !,"Checking..."
S PASS=$$EN^IVMZ07C(DFN)
D NOTIFY(PASS)
; we only need "CC" counter in batch mode so kill it here.
K ^TMP($J,"CC")
Q SEL
;
NOTIFY(PASS) ; Notify user of Pass/Fail
W !! ;write two blank lines
I PASS W "NO INCONSISTENCIES FOUND..." Q
W "INCONSISTENCIES FOUND..."
D ON^DGRPC Q:DGER
S DGVAR="DUZ^DFN",DGPGM="^DGPZ07P" D ZIS^DGUTQ G Q^DGPZ07P:POP U IO G ^DGPZ07P
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGPZ07C 1332 printed Dec 13, 2024@02:54:34 Page 2
DGPZ07C ;BAJ - HL7 Z07 CONSISTENCY CHECKER -- DRIVER ROUTINE ; 10/14/05 11:48am
+1 ;;5.3;Registration;**653**;Aug 13,1993;Build 2
+2 ;
+3 ; This routine prompts the user for a patient name. Then, when found, calls the IVMZ07C support routine
+4 ; to check for inconsistencies in the patient record which will prevent the building of a Z07 HL7 record.
+5 ; Data from this routine will be available on the Inconsistent Data report.
+6 ;
+7 ; structure:
+8 ; 1. Begin loop
+9 ; 2. Select patient
+10 ; 3. Call IVMZ07C support routine
+11 ; 4. Notify user of Pass/Fail
+12 ;
+13 ; Must be called from entry point
+14 QUIT
+15 ;
EN ; entry point.
+1 ; Start loop, quit when no more patients to check
+2 FOR
IF '$$SELECT()
QUIT
+3 ;
SELECT() ; Select patient and call support routine
+1 NEW DFN,DIC,Y,DGP,DGSD,PASS,SEL
+2 SET SEL=0
+3 WRITE !!
SET DIC=2
SET DIC(0)="AEQM"
SET DIC("A")="Check consistency for which PATIENT: "
DO ^DIC
+4 IF Y<0
QUIT SEL
+5 SET DFN=+Y
SET SEL=1
+6 WRITE !,"Checking..."
+7 SET PASS=$$EN^IVMZ07C(DFN)
+8 DO NOTIFY(PASS)
+9 ; we only need "CC" counter in batch mode so kill it here.
+10 KILL ^TMP($JOB,"CC")
+11 QUIT SEL
+12 ;
NOTIFY(PASS) ; Notify user of Pass/Fail
+1 ;write two blank lines
WRITE !!
+2 IF PASS
WRITE "NO INCONSISTENCIES FOUND..."
QUIT
+3 WRITE "INCONSISTENCIES FOUND..."
+4 DO ON^DGRPC
if DGER
QUIT
+5 SET DGVAR="DUZ^DFN"
SET DGPGM="^DGPZ07P"
DO ZIS^DGUTQ
if POP
GOTO Q^DGPZ07P
USE IO
GOTO ^DGPZ07P
+6 QUIT
+7 ;
