EASECDPE ;ALB/LBD - Dependents Extended Display ;22 AUG 2001
;;1.0;ENROLLMENT APPLICATION SYSTEM;**5**;Mar 15, 2001
;
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("EASEC 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^EASECDP1(DGW)
Q
;
FNL ;
D CLEAN^VALM10
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEASECDPE 794 printed Dec 13, 2024@01:53:57 Page 2
EASECDPE ;ALB/LBD - Dependents Extended Display ;22 AUG 2001
+1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**5**;Mar 15, 2001
+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("EASEC 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^EASECDP1(DGW)
+4 QUIT
+5 ;
FNL ;
+1 DO CLEAN^VALM10
+2 QUIT
