DGDEPE.m

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

 ;;5.3;Registration;**45,1015**;Aug 13, 1993;Build 21

 ;

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 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")

 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))

 Q

 ;

INIT ;

 N VA,VAERR,DGFSTCOL,DGSECCOL

 D PID^VADPT

 D ONE^DGDEP1(DGW)

 Q

 ;

FNL ;

 D CLEAN^VALM10

 Q

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

 +1       ;;5.3;Registration;**45,1015**;Aug 13, 1993;Build 21

 +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        DO PID^VADPT

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

 +4        SET X=$SELECT($DATA(^DPT(DFN,.1)):"Ward: "_^(.1),1:"Outpatient")

 +5        SET VALMHDR(1)=$$SETSTR^VALM1(X,VALMHDR(1),81-$LENGTH(X),$LENGTH(X))

 +6        SET X=""

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

 +7        QUIT 

 +8       ;

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