DGENLCD.m

DGENLCD ;ALB/CJM - Enrollment Catastophic Disability - List Manager Screen;12 JUN 1997 10:00 am

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

 ;

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

 ; Input  -- DFN      Patient IEN

 ; Output -- None

 ;

 Q:'$G(DFN)

 D WAIT^DICD

 D EN^VALM("DGENCD CATASTROPHIC DISABILITY")

 Q

 ;

INIT ;Init variables and list array

 D CLEAN^VALM10

 S VALMCNT=0

 D EN^DGENLCD1("DGEN CD",DFN,.VALMCNT)

 Q

 ;

HELP ;Help code

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

 Q

 ;

EXIT ;Exit code

 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)

 Q

DGENLCD   ;ALB/CJM - Enrollment Catastophic Disability - List Manager Screen;12 JUN 1997 10:00 am

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

 +2       ;

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

 +1       ; Input  -- DFN      Patient IEN

 +2       ; Output -- None

 +3       ;

 +4        IF '$GET(DFN)

               QUIT 

 +5        DO WAIT^DICD

 +6        DO EN^VALM("DGENCD CATASTROPHIC DISABILITY")

 +7        QUIT 

 +8       ;

INIT      ;Init variables and list array

 +1        DO CLEAN^VALM10

 +2        SET VALMCNT=0

 +3        DO EN^DGENLCD1("DGEN CD",DFN,.VALMCNT)

 +4        QUIT 

 +5       ;

HELP      ;Help code

 +1        SET X="?"

           DO DISP^XQORM1

           WRITE !!

 +2        QUIT 

 +3       ;

EXIT      ;Exit code

 +1        DO CLEAN^VALM10

 +2        DO CLEAR^VALM1

 +3        QUIT 

 +4       ;

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        QUIT