- 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 Feb 19, 2025@00:08:02 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