Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries  | All
Print Page as PDF
Global: ^PRC(443.76

Package: IFCAP

Global: ^PRC(443.76


Information

FileMan FileNo FileMan Filename Package
443.76 EDI ERROR CODES IFCAP

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
IFCAP 3 PRCOACT    PRCOER3    PRCOER4    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
IFCAP 1 EDI SENDER(#443.75)[15]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[2]    

Fields, Total: 4

Field # Name Loc Type Details
.01 ERROR CODE 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • 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 ^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.
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.
2 PERSON ENTERING CODE 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#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
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

Found Entries, Total: 18

ERROR CODE: 1    ERROR CODE: 2    ERROR CODE: 3    ERROR CODE: 4    ERROR CODE: 5    ERROR CODE: 6    ERROR CODE: 7    ERROR CODE: 8    
ERROR CODE: 9    ERROR CODE: 10    ERROR CODE: 11    ERROR CODE: AC    ERROR CODE: AR    ERROR CODE: BP    ERROR CODE: IB    ERROR CODE: IH    
ERROR CODE: IR    ERROR CODE: 12    
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries  | All