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: 42.41

Package: Registration

SPECIALTY(#42.4)-->42.41

Sub-Field: 42.41


Information

Parent File Name Number Package
SPECIALTY(#42.4) EFFECTIVE DATE 42.41 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 28, 1995
  • HELP-PROMPT:  Enter the effective date for this treating specialty.
  • DESCRIPTION:  
    This multiple holds the effective date(s) for the Treating Specialties.
  • TECHNICAL DESCR:  
  • DELETE TEST:  1,0)= I '$O(^DIC(42.4,DA(1),"E",$O(^DIC(42.4,DA(1),"E",0)))) W !,*7,"There has to be an effective date for this treating specialty! "
  • CROSS-REFERENCE:  42.41^B
    1)= S ^DIC(42.4,DA(1),"E","B",$E(X,1,30),DA)=""
    2)= K ^DIC(42.4,DA(1),"E","B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  42.41^ADATE^MUMPS
    1)= S ^DIC(42.4,DA(1),"E","ADATE",-X,DA)=""
    2)= K ^DIC(42.4,DA(1),"E","ADATE",-X,DA)
    This cross reference is used to look up active on reverse date.
.02 ACTIVE? 0;2 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  AUG 10, 1995
  • HELP-PROMPT:  Enter 'Yes' or 'No'
  • DESCRIPTION:  
    This field is an active/inactive flag for the treating specialty.
Info |  Details |  All