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: ^BAR(90052

Package: IHS Accounts Receivable

Global: ^BAR(90052


Information

FileMan FileNo FileMan Filename Package
90052 A/R PRINTED LETTERS IHS Accounts Receivable

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
IHS Accounts Receivable 2 BARPTR    BARPUC2    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
IHS Accounts Receivable 1 BARUFLTR    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
IHS Accounts Receivable 4 A/R LETTERS & TEXT(#90052.03)[.09]    A/R ACCOUNTS/IHS(#90050.02)[.08]    A/R COLLECTION BATCH/IHS(#90051.01)[.05]    A/R TABLE ENTRY/IHS(#90052.02)[.11.12]    
Kernel 1 NEW PERSON(#200)[.02]    
Utility Tables 1 LOCATION(#9999999.06)[.03]    

Fields, Total: 11

Field # Name Loc Type Details
.01 DATE/TIME PRINTED 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:X<1 X S DINUM=X
  • LAST EDITED:  OCT 18, 2007
  • HELP-PROMPT:  (No range limit on date)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  90052^B
    1)= S ^BAR(90052,"B",$E(X,1,30),DA)=""
    2)= K ^BAR(90052,"B",$E(X,1,30),DA)
.02 USER 0;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 18, 2007
  • CROSS-REFERENCE:  90052^C
    1)= S ^BAR(90052,"C",$E(X,1,30),DA)=""
    2)= K ^BAR(90052,"C",$E(X,1,30),DA)
.03 USERS FACILITY 0;3 POINTER TO LOCATION FILE (#9999999.06) LOCATION(#9999999.06)

  • LAST EDITED:  OCT 18, 2007
.04 AMOUNT 0;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999)!(X<0)!(X?.E1"."3.N) X
  • LAST EDITED:  OCT 18, 2007
  • HELP-PROMPT:  Type a Dollar amount between 0 and 999999999999, 2 Decimal Digits
.05 COLLECTION BATCH 0;5 POINTER TO A/R COLLECTION BATCH/IHS FILE (#90051.01) A/R COLLECTION BATCH/IHS(#90051.01)

  • LAST EDITED:  OCT 18, 2007
  • CROSS-REFERENCE:  90052^D
    1)= S ^BAR(90052,"D",$E(X,1,30),DA)=""
    2)= K ^BAR(90052,"D",$E(X,1,30),DA)
.06 CHECK NUMBER 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  OCT 18, 2007
  • HELP-PROMPT:  Answer must be 3-30 characters in length
.07 TREASURY DEPOSIT NUMBER/IPAC 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  OCT 18, 2007
  • HELP-PROMPT:  Answer must be 3-20 characters in length
  • CROSS-REFERENCE:  90052^E
    1)= S ^BAR(90052,"E",$E(X,1,30),DA)=""
    2)= K ^BAR(90052,"E",$E(X,1,30),DA)
.08 A/R ACCOUNT 0;8 POINTER TO A/R ACCOUNTS/IHS FILE (#90050.02) A/R ACCOUNTS/IHS(#90050.02)

  • LAST EDITED:  OCT 18, 2007
.09 TYPE OF LETTER 0;9 POINTER TO A/R LETTERS & TEXT FILE (#90052.03) A/R LETTERS & TEXT(#90052.03)

  • LAST EDITED:  OCT 18, 2007
.11 TYPE OF REIMBURSEMENT 0;11 POINTER TO A/R TABLE ENTRY/IHS FILE (#90052.02) A/R TABLE ENTRY/IHS(#90052.02)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=23" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  OCT 18, 2007
  • DESCRIPTION:  
    THIS FIELD WILL BE POPULATED ONY IF IT IS UNBILLED REIMBURSEMENT LETTER
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=23"
  • EXPLANATION:  ONLY REIMBURSEMENT TYPES ALLOWED
.12 ADJUSTMENT TYPE 0;12 POINTER TO A/R TABLE ENTRY/IHS FILE (#90052.02) A/R TABLE ENTRY/IHS(#90052.02)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=19" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  OCT 18, 2007
  • DESCRIPTION:  
    THIS WILL BE POPULATED ONLY IF IT A REFUND LETTER
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=19"
  • EXPLANATION:  ONLY TABLE TYPE OF 'REFUND'
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All