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 |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^IBE(354.3

Package: Integrated Billing

Global: ^IBE(354.3


Information

FileMan FileNo FileMan Filename Package
354.3 BILLING THRESHOLDS Integrated Billing

Description

Directly Accessed By Routines, Total: 28

Package Total Routines
Integrated Billing 28 IB ENTER THRESHOLD    IB20P253    IB20P331    IB20P362    IB20P379    IB20P410    IB20P425    IB20P441
IB20P465    IB20P485    IB20P514    IB20P540    IB20P557    IB20P583    IB20P611    IB20P620
IB20P635    IB20P661    IB20P692    IB20P723    IB20P74E    IB20P74P    IB20P753    ^IBE(399.6
IB20P780    IBARXEU1    ^IBE(354.3    IBARXET    

Accessed By FileMan Db Calls, Total: 22

Package Total Routines
Integrated Billing 22 IB20P253    IB20P331    IB20P362    IB20P379    IB20P410    IB20P425    IB20P441    IB20P465
IB20P485    IB20P514    IB20P540    IB20P557    IB20P583    IB20P611    IB20P620    IB20P635
IB20P661    IB20P692    IB20P723    IB20P753    IB20P780    IBARXET    

Fields, Total: 12

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

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 11, 1992
  • DESCRIPTION:  
    This is the effective date of this threshold.
  • CROSS-REFERENCE:  354.3^B
    1)= S ^IBE(354.3,"B",$E(X,1,30),DA)=""
    2)= K ^IBE(354.3,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  354.3^AIVDT^MUMPS
    1)= I $P(^IBE(354.3,DA,0),"^",2) S ^IBE(354.3,"AIVDT",$P(^(0),"^",2),-X,DA)=""
    2)= K ^IBE(354.3,"AIVDT",+$P(^IBE(354.3,DA,0),"^",2),-X,DA)
    Inverse date cross reference to rapidly retrieve the proper threshold prior to date x.
.02 TYPE 0;2 SET
************************REQUIRED FIELD************************
  • '1' FOR BASIC PENSION;
  • '2' FOR PENSION PLUS A&A;

  • LAST EDITED:  APR 11, 2000
  • DESCRIPTION:  These are the types of Thresholds that this entry is for.
    The Medication Copayment exemption based on income uses the Basic Pension entry from 1996 to the present and uses Pension plus A&A threshold for years prior to 1996..
  • CROSS-REFERENCE:  354.3^AC
    1)= S ^IBE(354.3,"AC",$E(X,1,30),DA)=""
    2)= K ^IBE(354.3,"AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  354.3^AIVDT1^MUMPS
    1)= I +^IBE(354.3,DA,0) S ^IBE(354.3,"AIVDT",X,-$P(^(0),"^"),DA)=""
    2)= K ^IBE(354.3,"AIVDT",X,-$P(^IBE(354.3,DA,0),"^"),DA)
    3)= DON'T DELETE
    Inverse date cross reference used to quickly retrieve threshold immediately prior to date x.
.03 BASE RATE FOR VETERAN 0;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  APR 05, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the rate for a single veteran.
.04 BASE RATE WITH 1 DEPENDENT 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  APR 05, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount for the Veteran with 1 Dependent.
.05 BASE RATE WITH 2 DEPENDENTS 0;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount for the Veteran with 2 Dependents. If this rate is the same as the rate for Veteran with 1 dependent plus an additional dependent amount, it can be left null and computed.
.06 BASE RATE WITH 3 DEPENDENTS 0;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount for the Veteran with 3 Dependents. If this rate is the same as the rate for Veteran with 1 dependent plus an additional dependent amount for each dependent, it can be left null and computed.
.07 BASE RATE WITH 4 DEPENDENTS 0;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount for the Veteran with 4 Dependents. If this rate is the same as the rate for Veteran with 1 dependent plus an additional dependent amount for each dependent, it can be left null and computed.
.08 BASE RATE WITH 5 DEPENDENTS 0;8 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  JAN 20, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount for the Veteran with 5 Dependents. If this rate is the same as the rate for Veteran with 1 dependent plus an additional dependent amount for each dependent, it can be left null and computed.
.09 BASE RATE WITH 6 DEPENDENTS 0;9 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount for the Veteran with 6 Dependents. If this rate is the same as the rate for Veteran with 1 dependent plus an additional dependent amount for each dependent, it can be left null and computed.
.1 BASE RATE WITH 7 DEPENDENTS 0;10 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  JAN 20, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount for the Veteran with 7 Dependents. If this rate is the same as the rate for Veteran with 1 dependent plus an additional dependent amount for each dependent, it can be left null and computed.
.11 BASE RATE WITH 8 DEPENDENTS 0;11 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount for the Veteran with 8 Dependents. If this rate is the same as the rate for Veteran with 1 dependent plus an additional dependent amount for each dependent, it can be left null and computed.
.12 ADDITIONAL DEPENDENT AMOUNT 0;12 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  APR 05, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the rate for each additional dependent.
  • TECHNICAL DESCR:  Calculation of the threshold amount will be based on the number of dependents a veteran has. First the base rate will be determined. Second, look at the rate for the veteran with the correct number of dependents. Third,
    if the entry for the veteran and the number of dependents is null, then the threshold will be the base rate plus the rate for each additional dependent times the number of dependents.

External References

Name Field # of Occurrence
^%DT .01+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(354.3 - [#354.3] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K)

Naked Globals

Name Field # of Occurrence
^(0 ID.03+1, .01(XREF 2S), .02(XREF 2S)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K)
>> DIC ID.02+1
U ID.03+1
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03+1*!
, .04+1*!, .05+1*!, .06+1*!, .07+1*!, .08+1*!, .09+1*!, .1+1*!, .11+1*!, .12+1*!
>> Y .01+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All