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

Package: Registration

PATIENT(#2)-->2.312-->2.322-->2.3226

Sub-Field: 2.3226


Information

Parent File Name Number Package
2.322 CONTACT INFORMATION 2.3226 Registration

Details

Field # Name Loc Type Details
.01 SEQUENCE 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  SEP 10, 2009
  • HELP-PROMPT:  Type a number between 1 and 99999, 0 Decimal Digits.
  • DESCRIPTION:  
    Sequential entry number.
  • TECHNICAL DESCR:  
    Sequential number of G2O.CTD segment.
  • CROSS-REFERENCE:  2.3226^B
    1)= S ^DPT(DA(3),.312,DA(2),6,DA(1),6,"B",$E(X,1,30),DA)=""
    2)= K ^DPT(DA(3),.312,DA(2),6,DA(1),6,"B",$E(X,1,30),DA)
.02 NAME 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>98!($L(X)<1) X
  • LAST EDITED:  JUL 24, 2009
  • HELP-PROMPT:  Answer must be 1-98 characters in length.
  • DESCRIPTION:  
    Name of the contact.
  • TECHNICAL DESCR:  
    Source: 271 HL7 message, G2O.CTD.2 - combined data from CTD.2.5 (prefix), CTD.2.1.1 (last name), CTD.2.2 (first name), CTD.2.3 (middle name), CTD.2.4 (suffix), and CTD.2.6 (degree).
.03 *COMMUNICATION NUMBER 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  NOV 20, 2013
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    Phone, fax, email, etc.
    This field is scheduled for deletion in May 2015.
  • TECHNICAL DESCR:  
    This field has been moved to 2.3226/1 Source: 271 HL7 message, G2O.CTD.5.1
  • NOTES:  TRIGGERED by the COMMUNICATION NUMBER field of the CONTACT INFORMATION sub-field of the ELIGIBILITY/BENEFIT sub-field of the INSURANCE TYPE sub-field of the PATIENT File
  • CROSS-REFERENCE:  ^^TRIGGER^2.3226^1
    1)= X ^DD(2.3226,.03,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,6,D2,6,D3,1)):^(1),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(2.3226,.03,1,1,1.1) X ^DD(2.3226,.03,1,1,1.4)
    1.1)= S X=DIV S X=$P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,0),U,3)
    1.3)= K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(0)=X S X=($P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,0),U,3)'=$E($P($G(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,1)),U),1,30))
    1.4)= S DIH=$G(^DPT(DIV(0),.312,DIV(1),6,DIV(2),6,DIV(3),1)),DIV=X S $P(^(1),U,1)=DIV,DIH=2.3226,DIG=1 D ^DICR
    2)= X ^DD(2.3226,.03,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,6,D2,6,D3,1)):^(1),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2.3226,.03,1,1,2.4)
    2.3)= K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(0)=X S X=($P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,0),U,3)="")
    2.4)= S DIH=$G(^DPT(DIV(0),.312,DIV(1),6,DIV(2),6,DIV(3),1)),DIV=X S $P(^(1),U,1)=DIV,DIH=2.3226,DIG=1 D ^DICR
    CREATE CONDITION)= S X=($P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,0),U,3)'=$E($P($G(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,1)),U),1,30))
    CREATE VALUE)= S X=$P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,0),U,3)
    DELETE CONDITION)= S X=($P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,0),U,3)="")
    DELETE VALUE)= @
    FIELD)= COMMUNICATION NUMBER (LONG)
    Triggers field 2.3226/1 if first 30 chars of its value differ from the value in this field. Deletes field 2.3226/1 if field 2.3226/.03 is deleted.
.04 COMMUNICATION QUALIFIER 0;4 POINTER TO X12 271 CONTACT QUALIFIER FILE (#365.021) X12 271 CONTACT QUALIFIER(#365.021)

  • LAST EDITED:  MAR 06, 2013
  • HELP-PROMPT:  Select type of communication number.
  • DESCRIPTION:  
    Code describing type of communication number.
  • TECHNICAL DESCR:  
    Source: 271 HL7 message, G2O.CTD.5.9
1 COMMUNICATION NUMBER 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  NOV 20, 2013
  • HELP-PROMPT:  Answer must be 1-245 characters in length.
  • DESCRIPTION:  
    Phone, fax, email, URL
  • TECHNICAL DESCR:  
    Replaces field .03. Source: 271 HL7 message, G2O.CTD.5.1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the *COMMUNICATION NUMBER field of the CONTACT INFORMATION sub-field of the ELIGIBILITY/BENEFIT sub-field of the INSURANCE TYPE sub-field of the PATIENT File
  • CROSS-REFERENCE:  ^^TRIGGER^2.3226^.03
    1)= X ^DD(2.3226,1,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,6,D2,6,D3,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(2.3226,1,1,1,1.1) X ^DD(2.3226,1,1,1,1.4)
    1.1)= S X=DIV S X=$E($P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,1),U),1,30)
    1.3)= K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(0)=X S X=($P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,0),U,3)'=$E($P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,1),U),1,30))
    1.4)= S DIH=$G(^DPT(DIV(0),.312,DIV(1),6,DIV(2),6,DIV(3),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=2.3226,DIG=.03 D ^DICR
    2)= X ^DD(2.3226,1,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,6,D2,6,D3,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(2.3226,1,1,1,2.4)
    2.3)= K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(0)=X S X=($P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,1),U)="")
    2.4)= S DIH=$G(^DPT(DIV(0),.312,DIV(1),6,DIV(2),6,DIV(3),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=2.3226,DIG=.03 D ^DICR
    CREATE CONDITION)= S X=($P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,0),U,3)'=$E($P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,1),U),1,30))
    CREATE VALUE)= S X=$E($P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,1),U),1,30)
    DELETE CONDITION)= S X=($P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,1),U)="")
    DELETE VALUE)= @
    FIELD)= COMMUNICATION NUMBER
    Triggers field 2.3226/.03 if its value differs from first 30 chars of the value in this field. Deletes field 2.3226/.03 if field 2.3226/1 is deleted.
Info |  Details