DGENLCD ;ALB/CJM - Enrollment Catastophic Disability - List Manager Screen;12 JUN 1997 10:00 am
;;5.3;Registration;**121**;08/13/93
;
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGENLCD 914 printed Oct 16, 2024@18:43:26 Page 2
DGENLCD ;ALB/CJM - Enrollment Catastophic Disability - List Manager Screen;12 JUN 1997 10:00 am
+1 ;;5.3;Registration;**121**;08/13/93
+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
