Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 90056.0107

Package: IHS Accounts Receivable

A/R EDI TRANSPORT(#90056.01)-->90056.0107

Sub-Field: 90056.0107


Information

Parent File Name Number Package
A/R EDI TRANSPORT(#90056.01) CLAIM LEVEL REASON CODES 90056.0107 IHS Accounts Receivable

Details

Field # Name Loc Type Details
.01 CLAIM LEVEL REASON CODES 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  DEC 20, 1999
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • CROSS-REFERENCE:  90056.0107^B
    1)= S ^BAREDI("1T",DA(1),40,"B",$E(X,1,30),DA)=""
    2)= K ^BAREDI("1T",DA(1),40,"B",$E(X,1,30),DA)
.02 DESCRIPTION 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  DEC 20, 1999
  • HELP-PROMPT:  Answer must be 1-245 characters in length.
2.01 ADJUSTMENT/PAY TYPE 2;1 POINTER TO A/R TABLE TYPE/IHS FILE (#90052.01) A/R TABLE TYPE/IHS(#90052.01)

  • INPUT TRANSFORM:  D DICSTYP^BAREDI01 D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 07, 2000
  • SCREEN:  D DICSTYP^BAREDI01
  • EXPLANATION:  Select Postable Type Tables
  • CROSS-REFERENCE:  ^^TRIGGER^90056.0107^2.02
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BAREDI("1T",D0,40,D1,2)):^(2),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(90056.0107,2.01,1,1,1.4)
    1.4)= S DIH=$S($D(^BAREDI("1T",DIV(0),40,DIV(1),2)):^(2),1:""),DIV=X S $P(^(2),U,2)=DIV,DIH=90056.0107,DIG=2.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BAREDI("1T",D0,40,D1,2)):^(2),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(90056.0107,2.01,1,1,2.4)
    2.4)= S DIH=$S($D(^BAREDI("1T",DIV(0),40,DIV(1),2)):^(2),1:""),DIV=X S $P(^(2),U,2)=DIV,DIH=90056.0107,DIG=2.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= REASON
2.02 REASON 2;2 POINTER TO A/R TABLE ENTRY/IHS FILE (#90052.02) A/R TABLE ENTRY/IHS(#90052.02)

  • INPUT TRANSFORM:  D DICSREA^BAREDI01 D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 05, 2000
  • SCREEN:  D DICSREA^BAREDI01
  • EXPLANATION:  Limit Reasons to the Table Type Selected
  • NOTES:  TRIGGERED by the ADJUSTMENT/PAY TYPE field of the CLAIM LEVEL REASON CODES sub-field of the A/R EDI TRANSPORT File
Info |  Details |  All