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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  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: 4

Package Total Routines
IFCAP 4 PRCOACT    PRCOER3    PRCOER4    ^PRC(443.76    

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: 10    ERROR CODE: 11    ERROR CODE: 12    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: AC    ERROR CODE: AR    ERROR CODE: BP    ERROR CODE: IB    
ERROR CODE: IH    ERROR CODE: IR    

External References

Name Field # of Occurrence
^%DT 3+1
NOW^%DTC .01(XREF 3n1.1)
^DICR .01(XREF 2n1.4), .01(XREF 3n1.4)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( .01(XREF 2n1.4), .01(XREF 3n1.4)
^DD(443.76 .01(XREF 2S), .01(XREF 3S)
^PRC(443.76 - [#443.76] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4)

Naked Globals

Name Field # of Occurrence
^(0 .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% .01(XREF 3n1.1)
>> %DT 3+1*
%H .01(XREF 3n1.1)
%I .01(XREF 3n1.1)
>> D0 .01(XREF 2S), .01(XREF 3S)
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 3S)
>> DIG .01(XREF 2n1.4), .01(XREF 3n1.4)
>> DIH .01(XREF 2n1.4), .01(XREF 3n1.4)
>> DIU .01(XREF 2S), .01(XREF 3S)
DIV .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.4)
DIV(0 .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4)
DUZ .01(XREF 2S)
U .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4)
X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.4), 1+1!, 3+1*!
Y .01(XREF 2S), .01(XREF 3S), 3+1
Y(1 .01(XREF 2S), .01(XREF 3S)
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All