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

Package: Accounts Receivable

AR TRANSACTION(#433)-->433.061

Sub-Field: 433.061


Information

Parent File Name Number Package
AR TRANSACTION(#433) DESCRIPTION 433.061 Accounts Receivable

Details

Field # Name Loc Type Details
.01 DATE OF CHARGES 0;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 18, 1988
  • HELP-PROMPT:  Enter the date the charges were incurred.
  • DESCRIPTION:  
    This is the date the charges were incurred.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  433.061^B
    1)= S ^PRCA(433,DA(1),6,"B",$E(X,1,30),DA)=""
    2)= K ^PRCA(433,DA(1),6,"B",$E(X,1,30),DA)
    This cross-reference is used for sorting by Date of Charges.
1 TYPE OF CARE 0;2 POINTER TO ACCOUNTS RECEIVABLE CATEGORY FILE (#430.2) ACCOUNTS RECEIVABLE CATEGORY(#430.2)

  • LAST EDITED:  JUL 19, 1988
  • HELP-PROMPT:  Enter Type of Care.
  • DESCRIPTION:  
    This is the type of medical care provided, a pointer to File 430.2.
3 QUANTITY (UNITS) 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 19, 1988
  • HELP-PROMPT:  Type a Number between 1 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the number of units being billed.
4 UNIT COST 0;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X
  • LAST EDITED:  JUL 19, 1988
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the cost of a single unit.
5 UNIT 0;5 POINTER TO UNIT OF ISSUE FILE (#420.5) UNIT OF ISSUE(#420.5)

  • LAST EDITED:  JUL 19, 1988
  • HELP-PROMPT:  Enter Unit code.
  • DESCRIPTION:  
    This is the unit used on the bill, a pointer to File 420.5
6 TOTAL AMOUNT 0;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
  • LAST EDITED:  JUL 19, 1988
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the total cost of the units billed.
8 TRANS. AMOUNT 0;8 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999)!(X<-999999) X
  • LAST EDITED:  JUL 19, 1988
  • HELP-PROMPT:  Type a Dollar Amount between -999999 and 999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the total amount of the transaction.
Info |  Details