- 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 Feb 19, 2025@00:11:20 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