DG53890P ;ALB/DHS/DRP - CONTRIBUTE SPOUSE POST-INIT ;12/09/14
;;5.3;Registration;**890**;Aug 13, 1993;Build 40
;
Q
;
RCMP ; -- re-compile all compiled input templates.
N X,Y,DA,DMAX,DGERR,DGDUZSV,DGINTP
I $G(DUZ)="" W !,"Your DUZ is not defined. It must be defined to run this routine." Q
S DGDUZSV=DUZ(0),DUZ(0)="@"
;
D BMES^XPDUTL("Compiling Input Templates....")
;
F DGINTP="DGMT ENTER/EDIT DEPENDENTS","DGMT V1 ENTER/EDIT DEPENDENTS","DGMT ENTER/EDIT MARITAL STATUS" S Y=$O(^DIE("B",DGINTP,0)) S DGERR=0 D I DGERR D BMES^XPDUTL("** "_DGINTP_" input template could not be updated")
.I 'Y S DGERR=1 Q
.S X=$P($G(^DIE(Y,"ROU")),U,2) I X="" S DGERR=1 Q
.S DMAX=$$ROUSIZE^DILF D EN^DIEZ
;
S DUZ(0)=DGDUZSV
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53890P 745 printed Dec 13, 2024@02:39:12 Page 2
DG53890P ;ALB/DHS/DRP - CONTRIBUTE SPOUSE POST-INIT ;12/09/14
+1 ;;5.3;Registration;**890**;Aug 13, 1993;Build 40
+2 ;
+3 QUIT
+4 ;
RCMP ; -- re-compile all compiled input templates.
+1 NEW X,Y,DA,DMAX,DGERR,DGDUZSV,DGINTP
+2 IF $GET(DUZ)=""
WRITE !,"Your DUZ is not defined. It must be defined to run this routine."
QUIT
+3 SET DGDUZSV=DUZ(0)
SET DUZ(0)="@"
+4 ;
+5 DO BMES^XPDUTL("Compiling Input Templates....")
+6 ;
+7 FOR DGINTP="DGMT ENTER/EDIT DEPENDENTS","DGMT V1 ENTER/EDIT DEPENDENTS","DGMT ENTER/EDIT MARITAL STATUS"
SET Y=$ORDER(^DIE("B",DGINTP,0))
SET DGERR=0
Begin DoDot:1
+8 IF 'Y
SET DGERR=1
QUIT
+9 SET X=$PIECE($GET(^DIE(Y,"ROU")),U,2)
IF X=""
SET DGERR=1
QUIT
+10 SET DMAX=$$ROUSIZE^DILF
DO EN^DIEZ
End DoDot:1
IF DGERR
DO BMES^XPDUTL("** "_DGINTP_" input template could not be updated")
+11 ;
+12 SET DUZ(0)=DGDUZSV
+13 QUIT
