Sub-Field: 361.42

Parent File	Name	Number	Package
EDI TEST CLAIM STATUS MESSAGE(#361.4)	MESSAGE	361.42	Integrated Billing

Details

Field #	Name	Loc	Type	Details
.01	MESSAGE RECEIVED DATE/TIME	0;1	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 26, 2005` HELP-PROMPT: `Enter the date/time the message was received.` DESCRIPTION: `This is the date/time the message was received.` CROSS-REFERENCE: `361.42^B` `1)= S ^IBM(361.4,DA(1),2,"B",$E(X,1,30),DA)=""` `2)= K ^IBM(361.4,DA(1),2,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `361.4^ARD` `1)= S ^IBM(361.4,"ARD",$E(X,1,30),DA(1),DA)=""` `2)= K ^IBM(361.4,"ARD",$E(X,1,30),DA(1),DA)` `3)= Do not delete`
.02	MESSAGE SEVERITY	0;2	SET	'R' FOR REJECTION; 'I' FOR INFORMATION/WARNING; LAST EDITED: `JAN 26, 2005` HELP-PROMPT: `Enter the code that corresponds to the severity of the message.` DESCRIPTION: `This is the code that corresponds to the severity of the message.`
.03	RETURN MESSAGE ID	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `JAN 27, 2005` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `This is the VistA mailman message # that the status message was received in.` CROSS-REFERENCE: `361.42^AC` `1)= S ^IBM(361.4,DA(1),2,"AC",$E(X,1,30),DA)=""` `2)= K ^IBM(361.4,DA(1),2,"AC",$E(X,1,30),DA)` `3)= Do not delete`
1	MESSAGE	1;0	WORD-PROCESSING #361.421	DESCRIPTION: `This field contains the formatted version of the status message received.` LAST EDITED: `JAN 26, 2005` HELP-PROMPT: `Enter the status message.` DESCRIPTION: `This is the status message received.`