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

Package: Integrated Billing

EDI TEST CLAIM STATUS MESSAGE(#361.4)-->361.41

Sub-Field: 361.41


Information

Parent File Name Number Package
EDI TEST CLAIM STATUS MESSAGE(#361.4) TRANSMIT DATE/TIME 361.41 Integrated Billing

Details

Field # Name Loc Type Details
.01 TRANSMIT DATE/TIME 0;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 18, 2006
  • HELP-PROMPT:  Enter the date and time the claim was transmitted as test.
  • DESCRIPTION:  
    This is the date and time the claim was transmitted as test.
  • CROSS-REFERENCE:  361.41^B
    1)= S ^IBM(361.4,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^IBM(361.4,DA(1),1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^361.4^.02
    1)= X ^DD(361.41,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^IBM(361.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIV,X=$P(X,".",1) S DIH=$G(^IBM(361.4,DIV(0),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=361.4,DIG=.02 D
    ^DICR
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X S Y(1)=$S($D(^IBM(361.4,D0,0)):^(0),1:"") S X=Y(0),X=$P(X,".",1) S X=X>$P(Y(1),U,2)
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^IBM(361.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$$LASTDT^IBCEPTU(.DA) X ^DD(361.41,.01,1,2,2.4)
    2.4)= S DIH=$G(^IBM(361.4,DIV(0),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=361.4,DIG=.02 D ^DICR
    CREATE CONDITION)= DATE(TRANSMIT DATE)>LAST TRANSMIT DATE
    CREATE VALUE)= DATE(TRANSMIT DATE)
    DELETE VALUE)= S X=$$LASTDT^IBCEPTU(.DA)
    DIC)=
    FIELD)= LAST TRANSMIT DATE
  • CROSS-REFERENCE:  361.41^ALTD^MUMPS
    1)= S ^IBM(361.4,DA(1),1,"ALTD",X\1,DA)=""
    2)= K ^IBM(361.4,DA(1),1,"ALTD",X\1,DA)
    3)= Do not delete
    This xref is used to determine the last transmit date as it is date without time.
  • CROSS-REFERENCE:  361.4^ATD
    1)= S ^IBM(361.4,"ATD",$E(X,1,30),DA(1),DA)=""
    2)= K ^IBM(361.4,"ATD",$E(X,1,30),DA(1),DA)
.02 BATCH # 0;2 POINTER TO EDI TRANSMISSION BATCH FILE (#364.1) EDI TRANSMISSION BATCH(#364.1)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,14)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 26, 2005
  • HELP-PROMPT:  Enter the batch # this claim was transmitted in.
  • DESCRIPTION:  
    This is the batch # this claim was transmitted in.
  • SCREEN:  S DIC("S")="I $P(^(0),U,14)"
  • EXPLANATION:  Must be flagged as a test batch
  • CROSS-REFERENCE:  361.4^C
    1)= S ^IBM(361.4,"C",$E(X,1,30),DA(1),DA)=""
    2)= K ^IBM(361.4,"C",$E(X,1,30),DA(1),DA)
    3)= Do not delete
.03 TRANSMITTED BY 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 26, 2005
  • HELP-PROMPT:  Enter the user who transmitted the claim as test.
  • DESCRIPTION:  
    This is the user who transmitted the claim as test.
.04 CURRENT PAYER SEQUENCE 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>3)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 27, 2005
  • HELP-PROMPT:  Type a Number between 1 and 3, 0 Decimal Digits
  • DESCRIPTION:  
    This is the current payer sequence when this claim was resubmitted.
Info |  Details