Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGMTSC11

DGMTSC11.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. EDTV1(MTVER) ;Edit dependent child data (new entry point)
  1. ;
  1. ; MTVER : Means Test Version (Optional)
  1. ; Null or 0 - Version 0
  1. ; 1 - Version 1
  1. ;
  1. S V1ENT=1 ;* MTVER was NEWed
  1. S:('$D(MTVER)) MTVER=0 ;*No value for MTVER was received
  1. EDT ; Old Entry point for existing integrations - Edit dependent child data
  1. S EDTSET=0 ;* If MTVER exists it was defined in the partition and should not be KILLed
  1. ;
  1. ;* If MTVER is defined ($G value is 0 or 1) do not reset MTVER or KILL MTVER
  1. ;* If MTVER is not defined ($G Value is 0 because undefined); old version, KILL MTVER
  1. I (+$G(MTVER)<1),'$D(MTVER) S MTVER=0 S EDTSET=1
  1. N DA,DGERR,DGFIN,DGINI,DGIRI,DIE,DR
  1. D GETIENS^DGMTU2(DFN,+DGPRI,DGMTDT) G EDTQ:DGERR
  1. S DA=DGIRI,DIE="^DGMT(408.22,"
  1. S:(+MTVER<1) DR="[DGMT ENTER/EDIT DEPENDENTS]"
  1. S:(+MTVER=1) DR="[DGMT V1 ENTER/EDIT DEPENDENTS]"
  1. D ^DIE
  1. S:'$D(DGFIN) DGFL=$S($D(DTOUT):-2,$D(DUOUT):-1,($D(Y))=10:-1,1:0)
  1. ;
  1. ;* If MTVER was not defined because entry point for old version, KILL MTVER
  1. ;* If MTVER defined by calling version 1 entry point, do not KILL (NEW values will be KILLed)
  1. I EDTSET,'$D(V1ENT) K MTVER
  1. K EDTSET,V1ENT
  1. EDTQ Q