DGENUPA2 ;ALB/CJM - Protocol Viewing Eligibility Upload Audit;16 JUN 1997 01:30 pm
;;5.3;Registration;**147**;08/13/93
;
EN(DFN) ;Entry point for DGENUP ELIGIBILITY UPLOAD AUDIT protocol
N DGAUDIT
D FULL^VALM1
S DGAUDIT=$$SELECT(DFN)
D:$G(DGAUDIT) EN^DGENLUP(DFN,DGAUDIT)
;D:DFN BLD^DGENL
S VALMBCK="R"
Q
;
SELECT(DFN) ;
N DIC,D,X
S DIC=27.14
S DIC(0)="EMNQ"
S X=DFN
S D="C"
D IX^DIC
I $D(DTOUT)!$D(DUOUT) Q 0
I +Y=-1 Q 0
Q +Y
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGENUPA2 468 printed Dec 13, 2024@02:43:16 Page 2
DGENUPA2 ;ALB/CJM - Protocol Viewing Eligibility Upload Audit;16 JUN 1997 01:30 pm
+1 ;;5.3;Registration;**147**;08/13/93
+2 ;
EN(DFN) ;Entry point for DGENUP ELIGIBILITY UPLOAD AUDIT protocol
+1 NEW DGAUDIT
+2 DO FULL^VALM1
+3 SET DGAUDIT=$$SELECT(DFN)
+4 if $GET(DGAUDIT)
DO EN^DGENLUP(DFN,DGAUDIT)
+5 ;D:DFN BLD^DGENL
+6 SET VALMBCK="R"
+7 QUIT
+8 ;
SELECT(DFN) ;
+1 NEW DIC,D,X
+2 SET DIC=27.14
+3 SET DIC(0)="EMNQ"
+4 SET X=DFN
+5 SET D="C"
+6 DO IX^DIC
+7 IF $DATA(DTOUT)!$DATA(DUOUT)
QUIT 0
+8 IF +Y=-1
QUIT 0
+9 QUIT +Y