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 ---[H[J[2J[HDGDEPE 1252 printed Oct 16, 2024@18:42:38 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
