BILLING STATUS API    ICR (7202)

Internal entry number from the PATIENT file (#2)
[required]

EVENT DATE Beginning Date [required]

EVENT DATE Ending Date [required]

Subscript name used in the ^TMP global [required]


EN^IBEFSMUT(DFN,BEGDT,ENDDT,LIST)

Input:
DFN
BEGDT
ENDDT
LIST

FILE #350 OUTPUT:

^TMP($J,LIST,FILENO,DFN,0)=Total entries or -1^NO DATA FOUND
^TMP($J,LIST,FILENO,DATE,DFN,RECCNT)=ACTION TYPE^BILLING GROUP^IEN^BILL
NUMBER^RESULTING FROM^TOTAL CHARGE^STATUS^INSTITUTION^CLINIC STOP^USER LAST
UPDATING

Where:
LIST   = Subscript name used in the ^TMP global
FILENO = File #350, this is to distinguish where records coming from
DATE   = Event Date (I:350,.17)
DFN    = IEN from the PATIENT File(#2)
RECCNT = Record counter

1^2^3^4^5^6^7^8^9^10, where:
1 = ACTION TYPE (E;350,.03)
2 = BILLING GROUP (I;350.1,.11)
Note: NULL is returned if there is no BILLING GROUP
3 = IEN from INTEGRATED BILLING file (#350)
4 = AR BILL NUMBER (E;350,.11)
Note: NULL is returned if there is no AR BILL NUMBER
5 = RESULTING FROM (I;350,.04)
Note: If RESULTING FROM 2ND ^ piece ":"=350,
the format will be:
RESULTING FROM;DATE BILLED FROM(I;350,.14):
COPAYMENT TIER (I;350,.22)
6 = TOTAL CHARGE (E;350,.07)
7 = STATUS (E;350,.05)
8 = INSTITUTION (IE;350,.13)
9 = CLINIC STOP(IE;350,.2)
Note: NULL is returned if there is no CLINIC STOP
10 = USER LAST UPDATING (E;350,13)


FILE #399 OUTPUT:

^TMP($J,LIST,FILENO,DFN,0)=Total entries or -1^NO DATA FOUND
^TMP($J,LIST,FILENO,DATE,DFN,RECCNT)=RATE TYPE^IEN^RATE TYPE NAME^IEN^BILL
NUMBER^RESULTING FROM^CHARGES^STATUS

Where:
LIST   = Subscript name used in the ^TMP global
FILENO = File #399, this is to distinguish where the records coming from
DATE   = Event Date (399,.03)
DFN    = IEN from the PATIENT File (#2)
RECCNT = Record Counter

1^2^3^4^5^6^7^8^9^10, where
1 = BILL CLASSIFICATION (I;399,.05)
2 = RATE TYPE NAME (E;399,.07)
3 = IEN from BILL/CLAIMS file (#399)
4 = BILL NUMBER (E;399,.01)
5 = RESULTING FROM, will be in the format of:

If inpatient bill, the format will be:
BILL TYPE:BILL CLASSIFICATION(E;399,.05)

Note: BILL TYPE=1 if inpatient bill
BILL TYPE=0 if outpatient bill
BILL TYPE=3 if Rx bill

If outpatient bill, the format will be:
TYPE (I;399.042,.1):BILL CLASSIFICATION(E;399,.05):BILL TYPE

If Rx bill, the format will be:
BILL TYPE:BEDSECTION(E;399.042,.05):RXIEN (I;362.4,.05):
RXNUMBER (E;362.4,.01):RXFILL NUMBER(I;362.4,.1):RXSTATUS(52,100)

6 = CHARGES
Note:
If inpatient bill, CHARGES will be extracted in 399,201
If outpatient/Rx bill, CHARGES will be extracted in 399.042,.04

7 = STATUS (E;399,.13)
8 = DIVISION(I;399,.22)
9 = ENTERED/EDITED BY (E;399,2)
10 = PTFIEN (I;399,.08)
Note: If inpatient bill, this ^piece contain the PTF ENTRY NUMBER
If outpatient bill, this ^piece contain the outpatient
encounter IEN
Otherwise, NULL is returned.


Example:

>K ^TMP($J,"TEST")
>D EN^IBEFSMUT(7251646,3201016,3201019,"TEST")
>ZW ^TMP($J,"TEST")
^TMP(14840,"TEST",350,7251646,0)="-1^NO DATA FOUND"
^TMP(14840,"TEST",399,7251646,0)="-1^NO DATA FOUND"
>K ^TMP($J,"TEST")

>D EN^IBEFSMUT(7251646,3201101,3201201,"TEST")
>ZW ^TMP($J,"TEST")
^TMP(14840,"TEST",350,3201130,7251646,1)="PSO SC RX COPAY NEW^
5^3568678^442-K003SK6^350:3568678;3201130:1^$5^CANCELLED^
442-CHEYENNE VA MEDICAL^^USER,ONE"
^TMP(14840,"TEST",350,3201130,7251646,2)="PSO NSC RX COPAY NEW^
5^3568627^442-K003SC3^52:3836390;1:1^$8^BILLED^
442-CHEYENNE VA MEDICAL^^USER,ONE"
^TMP(14840,"TEST",350,7251646,0)=2
^TMP(14840,"TEST",399,3201130,7251646,1)="1^INELIGIBLE^2818792^
K003SJX^1:INPATIENT (MEDICARE PART A)^4626^
ENTERED/NOT REVIEWED^1^USER,ONE^71212"
^TMP(14840,"TEST",399,3201201,7251646,2)="3^INELIGIBLE^2818811^
K003SKG^2:OUTPATIENT VISIT:0^409^ENTERED/NOT REVIEWED^
4^USER,ONE^10501632"
^TMP(14840,"TEST",399,3201201,7251646,3)="3^INELIGIBLE^2818533^
K003SCI^3:PRESCRIPTION:3836389:2911742:0:0^19.87^AUTHORIZED^
1^USER,ONE"
>K ^TMP($J,"TEST")