DGMTSC11.m

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 ---DGMTSC11   1337     printed  Apr 09, 2024@22:00:44                                                                                                                                                                                                    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