Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All
Print Page as PDF
Global: ^HL(771.9

Package: Health Level Seven

Global: ^HL(771.9


Information

FileMan FileNo FileMan Filename Package
771.9 HL7 DEGREE Health Level Seven

Description

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[12.1]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Health Level Seven 1 HL7 VERSION(#771.5)[#771.93(.01)]    

Fields, Total: 5

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>70!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  MAY 16, 2003
  • HELP-PROMPT:  The HL7 educational degree (e.g., ASSOCIATE OF ARTS). Answer must be 3-70 characters in length
  • DESCRIPTION:  
    The HL7 educational degree (e.g., ASSOCIATE OF ARTS)
  • CROSS-REFERENCE:  771.9^B
    1)= S ^HL(771.9,"B",$E(X,1,70),DA)=""
    2)= K ^HL(771.9,"B",$E(X,1,70),DA)
2 ABBREVIATION 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<2)!'(X'?1P.E) X
  • LAST EDITED:  MAY 16, 2003
  • HELP-PROMPT:  The HL7 educational degree abbreviated value (e.g. AA or PharmD, etc.). Answer must be 2-10 characters in length
  • DESCRIPTION:  
    The HL7 educational degree abbreviated value (e.g. AA or PharmD, etc.)
  • CROSS-REFERENCE:  771.9^D
    1)= S ^HL(771.9,"D",$E(X,1,30),DA)=""
    2)= K ^HL(771.9,"D",$E(X,1,30),DA)
3 VERSION V;0 POINTER Multiple #771.93 771.93
50 HL7 STANDARD COMPUTED

  • MUMPS CODE:  X ^DD(771.9,50,9.5) S X=$S(Y(771.9,50,2):Y(771.9,50,3),Y(771.9,50,4):X)
    9.2 = F D=0:0 S (D,D1)=$O(^HL(771.9,D0,"V","B",DICOB,D)) Q:D'>0  I $D(^HL(771.9,D0,"V",D,0))#2 S X=$P(^(0),U) S:$D(^HL(771.5,+X,0)) X=$P(^(0),U) S:X'?." " Y(771.9,50,1)=Y(771.9,50,1)+1 Q:'$D(D)  S D=D1
    9.3 = S I(1)="""V""",J(1)=771.93 N DICOB S DICOB="" F  S DICOB=$O(^HL(771.9,D0,"V","B",DICOB)) Q:DICOB=""   X ^DD(771.9,50,9.2) Q:'$D(D)
    9.4 = S Y(771.9,50,9.1,81)=$G(D1) X ^DD(771.9,50,9.3):D0>0 S X="" S D1=Y(771.9,50,9.1,81)
    9.5 = S Y(771.9,50,1)="" X ^DD(771.9,50,9.4) S X=+Y(771.9,50,1)>0,Y(771.9,50,2)=$G(X) S X="YES",Y(771.9,50,3)=$G(X) S X=1,Y(771.9,50,4)=$G(X) S X="NO"
  • ALGORITHM:  $S(COUNT(VERSION)>0:"YES",1:"NO")
  • LAST EDITED:  MAY 14, 2003
  • TECHNICAL DESCR:  Entries that originate from the HL7 standard, user-defined DEGREE table 0360, will have a version number in the VERSION field and consequently will have a value of "YES" in this field. Local entries not part of the HL7
    standard will not have a version number in the VERSION field and consequently will have a value of "NO" in this field.
51 USING APPLICATION 51;0 Multiple #771.9051 771.9051

  • LAST EDITED:  MAY 15, 2003
  • DESCRIPTION:  
    The application that has specific use for this HL7 DEGREE VALUE.
  • TECHNICAL DESCR:  
    Applications that have a need to select a subset of the HL7 DEGREE file can identify this entry as part of their subset.
Info |  Desc |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All