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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Global: ^IBA(351.5

Package: Integrated Billing

Global: ^IBA(351.5


Information

FileMan FileNo FileMan Filename Package
351.5 TRICARE PHARMACY TRANSACTIONS Integrated Billing

Description

Directly Accessed By Routines, Total: 14

Package Total Routines
Integrated Billing 14 IBACUS    IBACUS1    IBACUS2    IBECUS1    IBECUS2    IBECUS21    IBECUS22    IBECUS3
IBECUSMU    IBRFN    ^IBA(351.5    ^IBE(399.6    IBECUSM    IBECUSO    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Integrated Billing 4 IBACUS1    IBACUS2    IBECUS21    IBECUSM    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Integrated Billing 1 TRICARE PHARMACY REJECTS(#351.52)[.02]    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
Integrated Billing 3 BILL/CLAIMS(#399)[.09]    INTEGRATED BILLING ACTION(#350)[.08]    PRODUCT SELECTION REASON(#351.53)[.1]    
Kernel 1 NEW PERSON(#200)[6.02]    
Registration 1 PATIENT(#2)[.02]    

Fields, Total: 33

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

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • CROSS-REFERENCE:  351.5^B
    1)= S ^IBA(351.5,"B",$E(X,1,30),DA)=""
    2)= K ^IBA(351.5,"B",$E(X,1,30),DA)
.02 PATIENT 0;2 POINTER TO PATIENT FILE (#2) PATIENT(#2)

  • LAST EDITED:  AUG 16, 1996
.03 CARD HOLDER SSN 0;3 FREE TEXT

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

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<1) X
  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Answer must be 1-11 characters in length.
.05 AMOUNT TRANSMITTED 0;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<1) X
  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 1 and 9999999, 2 Decimal Digits
.06 QUANTITY 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Type a Number between 1 and 99999, 0 Decimal Digits
.07 TRANSACTION DATE 0;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 16, 1996
.08 COPAYMENT CHARGE 0;8 POINTER TO INTEGRATED BILLING ACTION FILE (#350) INTEGRATED BILLING ACTION(#350)

  • LAST EDITED:  AUG 27, 1996
  • DESCRIPTION:  
    This field points to the copayment charge in the INTEGRATED BILLING ACTION (#350) file which was actually billed to the patient.
  • CROSS-REFERENCE:  351.5^ACC
    1)= S ^IBA(351.5,"ACC",$E(X,1,30),DA)=""
    2)= K ^IBA(351.5,"ACC",$E(X,1,30),DA)
.09 FISCAL INTERMEDIARY CLAIM 0;9 POINTER TO BILL/CLAIMS FILE (#399) BILL/CLAIMS(#399)

  • LAST EDITED:  AUG 27, 1996
  • DESCRIPTION:  This field points to the claim in the BILL/CLAIMS (#399) file which was created after the response from the FI was received. Creation of this claim also establishes a receivable in the ACCOUNTS RECEIVABLE (#430) file
    against which the FI payment will be posted.
  • CROSS-REFERENCE:  351.5^ACL
    1)= S ^IBA(351.5,"ACL",$E(X,1,30),DA)=""
    2)= K ^IBA(351.5,"ACL",$E(X,1,30),DA)
.1 PRODUCT SELECTION REASON 0;10 POINTER TO PRODUCT SELECTION REASON FILE (#351.53) PRODUCT SELECTION REASON(#351.53)

  • LAST EDITED:  AUG 31, 2001
  • HELP-PROMPT:  Choose a Product Selection Reason from those listed.
  • DESCRIPTION:  
    This field will store the Product Selection Reason for billing acceptance.
2.01 COPAY 2;1 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<1) X
  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 1 and 999999, 2 Decimal Digits
2.02 INGREDIENT COST PAID 2;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<1) X
  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 1 and 999999, 2 Decimal Digits
2.03 CONTRACT FEE PAID 2;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<1) X
  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 1 and 999999, 2 Decimal Digits
2.04 SALES TAX PAID 2;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<1) X
  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 1 and 999999, 2 Decimal Digits
2.05 TOTAL AMOUNT PAID 2;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<1) X
  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 1 and 999999, 2 Decimal Digits
2.06 AUTHORIZATION NUMBER 2;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>14!($L(X)<1) X
  • LAST EDITED:  AUG 21, 1996
  • HELP-PROMPT:  Answer must be 1-14 characters in length.
  • CROSS-REFERENCE:  351.5^AUTH
    1)= S ^IBA(351.5,"AUTH",$E(X,1,30),DA)=""
    2)= K ^IBA(351.5,"AUTH",$E(X,1,30),DA)
2.07 MESSAGE 2;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
3.01 ACCUMULATED DEDUCTIBLE AMOUNT 3;1 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<1) X
  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 1 and 99999999, 2 Decimal Digits
3.02 REMAINING DEDUCTABLE AMOUNT 3;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<1) X
  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 1 and 99999999, 2 Decimal Digits
3.03 REMAINING BENEFIT AMOUNT 3;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<1) X
  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 1 and 99999999, 2 Decimal Digits
3.04 ATM APPL TO PER DEDUCTIBLE 3;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<1) X
  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 1 and 999999, 2 Decimal Digits
3.05 AMT COPAY/COINSURANCE 3;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<1) X
  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 1 and 999999, 2 Decimal Digits
3.06 AMT ATTRIB TO PROD SEL 3;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<1) X
  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 1 and 999999, 2 Decimal Digits
3.07 AMT EXCEEDING PERIODIC MAX BEN 3;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<1) X
  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 1 and 999999, 2 Decimal Digits
3.08 INCENTIVE FEE PAID 3;8 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<1) X
  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 1 and 999999, 2 Decimal Digits
3.09 BASIS OF REIMB DETERMINATION 3;9 SET
  • '0' FOR NOT SPECIFIED;
  • '1' FOR PAID AS SUBMITTED;
  • '2' FOR REDUCED TO AWP;
  • '3' FOR AWP-X% PRICING;
  • '4' FOR USUAL AND CUSTOMARY;
  • '5' FOR LOWER IF ING. COST PLUS FEES VS U&C;
  • '6' FOR MAC PRICING;
  • '7' FOR MAC REDUCED TO MAC;
  • '8' FOR CONTRACT PRICING;

  • LAST EDITED:  AUG 16, 1996
3.1 AMOUNT ATTRIB TO SALES TAX 3;10 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<1) X
  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 1 and 999999, 2 Decimal Digits
5.01 ERROR CODES 5;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Answer must be 1-245 characters in length.
6.01 REVERSAL AUTH NUMBER 6;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>14!($L(X)<1) X
  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Answer must be 1-14 characters in length.
6.02 REVERSED BY 6;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  AUG 16, 1996
6.03 REVERSAL ERROR CODES 6;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>180!($L(X)<1) X
  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Answer must be 1-180 characters in length.
7.01 DUR RESPONSE DATA 7;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>160!($L(X)<1) X
  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Answer must be 1-160 characters in length.
8.01 ADDITIONAL MESSAGE INFORMATION 8;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Answer must be 1-80 characters in length.

External References

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBA(351.5 - [#351.5] .01(XREF 1S), .01(XREF 1K), .08(XREF 1S), .08(XREF 1K), .09(XREF 1S), .09(XREF 1K), 2.06(XREF 1S), 2.06(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .07+1*
>> DA .01(XREF 1S), .01(XREF 1K), .08(XREF 1S), .08(XREF 1K), .09(XREF 1S), .09(XREF 1K), 2.06(XREF 1S), 2.06(XREF 1K)
X .01+1!, .01(XREF 1S), .01(XREF 1K), .03+1!, .04+1!, .05+1*!, .06+1!, .07+1*!, .08(XREF 1S), .08(XREF 1K)
, .09(XREF 1S), .09(XREF 1K), 2.01+1*!, 2.02+1*!, 2.03+1*!, 2.04+1*!, 2.05+1*!, 2.06+1!, 2.06(XREF 1S), 2.06(XREF 1K)
, 2.07+1!, 3.01+1*!, 3.02+1*!, 3.03+1*!, 3.04+1*!, 3.05+1*!, 3.06+1*!, 3.07+1*!, 3.08+1*!, 3.1+1*!
, 5.01+1!, 6.01+1!, 6.03+1!, 7.01+1!, 8.01+1!
>> Y .07+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All