DGENLEH.m

DGENLEH ;ALB/RMO,LBD - Patient Enrollment History - List Manager Screen;12 JUN 1997 10:00 am ; 1/27/11 3:11pm

 ;;5.3;Registration;**121,838**;08/13/93;Build 5

 ;

EN(DFN,DGENRIEN) ;Main entry point to invoke the DGEN PATIENT ENROLL HISTORY protocol

 ; Input  -- DFN      Patient IEN

 ;           DGENRIEN Enrollment IEN

 ; Output -- None

 D WAIT^DICD

 D EN^VALM("DGEN PATIENT ENROLL HISTORY")

 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)

 I $$PREF^DGENPTA(DFN,.DGPREFNM)

 S VALMHDR(2)="Preferred Facility: "_$G(DGPREFNM)

 S VALMHDR(2)=$$SETSTR^VALM1("Prior Enrollment",VALMHDR(2),60,80)

 S VALMHDR(3)="Preferred Facility Source: "_$$GET1^DIQ(2,DFN_",",27.03)  ;DG*5.3*838

 Q

 ;

INIT ;Init variables and list array

 D BLD

 Q

 ;

BLD ;Build patient enrollment screen

 D CLEAN^VALM10

 K ^TMP("DGENEHIDX",$J)

 ;

 ;Build header

 D HDR

 ;

 ;Build list area for select enrollment history

 D EN^DGENL1("DGENEH",DFN,DGENRIEN,.VALMCNT)

 Q

 ;

HELP ;Help code

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

 Q

 ;

EXIT ;Exit code

 D CLEAN^VALM10

 D CLEAR^VALM1

 K ^TMP("DGENEHIDX",$J)

 Q

 ;

EXPND ;Expand code

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGENLEH   1390     printed  Apr 09, 2024@22:04:29                                                                                                                                                                                                     Page 2

DGENLEH   ;ALB/RMO,LBD - Patient Enrollment History - List Manager Screen;12 JUN 1997 10:00 am ; 1/27/11 3:11pm

 +1       ;;5.3;Registration;**121,838**;08/13/93;Build 5

 +2       ;

EN(DFN,DGENRIEN) ;Main entry point to invoke the DGEN PATIENT ENROLL HISTORY protocol

 +1       ; Input  -- DFN      Patient IEN

 +2       ;           DGENRIEN Enrollment IEN

 +3       ; Output -- None

 +4        DO WAIT^DICD

 +5        DO EN^VALM("DGEN PATIENT ENROLL HISTORY")

 +6        QUIT 

 +7       ;

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        IF $$PREF^DGENPTA(DFN,.DGPREFNM)

 +7        SET VALMHDR(2)="Preferred Facility: "_$GET(DGPREFNM)

 +8        SET VALMHDR(2)=$$SETSTR^VALM1("Prior Enrollment",VALMHDR(2),60,80)

 +9       ;DG*5.3*838

           SET VALMHDR(3)="Preferred Facility Source: "_$$GET1^DIQ(2,DFN_",",27.03)

 +10       QUIT 

 +11      ;

INIT      ;Init variables and list array

 +1        DO BLD

 +2        QUIT 

 +3       ;

BLD       ;Build patient enrollment screen

 +1        DO CLEAN^VALM10

 +2        KILL ^TMP("DGENEHIDX",$JOB)

 +3       ;

 +4       ;Build header

 +5        DO HDR

 +6       ;

 +7       ;Build list area for select enrollment history

 +8        DO EN^DGENL1("DGENEH",DFN,DGENRIEN,.VALMCNT)

 +9        QUIT 

 +10      ;

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        KILL ^TMP("DGENEHIDX",$JOB)

 +4        QUIT 

 +5       ;

EXPND     ;Expand code

 +1        QUIT 

 +2       ;