DGMTSC11 ;ALB/RMO - Means Test Screen Marital Status/Dependent Cont. ; 25 JAN 92
;;5.3;Registration;**25,45,688**;Aug 13, 1993;Build 29
;
EDTV1(MTVER) ;Edit dependent child data (new entry point)
;
; MTVER : Means Test Version (Optional)
; Null or 0 - Version 0
; 1 - Version 1
;
S V1ENT=1 ;* MTVER was NEWed
S:('$D(MTVER)) MTVER=0 ;*No value for MTVER was received
EDT ; Old Entry point for existing integrations - Edit dependent child data
S EDTSET=0 ;* If MTVER exists it was defined in the partition and should not be KILLed
;
;* If MTVER is defined ($G value is 0 or 1) do not reset MTVER or KILL MTVER
;* If MTVER is not defined ($G Value is 0 because undefined); old version, KILL MTVER
I (+$G(MTVER)<1),'$D(MTVER) S MTVER=0 S EDTSET=1
N DA,DGERR,DGFIN,DGINI,DGIRI,DIE,DR
D GETIENS^DGMTU2(DFN,+DGPRI,DGMTDT) G EDTQ:DGERR
S DA=DGIRI,DIE="^DGMT(408.22,"
S:(+MTVER<1) DR="[DGMT ENTER/EDIT DEPENDENTS]"
S:(+MTVER=1) DR="[DGMT V1 ENTER/EDIT DEPENDENTS]"
D ^DIE
S:'$D(DGFIN) DGFL=$S($D(DTOUT):-2,$D(DUOUT):-1,($D(Y))=10:-1,1:0)
;
;* If MTVER was not defined because entry point for old version, KILL MTVER
;* If MTVER defined by calling version 1 entry point, do not KILL (NEW values will be KILLed)
I EDTSET,'$D(V1ENT) K MTVER
K EDTSET,V1ENT
EDTQ Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGMTSC11 1337 printed Nov 22, 2024@17:55:16 Page 2
DGMTSC11 ;ALB/RMO - Means Test Screen Marital Status/Dependent Cont. ; 25 JAN 92
+1 ;;5.3;Registration;**25,45,688**;Aug 13, 1993;Build 29
+2 ;
EDTV1(MTVER) ;Edit dependent child data (new entry point)
+1 ;
+2 ; MTVER : Means Test Version (Optional)
+3 ; Null or 0 - Version 0
+4 ; 1 - Version 1
+5 ;
+6 ;* MTVER was NEWed
SET V1ENT=1
+7 ;*No value for MTVER was received
if ('$DATA(MTVER))
SET MTVER=0
EDT ; Old Entry point for existing integrations - Edit dependent child data
+1 ;* If MTVER exists it was defined in the partition and should not be KILLed
SET EDTSET=0
+2 ;
+3 ;* If MTVER is defined ($G value is 0 or 1) do not reset MTVER or KILL MTVER
+4 ;* If MTVER is not defined ($G Value is 0 because undefined); old version, KILL MTVER
+5 IF (+$GET(MTVER)<1)
IF '$DATA(MTVER)
SET MTVER=0
SET EDTSET=1
+6 NEW DA,DGERR,DGFIN,DGINI,DGIRI,DIE,DR
+7 DO GETIENS^DGMTU2(DFN,+DGPRI,DGMTDT)
if DGERR
GOTO EDTQ
+8 SET DA=DGIRI
SET DIE="^DGMT(408.22,"
+9 if (+MTVER<1)
SET DR="[DGMT ENTER/EDIT DEPENDENTS]"
+10 if (+MTVER=1)
SET DR="[DGMT V1 ENTER/EDIT DEPENDENTS]"
+11 DO ^DIE
+12 if '$DATA(DGFIN)
SET DGFL=$SELECT($DATA(DTOUT):-2,$DATA(DUOUT):-1,($DATA(Y))=10:-1,1:0)
+13 ;
+14 ;* If MTVER was not defined because entry point for old version, KILL MTVER
+15 ;* If MTVER defined by calling version 1 entry point, do not KILL (NEW values will be KILLed)
+16 IF EDTSET
IF '$DATA(V1ENT)
KILL MTVER
+17 KILL EDTSET,V1ENT
EDTQ QUIT
