STANDARD DATA DICTIONARY #443.76 -- EDI ERROR CODES FILE 3/24/25 PAGE 1
STORED IN ^PRC(443.76, (18 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.1)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file holds list of REJECT REASON CODEs that are sent from Austin when a PHA or an RFQ is rejected.
This file is pointed by a field (#9) in EDI STATUS FILE (#443.75).
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
POINTED TO BY: REJECT REASON CODE field (#15) of the EDI SENDER File (#443.75)
CROSS
REFERENCED BY: ERROR CODE(B)
443.76,.01 ERROR CODE 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUN 03, 1996
HELP-PROMPT: Enter Reject Reason Code (1-2 characters).
DESCRIPTION:
This field holds error codes for "ACT", "PHA" or "PRJ" transactions from Austin.
TECHNICAL DESCR: It is 2 character alphanumeric field. This field is being pointed to from the EDI STATUS FILE
(#443.75) by the REJECT REASON CODE (#9 in sub-file #443.755) field.
CROSS-REFERENCE: 443.76^B
1)= S ^PRC(443.76,"B",$E(X,1,30),DA)=""
2)= K ^PRC(443.76,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^443.76^2
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(443.76,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S
DIU=X K Y S X=DIV S X=DUZ X ^DD(443.76,.01,1,2,1.4)
1.4)= S DIH=$S($D(^PRC(443.76,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=443.76,DIG=2 D ^DI
CR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE VALUE)= S X=DUZ
DELETE VALUE)= NO EFFECT
FIELD)= PERSON ENTERING CODE
This will automatically set the PERSON ENTERING CODE field whenever someone enters an ERROR CODE.
CROSS-REFERENCE: ^^TRIGGER^443.76^3
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(443.76,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S
DIU=X K Y X ^DD(443.76,.01,1,3,1.1) X ^DD(443.76,.01,1,3,1.4)
1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
1.4)= S DIH=$S($D(^PRC(443.76,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=443.76,DIG=3 D ^DI
CR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE VALUE)= NOW
DELETE VALUE)= NO EFFECT
FIELD)= DATE AND TIME ENTERED
This will automatically set the DATE AND TIME ENTERED field whenever the ERROR CODE field is set.
443.76,1 REJECT REASON 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<3) X
LAST EDITED: JUN 03, 1996
HELP-PROMPT: Enter English phrase for the ERROR CODE.
DESCRIPTION:
This is a phrase in English that describes the ERROR CODE in the .01 field.
443.76,2 PERSON ENTERING CODE 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAY 17, 1996
HELP-PROMPT: Please enter the name of the person who entered this ERROR CODE.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the ERROR CODE field of the EDI ERROR CODES File
443.76,3 DATE AND TIME ENTERED 0;4 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 17, 1996
HELP-PROMPT: Please enter the date and time this ERROR CODE was entered/modified.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the ERROR CODE field of the EDI ERROR CODES File
FILES POINTED TO FIELDS
NEW PERSON (#200) PERSON ENTERING CODE (#2)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):