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).
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 ^DICR:$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 ^DICR:$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.