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

Package: Kernel

NEW PERSON(#200)-->200.05

Sub-Field: 200.05


Information

Parent File Name Number Package
NEW PERSON(#200) PERSON CLASS 200.05 Kernel

Details

Field # Name Loc Type Details
.01 Person Class 0;1 POINTER TO PERSON CLASS FILE (#8932.1) PERSON CLASS(#8932.1)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,4)'[""i""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 03, 1996
  • DESCRIPTION:  
    This is a pointer to the Person class file.
  • SCREEN:  S DIC("S")="I $P(^(0),U,4)'[""i"""
  • EXPLANATION:  Don't allow Inactive entries to be selected.
  • DELETE TEST:  1,0)= I 1 ;Don't allow delete
  • CROSS-REFERENCE:  200.05^B
    1)= S ^VA(200,DA(1),"USC1","B",$E(X,1,30),DA)=""
    2)= K ^VA(200,DA(1),"USC1","B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  200.05^AC^MUMPS
    1)= D SET01^XUA4A72
    2)= Q
    3)= Special Trigger
    This X-ref triggers the current date into the Effective Date field.
2 Effective Date 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  N %DT,% S %DT="EX",%=$O(^VA(200,D0,"USC1",DA),-1) S:% %=$P($G(^(%,0)),U,2) S:% %DT(0)=% D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 24, 2003
  • HELP-PROMPT:  The date that this Person Class became effective.
  • DESCRIPTION:  
    This field is trigger by adding a new person class.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  200.05^AD
    1)= S ^VA(200,DA(1),"USC1","AD",$E(X,1,30),DA)=""
    2)= K ^VA(200,DA(1),"USC1","AD",$E(X,1,30),DA)
    3)= Don't Delete
    This X-ref is by date and allows us to find the most current entry in the file.
  • CROSS-REFERENCE:  200.05^AE^MUMPS
    1)= D SET2^XUA4A72
    2)= D KILL2^XUA4A72
    3)= Special Trigger
    This Special X-ref sets the Expiration date of the previous person class entry to the current record's Effective date.
3 Expiration Date 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y I Y<1!'$$ENT^XUA4A73(.DA,X) K X
  • LAST EDITED:  MAR 16, 2007
  • HELP-PROMPT:  Last active date. After this date the Person Class is no longer valid.
  • DESCRIPTION:  This field is the date after which this class becomes inactive. This field must be not less than the EFFECTIVE DATE and not greater than the DATE INACTIVATED field(#4) of the Person Class entry in the PERSON CLASS
    file(#8932.1).
    It will get triggered if a new Person Class is entered or someone edits the field to inactivate the class.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
Info |  Details