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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^IBE(351

Package: Integrated Billing

Global: ^IBE(351


Information

FileMan FileNo FileMan Filename Package
351 MEANS TEST BILLING CLOCK Integrated Billing

Description

Directly Accessed By Routines, Total: 35

Package Total Routines
Integrated Billing 28 IB BILLING CYCLE ADD    IB BILLING CYCLE ADJUST    IB CREATE 278 REQUEST    IB20P202    IBAGMR1    IBAMTC    IBAMTS1    IBAMTV
IBAMTV2    IBAPDX    IBARXMI    IBAUTL3    IBECEA1    IBECEA32    IBECEA33    IBECEAU1
IBECECQ1    IBECECU1    IBECECU2    IBECECX1    IBEMTBC    IBOMTLTC    ^IBE(351    ^IBE(399.6
IBOMTP1    IBPF    IBXBCR    IBXBCR2    
Patient Data Exchange 1 VAQPSE02    

Accessed By FileMan Db Calls, Total: 13

Package Total Routines
Integrated Billing 13 IBARXMI    IBAUTL3    IBECEA3    IBECEA32    IBECEA33    IBECEAU1    IBECEAU6    IBECECQ1
IBECECU1    IBECECX1    IBEMTBC    IBOBCRT    IBOMTLTC    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Integrated Billing 1 MEANS TEST BILLING CLOCK VERIFY(#351.3)[.01]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[11, 13]    
Registration 1 PATIENT(#2)[.02]    

Fields, Total: 16

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

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999999)!(X<1000)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 10, 1991
  • HELP-PROMPT:  Type a Number between 1000 and 999999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This field consists of the station number concatenated with the internal number of the entry. The purpose of this number is to provide a unique reference for each billing clock which has been opened at each station.
  • CROSS-REFERENCE:  351^B
    1)= S ^IBE(351,"B",$E(X,1,30),DA)=""
    2)= K ^IBE(351,"B",$E(X,1,30),DA)
.02 PATIENT 0;2 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • LAST EDITED:  DEC 26, 1991
  • HELP-PROMPT:  Please enter the patient for whom this billing clock is being opened.
  • DESCRIPTION:  
    This is the patient for whom the billing clock is being opened.
  • CROSS-REFERENCE:  351^AIVDT^MUMPS
    1)= I $D(^IBE(351,DA,0)),$P(^(0),"^",3) S ^IBE(351,"AIVDT",X,-$P(^(0),"^",3),DA)=""
    2)= I $D(^IBE(351,DA,0)),$P(^(0),"^",3) K ^IBE(351,"AIVDT",X,-$P(^(0),"^",3),DA)
    Cross-reference of all IB MT BILLING CYCLE entries by the patient (#.02) field and the minus (negative or inverse) cycle date (#.03) field. The most current billing cycle for a patient may be found using this cross-
    reference. The "AIVDT1" cross-reference on the cycle date (#.03) field is the companion to this cross-reference.
  • CROSS-REFERENCE:  351^ACT^MUMPS
    1)= I $D(^IBE(351,DA,0)),$P(^(0),"^",4)=1 S ^IBE(351,"ACT",X,DA)=""
    2)= K ^IBE(351,"ACT",X,DA)
    Cross-reference of all active IB BILLING CYCLES by patient.
    This is a temporary cross-reference which is used to find a patient's active billing cycle record, if one exists. The cross-reference is set whenever the status (#.04 field) of a billing cycle is changed to 1 (CURRENT),
    and killed without condition. The "ACT1" cross-reference on the status field is the companion to this cross-reference.
  • CROSS-REFERENCE:  351^C
    1)= S ^IBE(351,"C",$E(X,1,30),DA)=""
    2)= K ^IBE(351,"C",$E(X,1,30),DA)
.03 CLOCK BEGIN DATE 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 30, 1991
  • HELP-PROMPT:  Please enter the date on which the billing clock should begin.
  • DESCRIPTION:  
    This is the date on which the billing clock has been opened.
  • CROSS-REFERENCE:  351^AIVDT1^MUMPS
    1)= I $D(^IBE(351,DA,0)),$P(^(0),"^",2) S ^IBE(351,"AIVDT",$P(^(0),"^",2),-X,DA)=""
    2)= I $D(^IBE(351,DA,0)),$P(^(0),"^",2) K ^IBE(351,"AIVDT",$P(^(0),"^",2),-X,DA)
    Cross-reference of all IB MT BILLING CYCLE entries by the patient (#.02) field and the minus (negative or inverse) cycle date (#.03) field. The most current billing cycle for a patient may be found using this cross-
    reference. The "AIVDT" cross-reference on the patient (#.02) field is is the companion to this cross-reference.
.04 STATUS 0;4 SET
  • '1' FOR CURRENT;
  • '2' FOR CLOSED;
  • '3' FOR CANCELLED;

  • LAST EDITED:  NOV 06, 1991
  • HELP-PROMPT:  Enter the present status for this billing clock.
  • DESCRIPTION:  The status of the billing clock will be CURRENT if charges are being created for that clock. The clock will be CLOSED after 365 days or the date the patient is no longer a Means Test copay patient, whichever is earlier.
    Billing clocks which may have been "left open" due to a lack of billable activity will be closed during the nightly compilation job. Billing clocks which must be deleted for any reason will have a status of CANCELLED.
  • CROSS-REFERENCE:  351^ACT1^MUMPS
    1)= I X=1,$D(^IBE(351,DA,0)),$P(^(0),"^",2) S ^IBE(351,"ACT",$P(^(0),"^",2),DA)=""
    2)= I $D(^IBE(351,DA,0)),$P(^(0),"^",2) K ^IBE(351,"ACT",$P(^(0),"^",2),DA)
    Cross-reference of all active IB BILLING CYCLES by patient (#.02 field).
    This is a temporary cross-reference which is used to find a patient's active billing cycle record, if one exists. The cross-reference is set whenever the status of a billing cycle is changed to 1 (CURRENT), and killed
    whenever the patient field is defined. The "ACT" cross-reference on the patient field is the companion to this cross-reference.
.05 1ST 90 DAY INPATIENT AMOUNT 0;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • LAST EDITED:  OCT 09, 1991
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field represents the total co-payment (not including the per diem charge) amount which has been billed to the patient for his first 90 days of Hospital or Nursing Home care.
.06 2ND 90 DAY INPATIENT AMOUNT 0;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • LAST EDITED:  OCT 09, 1991
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field represents the total co-payment (not including the per diem charge) amount which has been billed to the patient for his second 90 days of Hospital or Nursing Home care.
.07 3RD 90 DAY INPATIENT AMOUNT 0;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • LAST EDITED:  OCT 09, 1991
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field represents the total co-payment (not including the per diem charge) amount which has been billed to the patient for his third 90 days of Hospital or Nursing Home care.
.08 4TH 90 DAY INPATIENT AMOUNT 0;8 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • LAST EDITED:  OCT 09, 1991
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field represents the total co-payment (not including the per diem charge) amount which has been billed to the patient for his fourth 90 days of Hospital or Nursing Home care.
.09 NUMBER INPATIENT DAYS 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>365)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 09, 1991
  • HELP-PROMPT:  Type a Number between 0 and 365, 0 Decimal Digits
  • DESCRIPTION:  This field represents the total number of days that the patient has spent in the Hospital or Nursing Home since the Clock Begin Date. The field is used to determine the co-payment charges billed to the patient for care
    received.
.1 CLOCK END DATE 0;10 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 26, 1991
  • HELP-PROMPT:  Enter the date on which this billing clock must be closed.
  • DESCRIPTION:  
    This is the date on which the billing clock was closed. This date should not be more than 365 days after the Clock Begin Date.
11 USER ADDING ENTRY 1;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 09, 1991
  • DESCRIPTION:  
    This is the person performing a transaction in an application that causes the application to create an entry in this file. This field may be null if the entry was created by an off-line compilation job.
    WRITE AUTHORITY: ^
12 DATE ENTRY ADDED 1;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 09, 1991
  • DESCRIPTION:  
    This the date/time that an entry was added to this file.
    WRITE AUTHORITY: ^
13 USER LAST UPDATING 1;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 09, 1991
  • DESCRIPTION:  
    This is the person performing a transaction in an application which causes the application to update this entry. This entry may be null if the entry was last updated in an off-line compilation job.
14 DATE LAST UPDATED 1;4 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 09, 1991
  • DESCRIPTION:  
    This is the date/time that this entry was last updated.
15 UPDATE REASON 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3) X
  • LAST EDITED:  FEB 25, 1992
  • HELP-PROMPT:  Answer must be 3-40 characters in length.
  • DESCRIPTION:  
    Brief description of reason for updating billing clock.
16 QUERY SENT 1;5 SET
  • '1' FOR QUERY SENT;

  • LAST EDITED:  NOV 28, 2022
  • HELP-PROMPT:  Enter a 1 if a query was sent.
  • DESCRIPTION:  
    This field is used to track if a query has been sent for this clock. A query should only be sent one time for syncing purposes. Once the clock has been synced, no subsequent queries should occur for this clock.

External References

Name Field # of Occurrence
^%DT .03+1, .1+1, 12+1, 14+1
Y^DIQ ID.02+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(2 ID.02+1
^DPT - [#2] ID.02+1
^IBE(351 - [#351] .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .03(XREF 1S), .03(XREF 1K)
, .04(XREF 1S), .04(XREF 1K)

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .03+1*, .1+1*, 12+1*, 14+1*
%I ID.02+1*!
>> C ID.02+1*
>> DA .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .03(XREF 1S), .03(XREF 1K)
, .04(XREF 1S), .04(XREF 1K)
>> DIC ID.02+1, ID.04+1
U ID.02+1, ID.03+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .03+1*!
, .03(XREF 1S), .03(XREF 1K), .04(XREF 1S), .05+1*!, .06+1*!, .07+1*!, .08+1*!, .09+1!, .1+1*!, 12+1*!
, 14+1*!, 15+1!
>> Y ID.02+1*, .03+1, .1+1, 12+1, 14+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 |  Naked Globals |  Local Variables  | All