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.03

Package: Integrated Billing

IIV RESPONSE(#365)-->365.03

Sub-Field: 365.03


Information

Parent File Name Number Package
IIV RESPONSE(#365) CONTACT PERSON 365.03 Integrated Billing

Details

Field # Name Loc Type Details
.01 CONTACT PERSON 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>32!($L(X)<1) X
  • LAST EDITED:  JUN 13, 2003
  • HELP-PROMPT:  Answer must be 1-32 characters in length.
  • DESCRIPTION:  
    This is the name of the contact person.
  • CROSS-REFERENCE:  365.03^B
    1)= S ^IBCN(365,DA(1),3,"B",$E(X,1,30),DA)=""
    2)= K ^IBCN(365,DA(1),3,"B",$E(X,1,30),DA)
    Standard "B" cross-reference
.02 COMMUNICATION QUALIFIER #1 0;2 POINTER TO X12 271 CONTACT QUALIFIER FILE (#365.021) X12 271 CONTACT QUALIFIER(#365.021)

  • LAST EDITED:  JUN 03, 2002
  • DESCRIPTION:  
    This field identifies a method of communication, whether by phone or email, etc.
.03 *COMMUNICATION NUMBER #1 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  NOV 20, 2013
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  This is the value of the information defined in the COMMUNICATION QUALIFIER #1 field (field .02). It could be a phone number or email address, etc.
    This field is scheduled for deletion in May 2015.
  • NOTES:  TRIGGERED by the COMMUNICATION NUMBER #1 field of the CONTACT PERSON sub-field of the IIV RESPONSE File
  • CROSS-REFERENCE:  ^^TRIGGER^365.03^1
    1)= X ^DD(365.03,.03,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBCN(365,D0,3,D1,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(1),3,DA,0),U,3) X ^DD(365.03,.03,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=($P(^IBCN(365,DA(1),3,DA,0),U,3)'=$E($P($G(^IBCN(365,DA(1),3,DA,1)),U),1,20))
    1.4)= S DIH=$G(^IBCN(365,DIV(0),3,DIV(1),1)),DIV=X S $P(^(1),U,1)=DIV,DIH=365.03,DIG=1 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=($P(^IBCN(365,DA(1),3,DA,0),U,3)="") I X S X=DIV S Y(1)=$S($D(^IBCN(365,D0,3,D1,1)):^(1),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(365.03,.03,1,1,
    2.4)
    2.4)= S DIH=$G(^IBCN(365,DIV(0),3,DIV(1),1)),DIV=X S $P(^(1),U,1)=DIV,DIH=365.03,DIG=1 D ^DICR
    CREATE CONDITION)= S X=($P(^IBCN(365,DA(1),3,DA,0),U,3)'=$E($P($G(^IBCN(365,DA(1),3,DA,1)),U),1,20))
    CREATE VALUE)= S X=$P(^IBCN(365,DA(1),3,DA,0),U,3)
    DELETE CONDITION)= S X=($P(^IBCN(365,DA(1),3,DA,0),U,3)="")
    DELETE VALUE)= @
    FIELD)= COMMUNICATION NUMBER #1 (LONG)
    Triggers field 365.03/1 if first 20 chars of its value differ from the value in this field. Deletes field 365.03/1 if field 365.03/.03 is deleted.
.04 COMMUNICATION QUALIFIER #2 0;4 POINTER TO X12 271 CONTACT QUALIFIER FILE (#365.021) X12 271 CONTACT QUALIFIER(#365.021)

  • LAST EDITED:  JUN 03, 2002
  • DESCRIPTION:  
    This field identifies a method of communication, whether by phone or email, etc.
.05 *COMMUNICATION NUMBER #2 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  NOV 20, 2013
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  This is the value of the information defined in the COMMUNICATION QUALIFIER #2 field (field .04). It could be a phone number or email address, etc.
    This field is scheduled for deletion in May 2015.
  • NOTES:  TRIGGERED by the COMMUNICATION NUMBER #2 field of the CONTACT PERSON sub-field of the IIV RESPONSE File
  • CROSS-REFERENCE:  ^^TRIGGER^365.03^2
    1)= X ^DD(365.03,.05,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBCN(365,D0,3,D1,2)):^(2),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$P(^IBCN(365,DA(1),3,DA,0),U,5) X ^DD(365.03,.05,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=($P(^IBCN(365,DA(1),3,DA,0),U,5)'=$E($P($G(^IBCN(365,DA(1),3,DA,2)),U),1,20))
    1.4)= S DIH=$G(^IBCN(365,DIV(0),3,DIV(1),2)),DIV=X S $P(^(2),U,1)=DIV,DIH=365.03,DIG=2 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=($P(^IBCN(365,DA(1),3,DA,0),U,5)="") I X S X=DIV S Y(1)=$S($D(^IBCN(365,D0,3,D1,2)):^(2),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(365.03,.05,1,1,
    2.4)
    2.4)= S DIH=$G(^IBCN(365,DIV(0),3,DIV(1),2)),DIV=X S $P(^(2),U,1)=DIV,DIH=365.03,DIG=2 D ^DICR
    CREATE CONDITION)= S X=($P(^IBCN(365,DA(1),3,DA,0),U,5)'=$E($P($G(^IBCN(365,DA(1),3,DA,2)),U),1,20))
    CREATE VALUE)= S X=$P(^IBCN(365,DA(1),3,DA,0),U,5)
    DELETE CONDITION)= S X=($P(^IBCN(365,DA(1),3,DA,0),U,5)="")
    DELETE VALUE)= @
    FIELD)= COMMUNICATION NUMBER #2 (LONG)
    Triggers field 365.03/2 if first 20 chars of its value differ from the value in this field. Deletes field 365.03/2 if field 365.03/.05 is deleted.
.06 COMMUNICATION QUALIFIER #3 0;6 POINTER TO X12 271 CONTACT QUALIFIER FILE (#365.021) X12 271 CONTACT QUALIFIER(#365.021)

  • LAST EDITED:  JUN 03, 2002
  • DESCRIPTION:  
    This field identifies a method of communication, whether by phone or email, etc.
.07 *COMMUNICATION NUMBER #3 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  NOV 20, 2013
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  This is the value of the information defined in the COMMUNICATION QUALIFIER #3 field (field .06). It could be a phone number or email address, etc.
    This field is scheduled for deletion in May 2015.
  • NOTES:  TRIGGERED by the COMMUNICATION NUMBER #3 field of the CONTACT PERSON sub-field of the IIV RESPONSE File
  • CROSS-REFERENCE:  ^^TRIGGER^365.03^3
    1)= X ^DD(365.03,.07,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBCN(365,D0,3,D1,3)):^(3),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$P(^IBCN(365,DA(1),3,DA,0),U,7) X ^DD(365.03,.07,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=($P(^IBCN(365,DA(1),3,DA,0),U,7)'=$E($P($G(^IBCN(365,DA(1),3,DA,3)),U),1,20))
    1.4)= S DIH=$G(^IBCN(365,DIV(0),3,DIV(1),3)),DIV=X S $P(^(3),U,1)=DIV,DIH=365.03,DIG=3 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=($P(^IBCN(365,DA(1),3,DA,0),U,7)="") I X S X=DIV S Y(1)=$S($D(^IBCN(365,D0,3,D1,3)):^(3),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(365.03,.07,1,1,
    2.4)
    2.4)= S DIH=$G(^IBCN(365,DIV(0),3,DIV(1),3)),DIV=X S $P(^(3),U,1)=DIV,DIH=365.03,DIG=3 D ^DICR
    CREATE CONDITION)= S X=($P(^IBCN(365,DA(1),3,DA,0),U,7)'=$E($P($G(^IBCN(365,DA(1),3,DA,3)),U),1,20))
    CREATE VALUE)= S X=$P(^IBCN(365,DA(1),3,DA,0),U,7)
    DELETE CONDITION)= S X=($P(^IBCN(365,DA(1),3,DA,0),U,7)="")
    DELETE VALUE)= @
    FIELD)= COMMUNICATION NUMBER #3 (LONG)
    Triggers field 365.03/3 if first 20 chars of its value differ from the value in this field. Deletes field 365.03/3 if field 365.03/.07 is deleted.
1 COMMUNICATION NUMBER #1 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:  
    This is the value of the information defined in the COMMUNICATION QUALIFIER #1 field (field .02). It could be a phone number or email address, etc.
  • TECHNICAL DESCR:  
    Replaces field .03.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the *COMMUNICATION NUMBER #1 field of the CONTACT PERSON sub-field of the IIV RESPONSE File
  • CROSS-REFERENCE:  ^^TRIGGER^365.03^.03
    1)= X ^DD(365.03,1,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBCN(365,D0,3,D1,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(1),3,DA,1),U),1,20) X ^DD(365.03,1,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=($P(^IBCN(365,DA(1),3,DA,0),U,3)'=$E($P(^IBCN(365,DA(1),3,DA,1),U),1,20))
    1.4)= S DIH=$G(^IBCN(365,DIV(0),3,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=365.03,DIG=.03 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=($P(^IBCN(365,DA(1),3,DA,1),U)="") I X S X=DIV S Y(1)=$S($D(^IBCN(365,D0,3,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(365.03,1,1,1,2.4)
    2.4)= S DIH=$G(^IBCN(365,DIV(0),3,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=365.03,DIG=.03 D ^DICR
    CREATE CONDITION)= S X=($P(^IBCN(365,DA(1),3,DA,0),U,3)'=$E($P(^IBCN(365,DA(1),3,DA,1),U),1,20))
    CREATE VALUE)= S X=$E($P(^IBCN(365,DA(1),3,DA,1),U),1,20)
    DELETE CONDITION)= S X=($P(^IBCN(365,DA(1),3,DA,1),U)="")
    DELETE VALUE)= @
    FIELD)= COMMUNICATION NUMBER #1
    Triggers field 365.03/.03 if its value differs from first 20 chars of the value in this field. Deletes field 365.03/.03 if field 365.03/1 is deleted.
2 COMMUNICATION NUMBER #2 2;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:  
    This is the value of the information defined in the COMMUNICATION QUALIFIER #2 field (field .04). It could be a phone number or email address, etc.
  • TECHNICAL DESCR:  
    Replaces field .05.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the *COMMUNICATION NUMBER #2 field of the CONTACT PERSON sub-field of the IIV RESPONSE File
  • CROSS-REFERENCE:  ^^TRIGGER^365.03^.05
    1)= X ^DD(365.03,2,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBCN(365,D0,3,D1,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$E($P(^IBCN(365,DA(1),3,DA,2),U),1,20) X ^DD(365.03,2,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=($P(^IBCN(365,DA(1),3,DA,0),U,5)'=$E($P(^IBCN(365,DA(1),3,DA,2),U),1,20))
    1.4)= S DIH=$G(^IBCN(365,DIV(0),3,DIV(1),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=365.03,DIG=.05 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=($P(^IBCN(365,DA(1),3,DA,2),U)="") I X S X=DIV S Y(1)=$S($D(^IBCN(365,D0,3,D1,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(365.03,2,1,1,2.4)
    2.4)= S DIH=$G(^IBCN(365,DIV(0),3,DIV(1),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=365.03,DIG=.05 D ^DICR
    CREATE CONDITION)= S X=($P(^IBCN(365,DA(1),3,DA,0),U,5)'=$E($P(^IBCN(365,DA(1),3,DA,2),U),1,20))
    CREATE VALUE)= S X=$E($P(^IBCN(365,DA(1),3,DA,2),U),1,20)
    DELETE CONDITION)= S X=($P(^IBCN(365,DA(1),3,DA,2),U)="")
    DELETE VALUE)= @
    FIELD)= COMMUNICATION NUMBER #2
    Triggers field 365.03/.05 if its value differs from first 20 chars of the value in this field. Deletes field 365.03/.05 if field 365.03/2 is deleted.
3 COMMUNICATION NUMBER #3 3;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:  
    This is the value of the information defined in the COMMUNICATION QUALIFIER #3 field (field .06). It could be a phone number or email address, etc.
  • TECHNICAL DESCR:  
    Replaces field .07.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the *COMMUNICATION NUMBER #3 field of the CONTACT PERSON sub-field of the IIV RESPONSE File
  • CROSS-REFERENCE:  ^^TRIGGER^365.03^.07
    1)= X ^DD(365.03,3,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBCN(365,D0,3,D1,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=$E($P(^IBCN(365,DA(1),3,DA,3),U),1,20) X ^DD(365.03,3,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=($P(^IBCN(365,DA(1),3,DA,0),U,7)'=$E($P(^IBCN(365,DA(1),3,DA,3),U),1,20))
    1.4)= S DIH=$G(^IBCN(365,DIV(0),3,DIV(1),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=365.03,DIG=.07 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=($P(^IBCN(365,DA(1),3,DA,3),U)="") I X S X=DIV S Y(1)=$S($D(^IBCN(365,D0,3,D1,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" X ^DD(365.03,3,1,1,2.4)
    2.4)= S DIH=$G(^IBCN(365,DIV(0),3,DIV(1),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=365.03,DIG=.07 D ^DICR
    CREATE CONDITION)= S X=($P(^IBCN(365,DA(1),3,DA,0),U,7)'=$E($P(^IBCN(365,DA(1),3,DA,3),U),1,20))
    CREATE VALUE)= S X=$E($P(^IBCN(365,DA(1),3,DA,3),U),1,20)
    DELETE CONDITION)= S X=($P(^IBCN(365,DA(1),3,DA,3),U)="")
    DELETE VALUE)= @
    FIELD)= COMMUNICATION NUMBER #3
    Triggers field 365.03/.07 if its value differs from first 20 chars of the value in this field. Deletes field 365.03/.07 if field 365.03/3 is deleted.
Info |  Details