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

Package: Kernel

INSTITUTION(#4)-->4.999

Sub-Field: 4.999


Information

Parent File Name Number Package
INSTITUTION(#4) HISTORY 4.999 Kernel

Details

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

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X S DINUM=X
  • LAST EDITED:  JUN 05, 2000
  • HELP-PROMPT:  The effective date of the change.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  4.999^B
    1)= S ^DIC(4,DA(1),999,"B",$E(X,1,30),DA)=""
    2)= K ^DIC(4,DA(1),999,"B",$E(X,1,30),DA)
.02 NAME (CHANGED FROM) 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JUL 21, 2000
  • HELP-PROMPT:  If NAME changed, this field holds old value.
  • CROSS-REFERENCE:  4^OLDNAM
    1)= S ^DIC(4,"OLDNAM",$E(X,1,30),DA(1),DA)=""
    2)= K ^DIC(4,"OLDNAM",$E(X,1,30),DA(1),DA)
    This x-ref stores the old name.
.03 OFFICAL VA NAME (CHANGED FROM) 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<3) X
  • LAST EDITED:  JUN 06, 2000
  • HELP-PROMPT:  If OFFICAL VA NAME changed, this field holds old value.
.05 REALIGNED TO 0;5 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  JUN 12, 2000
  • HELP-PROMPT:  This field points to the new entry with valid station number.\]
  • CROSS-REFERENCE:  4^ART
    1)= S ^DIC(4,"ART",$E(X,1,30),DA(1),DA)=""
    2)= K ^DIC(4,"ART",$E(X,1,30),DA(1),DA)
    This x-ref used by F4^XUAF4 API.
  • CROSS-REFERENCE:  4^ARTO^MUMPS
    1)= S ^DIC(4,"ARTO",DA(1),X)=""
    2)= K ^DIC(4,"ARTO",DA(1),X)
    This x-ref used by F4^XUAF4 API.
.06 REALIGNED FROM 0;6 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  JUN 12, 2000
  • HELP-PROMPT:  This field points to the old entry/sta# for this facility.
  • CROSS-REFERENCE:  4^ARF
    1)= S ^DIC(4,"ARF",$E(X,1,30),DA(1),DA)=""
    2)= K ^DIC(4,"ARF",$E(X,1,30),DA(1),DA)
    This x-ref used by F4^XUAF4 API.
  • CROSS-REFERENCE:  4^ARFM^MUMPS
    1)= S ^DIC(4,"ARFM",DA(1),X)=""
    2)= K ^DIC(4,"ARFM",DA(1),X)
    This x-ref used by F4^XUAF4 API.
.07 DEACTIVATED FACILITY / STA # 0;7 SET
  • '1' FOR DEACTIVATED;

  • LAST EDITED:  JUN 13, 2000
  • HELP-PROMPT:  Flags deactivated facilities and/or station numbers.
  • CROSS-REFERENCE:  4^AI^MUMPS
    1)= S ^DIC(4,"AI",DA(1),DA)=""
    2)= K ^DIC(4,"AI",DA(1),DA)
    This x-ref used by F4^XUAF4 API.
.08 ACTIVATED FACILITY 0;8 SET
  • '1' FOR ACTIVATED;

  • LAST EDITED:  JUN 06, 2000
  • HELP-PROMPT:  Flags activated facilities for EFFECTIVE DATE.
1 STREET ADDR. 1 (CHANGED FROM) 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<2) X
  • LAST EDITED:  JUN 10, 2016
  • HELP-PROMPT:  Answer must be 2-40 characters in length.
  • DESCRIPTION:  
    If STREET ADDR. 1 changed, this field holds old value.
1.1 STREET ADDR. 2 (CHANGED FROM) 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<2) X
  • LAST EDITED:  JUN 10, 2016
  • HELP-PROMPT:  Answer must be 2-40 characters in length.
  • DESCRIPTION:  
    If STREET ADDR. 2 changed, this field holds old value.
1.2 CITY (CHANGED FROM) 1;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<2) X
  • LAST EDITED:  JUN 10, 2016
  • HELP-PROMPT:  Answer must be 2-40 characters in length.
  • DESCRIPTION:  
    If CITY changed, this field holds old value.
1.3 STATE (CHANGED FROM) 1;4 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  JUN 10, 2016
  • HELP-PROMPT:  Enter the state.
  • DESCRIPTION:  
    If STATE changed, this field holds old value.
1.4 ZIP (CHANGED FROM) 1;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
  • LAST EDITED:  JUN 10, 2016
  • HELP-PROMPT:  Enter ZIP code or ZIP + 4, 5-10 characters in length.
  • DESCRIPTION:  
    If ZIP changed, this field holds old value.
Info |  Details