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 |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^BAR835

Package: IHS Accounts Receivable

Global: ^BAR835


Information

FileMan FileNo FileMan Filename Package
90056.07 A/R EDI 835 HOLDING IHS Accounts Receivable

Description

Directly Accessed By Routines, Total: 1

Package Total Routines
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
IHS Support HL7 Interfaces 1 BHLX835    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
IHS Accounts Receivable 3 A/R EDI STND CLAIM ADJ REASONS(#90056.06)[#90056.071(.02)]    A/R BILL/IHS(#90050.01)[.08]    A/R COLLECTION BATCH/IHS(#90051.01)[.06]    
IHS Patient 1 PATIENT(#9000001)[.12]    

Fields, Total: 17

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

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  SEP 16, 2002
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • CROSS-REFERENCE:  90056.07^B
    1)= S ^BAR835("B",$E(X,1,30),DA)=""
    2)= K ^BAR835("B",$E(X,1,30),DA)
.02 STATUS 0;2 SET
  • '0' FOR NOT POSTABLE;
  • '1' FOR POSTABLE;
  • '2' FOR POSTED;

  • LAST EDITED:  OCT 07, 2002
.03 RECORD NUMBER 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  SEP 16, 2002
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
.04 PAYOR 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  SEP 16, 2002
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
.05 CHECK/EFT TRACE NUMBER 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  SEP 16, 2002
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
.06 BATCH ID 0;6 POINTER TO A/R COLLECTION BATCH/IHS FILE (#90051.01) A/R COLLECTION BATCH/IHS(#90051.01)

  • LAST EDITED:  OCT 07, 2002
.07 BATCH ITEM NUMBER 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 16, 2002
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
.08 BILL IEN 0;8 POINTER TO A/R BILL/IHS FILE (#90050.01) A/R BILL/IHS(#90050.01)

  • LAST EDITED:  OCT 07, 2002
.11 PATIENT 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  SEP 16, 2002
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
.12 A/R PATIENT 1;2 POINTER TO PATIENT FILE (#9000001) PATIENT(#9000001)

  • LAST EDITED:  OCT 07, 2002
.13 SERVICE DATE 1;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 16, 2002
.14 A/R SERVICE DATE 1;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 16, 2002
.15 CHARGED AMOUNT 1;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  SEP 16, 2002
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
.16 A/R BILLED AMOUNT 1;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  SEP 16, 2002
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
.17 A/R CURRENT BALANCE 1;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  SEP 16, 2002
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
.18 PAID AMOUNT 1;8 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X
  • LAST EDITED:  SEP 16, 2002
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits
20 ADJUSTMENTS 2;0 Multiple #90056.071 90056.071
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All