Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

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