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 |  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 CATEGORY C BILLING CLOCK Integrated Billing

Description

Directly Accessed By Routines, Total: 15

Package Total Routines
Integrated Billing 13 IBAMTC    IBAMTS1    IBAPDX    IBAUTL3    IBECEA1    IBECEA32    IBECEAU1    IBEMTBC
IBOMTP1    IBPF    IBXBCR    ^IBE(351    IBXBCR2    
Registration 2 DGVPTIB1    DGVPTIB2    

Accessed By FileMan Db Calls, Total: 6

Package Total Routines
Integrated Billing 5 IBAUTL3    IBECEA32    IBECEAU1    IBEMTBC    IBOBCRT    
Registration 1 DGVPTIB2    

Pointer To FileMan Files, Total: 2

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

Fields, Total: 15

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 VA PATIENT FILE (#2)
************************REQUIRED FIELD************************
VA 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 on which the patient is no longer Category C, 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.







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 | 
Pointer To FileMan Files | 
Fields | 
Found Entries | 
External References | 
Global Variables Directly Accessed | 
Naked Globals | 
Local Variables | 
All