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

Package: Integrated Billing

IIV RESPONSE(#365)-->365.02-->365.26

Sub-Field: 365.26


Information

Parent File Name Number Package
365.02 CONTACT INFORMATION 365.26 Integrated Billing

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:  365.26^B
    1)= S ^IBCN(365,DA(2),2,DA(1),6,"B",$E(X,1,30),DA)=""
    2)= K ^IBCN(365,DA(2),2,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 13, 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:  DEC 04, 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:  
    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 IIV RESPONSE File
  • CROSS-REFERENCE:  ^^TRIGGER^365.26^1
    1)= X ^DD(365.26,.03,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBCN(365,D0,2,D1,6,D2,1)):^(1),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$P(^IBCN(365,DA(2),2,DA(1),6,DA,0),U,3) X ^DD(365.26,.03,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S X=($P(^IBCN(365,DA(2),2,DA(1),6,DA,0),U,3)'=$E($P($G(^IBCN(365,DA(2),2,DA(1),6,DA,1)),U),1,30))
    1.4)= S DIH=$G(^IBCN(365,DIV(0),2,DIV(1),6,DIV(2),1)),DIV=X S $P(^(1),U,1)=DIV,DIH=365.26,DIG=1 D ^DICR
    2)= X ^DD(365.26,.03,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^IBCN(365,D0,2,D1,6,D2,1)):^(1),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" S DIH=$G(^IBCN(365,DIV(0),2,DIV(1),6,DIV(2),1)),DIV=X S $P(^(1),U,1)=DIV,DIH=365.26,DIG=1
    D ^DICR
    2.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S X=($P(^IBCN(365,DA(2),2,DA(1),6,DA,0),U,3)="")
    CREATE CONDITION)= S X=($P(^IBCN(365,DA(2),2,DA(1),6,DA,0),U,3)'=$E($P($G(^IBCN(365,DA(2),2,DA(1),6,DA,1)),U),1,30))
    CREATE VALUE)= S X=$P(^IBCN(365,DA(2),2,DA(1),6,DA,0),U,3)
    DELETE CONDITION)= S X=($P(^IBCN(365,DA(2),2,DA(1),6,DA,0),U,3)="")
    DELETE VALUE)= @
    FIELD)= COMMUNICATION NUMBER
    Triggers field 365.26/1 if first 30 chars of its value differ from the value in this field. Deletes field 365.26/1 if field 365.26/.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:  DEC 04, 2013
  • HELP-PROMPT:  Answer must be 1-245 characters in length.
  • DESCRIPTION:  
    Phone, fax, email, etc.
  • TECHNICAL DESCR:  
    Replaces field .03. 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 IIV RESPONSE File
  • CROSS-REFERENCE:  ^^TRIGGER^365.26^.03
    1)= X ^DD(365.26,1,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBCN(365,D0,2,D1,6,D2,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$E($P(^IBCN(365,DA(2),2,DA(1),6,DA,1),U),1,30) X ^DD(365.26,1,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S X=($P(^IBCN(365,DA(2),2,DA(1),6,DA,0),U,3)'=$E($P($G(^IBCN(365,DA(2),2,DA(1),6,DA,1)),U),1,30))
    1.4)= S DIH=$G(^IBCN(365,DIV(0),2,DIV(1),6,DIV(2),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=365.26,DIG=.03 D ^DICR
    2)= X ^DD(365.26,1,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^IBCN(365,D0,2,D1,6,D2,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^IBCN(365,DIV(0),2,DIV(1),6,DIV(2),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=365.26,DIG=.03
    D ^DICR
    2.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S X=($P(^IBCN(365,DA(2),2,DA(1),6,DA,1),U)="")
    CREATE CONDITION)= S X=($P(^IBCN(365,DA(2),2,DA(1),6,DA,0),U,3)'=$E($P($G(^IBCN(365,DA(2),2,DA(1),6,DA,1)),U),1,30))
    CREATE VALUE)= S X=$E($P(^IBCN(365,DA(2),2,DA(1),6,DA,1),U),1,30)
    DELETE CONDITION)= S X=($P(^IBCN(365,DA(2),2,DA(1),6,DA,1),U)="")
    DELETE VALUE)= @
    FIELD)= COMMUNICATION NUMBER
    Triggers field 365.26/.03 if its value differs from first 30 chars of the value in this field. Deletes field 365.26/.03 if field 365.26/1 is deleted.
Info |  Details