Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 408.1275

Package: Registration

PATIENT RELATION(#408.12)-->408.1275

Sub-Field: 408.1275


Information

Parent File Name Number Package
PATIENT RELATION(#408.12) EFFECTIVE DATE 408.1275 Registration

Details

Field # Name Loc Type Details
.01 EFFECTIVE DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1!'$$DOB^DGDEP1(DA(1),X) X I Y>DT W !,"Future dates not allowed." K X
  • LAST EDITED:  SEP 13, 2005
  • HELP-PROMPT:  This date should be a precise date with month and day specified.
  • DESCRIPTION:  Enter the date on which the relative either became active (date of birth for a child or marriage date for a spouse, for example) or the date the relative became inactive (date of death, date of divorce, or date child
    became 18, for example).
  • DELETE TEST:  1,0)= I '$O(^DGPR(408.12,DA(1),"E",$O(^DGPR(408.12,DA(1),"E",0))))!($G(DGEDIT)&$P(^(DA,0),U,3)) W !,*7,"Cannot delete "_$S($P(^(0),U,3):"IVM",1:"last")_" EFFECTIVE DATE!"
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  408.1275^B
    1)= S ^DGPR(408.12,DA(1),"E","B",$E(X,1,30),DA)=""
    2)= K ^DGPR(408.12,DA(1),"E","B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  408.1275^AID^MUMPS
    1)= S ^DGPR(408.12,DA(1),"E","AID",-X,DA)=""
    2)= K ^DGPR(408.12,DA(1),"E","AID",-X,DA)
  • CROSS-REFERENCE:  408.1275^AENR01^MUMPS
    1)= D E40812^DGRTRIG($G(DA(1)))
    2)= D E40812^DGRTRIG($G(DA(1)))
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.02 ACTIVE 0;2 SET
************************REQUIRED FIELD************************
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 14, 1992
  • DESCRIPTION:  
    If this change in status makes the dependent effective, enter 1 for active. If the change in status makes an active dependent no longer dependent, enter 0 here.
.03 FILED BY IVM 0;3 SET
  • '1' FOR YES;

  • LAST EDITED:  DEC 20, 1994
  • HELP-PROMPT:  If 'Yes' then this date has been filed by the IVM Center
.04 IVM TEST 0;4 POINTER TO ANNUAL MEANS TEST FILE (#408.31) ANNUAL MEANS TEST(#408.31)

  • LAST EDITED:  DEC 20, 1994
  • DESCRIPTION:  
    This is a pointer to the IVM test.
  • CROSS-REFERENCE:  408.12^AIVM
    1)= S ^DGPR(408.12,"AIVM",$E(X,1,30),DA(1),DA)=""
    2)= K ^DGPR(408.12,"AIVM",$E(X,1,30),DA(1),DA)
    This cross referenced is used for the IVM test when an effective date is added.
Info |  Details