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

Package: Lexicon Utility

CHARACTER POSITIONS(#757.033)-->757.043

Sub-Field: 757.043


Information

Parent File Name Number Package
CHARACTER POSITIONS(#757.033) DESCRIPTION 757.043 Lexicon Utility

Details

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

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:3101001>X X
  • LAST EDITED:  MAY 08, 2012
  • HELP-PROMPT:  Enter a date, not earlier than Oct 1, 2010.
  • DESCRIPTION:  
    This is the date the description became effective.
  • CROSS-REFERENCE:  757.043^B
    1)= S ^LEX(757.033,DA(1),3,"B",$E(X,1,30),DA)=""
    2)= K ^LEX(757.033,DA(1),3,"B",$E(X,1,30),DA)
    ^LEX(757.033,IEN1,3,"B",DATE,IEN2) - Where IEN1 is the file level internal entry number, DATE is the effective date of the Description, and IEN2 is the DESCRIPTION sub-file internal entry number where the Description is
    stored.
.02 DESCRIPTION 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  MAR 28, 2012
  • HELP-PROMPT:  Enter a description, 1-245 characters in length.
  • DESCRIPTION:  This is the description or definition of the character position identified by the code fragment.
    Note:  ICD diagnosis (disease, syndrome, finding, injury or symptom) characters come with descriptions.  ICD procedure (laboratory, diagnostic or therapeutic activities) characters come with definitions.
  • FIELD INDEX:  C (#521)    REGULAR    IR    LOOKUP & SORTING
    Short Descr:  Description
    Description:  ^LEX(757.033,IEN1,3,"C",DESC,IEN2) - Where IEN1 is the file level internal entry number, DESC is a 63 character, uppercase Description for the character position, and IEN2 is the DESCRIPTION sub-file internal entry
    number where the Description is stored.
    Set Logic:  S ^LEX(757.033,DA(1),3,"C",$E(X,1,63),DA)=""
    Kill Logic:  K ^LEX(757.033,DA(1),3,"C",$E(X,1,63),DA)
    Whole Kill:  K ^LEX(757.033,DA(1),3,"C")
    X(1):  DESCRIPTION  (757.043,.02)  (Subscr 1)  (Len 63)  (forwards)
    Transform (Storage):  S X=$$UP^XLFSTR(X)







    



Info | 
Details | 
All