DGENLUP.m

DGENLUP ;ALB/CJM - Eligibilty Upload Audit - List Manager Screen;12 JUN 1997 10:00 am

 ;;5.3;Registration;**147,1015**;08/13/93;Build 21

 ;

EN(DFN,DGAUDIT) ;Entry point for the DGENCD CATASTROPHIC DISABILTY List Template

 ; Input:

 ;  DFN     - Patient IEN

 ;  DGAUDIT - ien of record in the Enrollment/Eligibilty Upload Audit file

 ; Output -- None

 ;

 Q:'$G(DFN)

 D WAIT^DICD

 D EN^VALM("DGENUP VIEW UPLOAD AUDIT")

 Q

 ;

INIT ;Init variables and list array

 D CLEAN^VALM10

 S VALMCNT=0

 S VALMAR="^DGENA(27.14,"_DGAUDIT_",1)"

 S VALMCNT=$P($G(^DGENA(27.14,DGAUDIT,1,0)),"^",3)

 Q

 ;

HELP ;Help code

 S X="?" D DISP^XQORM1 W !!

 Q

 ;

EXIT ;Exit code

 S VALMAR="DGAUDIT"

 D CLEAN^VALM10

 D CLEAR^VALM1

 Q

 ;

EXPND ;Expand code

 Q

 ;

HDR ;Header code

 N DGPREFNM,X,VA,VAERR

 D PID^VADPT

 S VALMHDR(1)=$E("Patient: "_$P($G(^DPT(DFN,0)),U),1,30)_" ("_VA("BID")_")"

 S X=$S('$D(^DPT(DFN,"TYPE")):"PATIENT TYPE UNKNOWN",$D(^DG(391,+^("TYPE"),0)):$P(^(0),U,1),1:"PATIENT TYPE UNKNOWN")

 S VALMHDR(1)=$$SETSTR^VALM1(X,VALMHDR(1),60,80)

 S VALMHDR(2)="Message ID: "_$P($G(^DGENA(27.14,+$G(DGAUDIT),0)),"^")

 S VALMHDR(3)="Approx DT/TM UPLOAD: "_$P($G(^DGENA(27.14,+$G(DGAUDIT),0)),"^",2)

 Q

DGENLUP   ;ALB/CJM - Eligibilty Upload Audit - List Manager Screen;12 JUN 1997 10:00 am

 +1       ;;5.3;Registration;**147,1015**;08/13/93;Build 21

 +2       ;

EN(DFN,DGAUDIT) ;Entry point for the DGENCD CATASTROPHIC DISABILTY List Template

 +1       ; Input:

 +2       ;  DFN     - Patient IEN

 +3       ;  DGAUDIT - ien of record in the Enrollment/Eligibilty Upload Audit file

 +4       ; Output -- None

 +5       ;

 +6        IF '$GET(DFN)

               QUIT 

 +7        DO WAIT^DICD

 +8        DO EN^VALM("DGENUP VIEW UPLOAD AUDIT")

 +9        QUIT 

 +10      ;

INIT      ;Init variables and list array

 +1        DO CLEAN^VALM10

 +2        SET VALMCNT=0

 +3        SET VALMAR="^DGENA(27.14,"_DGAUDIT_",1)"

 +4        SET VALMCNT=$PIECE($GET(^DGENA(27.14,DGAUDIT,1,0)),"^",3)

 +5        QUIT 

 +6       ;

HELP      ;Help code

 +1        SET X="?"

           DO DISP^XQORM1

           WRITE !!

 +2        QUIT 

 +3       ;

EXIT      ;Exit code

 +1        SET VALMAR="DGAUDIT"

 +2        DO CLEAN^VALM10

 +3        DO CLEAR^VALM1

 +4        QUIT 

 +5       ;

EXPND     ;Expand code

 +1        QUIT 

 +2       ;

HDR       ;Header code

 +1        NEW DGPREFNM,X,VA,VAERR

 +2        DO PID^VADPT

 +3        SET VALMHDR(1)=$EXTRACT("Patient: "_$PIECE($GET(^DPT(DFN,0)),U),1,30)_" ("_VA("BID")_")"

 +4        SET X=$SELECT('$DATA(^DPT(DFN,"TYPE")):"PATIENT TYPE UNKNOWN",$DATA(^DG(391,+^("TYPE"),0)):$PIECE(^(0),U,1),1:"PATIENT TYPE UNKNOWN")

 +5        SET VALMHDR(1)=$$SETSTR^VALM1(X,VALMHDR(1),60,80)

 +6        SET VALMHDR(2)="Message ID: "_$PIECE($GET(^DGENA(27.14,+$GET(DGAUDIT),0)),"^")

 +7        SET VALMHDR(3)="Approx DT/TM UPLOAD: "_$PIECE($GET(^DGENA(27.14,+$GET(DGAUDIT),0)),"^",2)

 +8        QUIT