DGENUPA2.m

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 ---DGENUPA2   468     printed  Apr 09, 2024@21:47:42                                                                                                                                                                                                     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