DGDEPE.m

DGDEPE ;ALB/CAW,ARF - Extended Display ; 1/28/92

 ;;5.3;Registration;**45,1014**;Aug 13, 1993;Build 42

 ;

EN ; Selection of dependent

 G ENQ:'$D(DGW)!$G(DGERR)=1

 K DGDEP("DGMTEP",$J)

 S VALMBCK=""

 N DGWIDTH,DGPT,DGSC

 W ! D WAIT^DICD,EN^VALM("DGMT EXPAND PROFILE")

ENQ S VALMBCK="R" Q

 ;

HDR ; Header

 N VA,VAERR

 D LISTHDR^DGRPU(1) ;DG*5.3*1014 - ARF - sets patient data in the 1st and 2nd entries in VALMHDR array

 S X="",VALMHDR(3)=$$SETSTR^VALM1(X,"Dependent #: "_DGW_" "_$P(DGDEP(DGW),U)_"("_$P(DGDEP(DGW),U,2)_")",81-$L(X),$L(X)) ;DG*5.3*1014 begin

 ;D PID^VADPT                                                                                                           

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

 ;S X=$S($D(^DPT(DFN,.1)):"Ward: "_^(.1),1:"Outpatient")                                                                ;Ward is no longer included in banners

 ;S VALMHDR(1)=$$SETSTR^VALM1(X,VALMHDR(1),81-$L(X),$L(X))

 ;S X="",VALMHDR(2)=$$SETSTR^VALM1(X,"Dependent #: "_DGW_" "_$P(DGDEP(DGW),U)_"("_$P(DGDEP(DGW),U,2)_")",81-$L(X),$L(X)) ;DG*5.3*1014 end

 Q

 ;

INIT ;

 N VA,VAERR,DGFSTCOL,DGSECCOL

 D PID^VADPT

 D ONE^DGDEP1(DGW)

 Q

 ;

FNL ;

 D CLEAN^VALM10

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGDEPE   1252     printed  Apr 09, 2024@22:06:03                                                                                                                                                                                                      Page 2

DGDEPE    ;ALB/CAW,ARF - Extended Display ; 1/28/92

 +1       ;;5.3;Registration;**45,1014**;Aug 13, 1993;Build 42

 +2       ;

EN        ; Selection of dependent

 +1        if '$DATA(DGW)!$GET(DGERR)=1

               GOTO ENQ

 +2        KILL DGDEP("DGMTEP",$JOB)

 +3        SET VALMBCK=""

 +4        NEW DGWIDTH,DGPT,DGSC

 +5        WRITE !

           DO WAIT^DICD

           DO EN^VALM("DGMT EXPAND PROFILE")

ENQ        SET VALMBCK="R"

           QUIT 

 +1       ;

HDR       ; Header

 +1        NEW VA,VAERR

 +2       ;DG*5.3*1014 - ARF - sets patient data in the 1st and 2nd entries in VALMHDR array

           DO LISTHDR^DGRPU(1)

 +3       ;DG*5.3*1014 begin

           SET X=""

           SET VALMHDR(3)=$$SETSTR^VALM1(X,"Dependent #: "_DGW_" "_$PIECE(DGDEP(DGW),U)_"("_$PIECE(DGDEP(DGW),U,2)_")",81-$LENGTH(X),$LENGTH(X))

 +4       ;D PID^VADPT                                                                                                           

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

 +6       ;S X=$S($D(^DPT(DFN,.1)):"Ward: "_^(.1),1:"Outpatient")                                                                ;Ward is no longer included in banners

 +7       ;S VALMHDR(1)=$$SETSTR^VALM1(X,VALMHDR(1),81-$L(X),$L(X))

 +8       ;S X="",VALMHDR(2)=$$SETSTR^VALM1(X,"Dependent #: "_DGW_" "_$P(DGDEP(DGW),U)_"("_$P(DGDEP(DGW),U,2)_")",81-$L(X),$L(X)) ;DG*5.3*1014 end

 +9        QUIT 

 +10      ;

INIT      ;

 +1        NEW VA,VAERR,DGFSTCOL,DGSECCOL

 +2        DO PID^VADPT

 +3        DO ONE^DGDEP1(DGW)

 +4        QUIT 

 +5       ;

FNL       ;

 +1        DO CLEAN^VALM10

 +2        QUIT