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

Package: Registration

FACILITY SUFFIX(#45.68)-->45.69

Sub-Field: 45.69


Information

Parent File Name Number Package
FACILITY SUFFIX(#45.68) EFFECTIVE DATE 45.69 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 X
  • LAST EDITED:  JUL 13, 1995
  • HELP-PROMPT:  Enter date suffix became active/inactive.
  • DELETE TEST:  1,0)= I '$O(^DIC(45.68,DA(1),"E",$O(^DIC(45.68,DA(1),"E",0)))) W !,*7,"There has to be an effective date for this suffix! "
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.69^B
    1)= S ^DIC(45.68,DA(1),"E","B",$E(X,1,30),DA)=""
    2)= K ^DIC(45.68,DA(1),"E","B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  45.69^AEFF^MUMPS
    1)= S ^DIC(45.68,DA(1),"E","AEFF",-X,DA)=""
    2)= K ^DIC(45.68,DA(1),"E","AEFF",-X,DA)
.02 ACTIVE? 0;2 SET
************************REQUIRED FIELD************************
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAY 24, 1995
  • HELP-PROMPT:  Enter 'Yes' if suffix is active or 'No' if suffix is inactive.
Info |  Details |  All