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

Package: Lexicon Utility

CHARACTER POSITIONS(#757.033)-->757.332

Sub-Field: 757.332


Information

Parent File Name Number Package
CHARACTER POSITIONS(#757.033) NAME/TITLE 757.332 Lexicon Utility

Details

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

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:3101001>X X
  • LAST EDITED:  MAR 28, 2012
  • HELP-PROMPT:  Enter a date, not earlier than Oct 1, 2010.
  • DESCRIPTION:  
    This is the date that the name or title became effective.
  • CROSS-REFERENCE:  757.332^B
    1)= S ^LEX(757.033,DA(1),2,"B",$E(X,1,30),DA)=""
    2)= K ^LEX(757.033,DA(1),2,"B",$E(X,1,30),DA)
    ^LEX(757.033,IEN1,2,"B",DATE,IEN2) - Where IEN1 is the file level internal entry number, DATE is the effective date of the Name/Title, and IEN2 is the NAME/TITLE sub-file internal entry number where the Name or Title is
    stored.
.02 NAME/TITLE 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  MAR 20, 2012
  • HELP-PROMPT:  Enter a name or title, 1-245 characters in length.
  • FIELD INDEX:  NAME (#1141) REGULAR IR LOOKUP & SORTING WHOLE FILE (#757.033)
    Short Descr: NAME
    Description: ^LEX(757.033,"NAME",NAME,IEN1,IEN2) - Where NAME is the 63-character uppercase Name or Title of a character position, IEN1 is the file level internal entry number and IEN2 is the NAME/TITLE sub-file internal entry
    number where the Name or Title is stored.
    Set Logic: S ^LEX(757.033,"NAME",$E(X,1,63),DA(1),DA)=""
    Kill Logic: K ^LEX(757.033,"NAME",$E(X,1,63),DA(1),DA)
    Whole Kill: K ^LEX(757.033,"NAME")
    X(1): NAME/TITLE (757.332,.02) (Subscr 1) (Len 63) (forwards)
    Transform (Storage): S X=$$UP^XLFSTR(X)
  • FIELD INDEX:  C (#1143) REGULAR IR LOOKUP & SORTING
    Short Descr: Name or Title
    Description: ^LEX(757.033,IEN1,2,"C",NAME,IEN2) - Where IEN1 is the file level internal entry number, NAME is a 63 character, uppercase Name or Title for the character position, and IEN2 is the NAME/TITLE sub-file internal entry
    number where the Name or Title is stored.
    Set Logic: S ^LEX(757.033,DA(1),2,"C",$E(X,1,63),DA)=""
    Kill Logic: K ^LEX(757.033,DA(1),2,"C",$E(X,1,63),DA)
    Whole Kill: K ^LEX(757.033,DA(1),2,"C")
    X(1): NAME/TITLE (757.332,.02) (Subscr 1) (Len 63) (forwards)
    Transform (Storage): S X=$$UP^XLFSTR($E(X,1,63))
Info |  Details