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: ^BARDEBT

Package: IHS Accounts Receivable

Global: ^BARDEBT


Information

FileMan FileNo FileMan Filename Package
90050.05 A/R DEBT COLLECTION LOG IHS Accounts Receivable

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
IHS Accounts Receivable 4 BAR18DSP    BARDINQ    BARDLOG    BARDMAN2    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
IHS Accounts Receivable 4 BAR18DSP    BARDLOG    BARDMAN2    BARDMAN4    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
IHS Accounts Receivable 1 A/R BILL/IHS(#90050.01)[.02]    

Fields, Total: 9

Field # Name Loc Type Details
.01 DATE LOGGED 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 07, 2004
  • CROSS-REFERENCE:  90050.05^B
    1)= S ^BARDEBT("B",$E(X,1,30),DA)=""
    2)= K ^BARDEBT("B",$E(X,1,30),DA)
.02 AR BILL 0;2 POINTER TO A/R BILL/IHS FILE (#90050.01) A/R BILL/IHS(#90050.01)

  • LAST EDITED:  APR 07, 2004
  • CROSS-REFERENCE:  90050.05^C
    1)= S ^BARDEBT("C",$E(X,1,30),DA)=""
    2)= K ^BARDEBT("C",$E(X,1,30),DA)
.03 AR BALANCE 0;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999)!(X<-99999) X
  • LAST EDITED:  APR 07, 2004
  • HELP-PROMPT:  Type a Dollar Amount between -99999 and 99999999, 2 Decimal Digits
.04 ACTION CODE 0;4 SET
  • '0' FOR STARTS;
  • '1' FOR CANCEL;
  • '2' FOR SUSPEND;
  • '3' FOR RESERVED;
  • '4' FOR RESERVED;
  • '5' FOR PAID IN FULL;
  • 'A' FOR ADJUSTMENT;

  • LAST EDITED:  APR 07, 2004
  • CROSS-REFERENCE:  90050.05^AC
    1)= S ^BARDEBT("AC",$E(X,1,30),DA)=""
    2)= K ^BARDEBT("AC",$E(X,1,30),DA)
.05 ACTIVE RECORD 0;5 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  APR 07, 2004
  • CROSS-REFERENCE:  90050.05^AD
    1)= S ^BARDEBT("AD",$E(X,1,30),DA)=""
    2)= K ^BARDEBT("AD",$E(X,1,30),DA)
.06 DEBT CATEGORY 0;6 SET
  • 'I' FOR INSURANCE;
  • 'S' FOR SELF PAY;

  • LAST EDITED:  APR 07, 2004
.07 PAYER 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  APR 07, 2004
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • CROSS-REFERENCE:  90050.05^AE
    1)= S ^BARDEBT("AE",$E(X,1,30),DA)=""
    2)= K ^BARDEBT("AE",$E(X,1,30),DA)
.08 AR LOCATION 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 07, 2004
  • HELP-PROMPT:  Type a Number between 1 and 99999, 0 Decimal Digits
.09 TRANSMISSION FILE NAME 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  JUN 17, 2005
  • HELP-PROMPT:  Answer must be 3-50 characters in length.
  • CROSS-REFERENCE:  90050.05^D
    1)= S ^BARDEBT("D",$E(X,1,30),DA)=""
    2)= K ^BARDEBT("D",$E(X,1,30),DA)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All