©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
IBARXDOC ;ALB/AAS - INTEGRATED BILLING, PHARMACY COPAY INTERFACE DOC ;14-FEB-91
;;2.0;INTEGRATED BILLING;**156**;21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
XTYPE ; - tag XTYPE - returns array of billable action types for service
; input x=service^dfn
; output y= 1 if successful, -1^error code in not successful
; y(action type,n) = action type^unit cost^service
;
; action type is internal number in file 350.1
; n=0 not billable, n=1 billable, n=2 additional data needed
;
;
NEW ;
; - process new/renew/refill rx for charges
; - input x=service^dfn^action type^user duz
; - x(n)=softlink^units
;
; - output y= 1^sum of total charges of y(n)'s if success, or -1^error code if error
; y(n) pieces are:
; 1 - IBnumber
; 2 - total charge this entry
; 3 - AR bill number
; 4 - cap met flag (1=yes,0=no)
; 5 - Full or Partial bill ("F", "P" or "")
; 6 - Exempt (1=exempt,0=non-exempt,-1=copay off)
; 7 - IEN from file 354.71
;
;
CANCEL ; - cancel charges for a rx
; - input x = service^dfn^^user duz
; x(n)=IBnumber^Cancellation reason
;
; - output y = 1 if sucess, -1^error code if error
; y(n)= IBnumber^total charge^AR bill number
; if y = -1^error code then one or more
; y(n)'s will =-1^error code
;
;
UPDATE ; - will cancel current open charge and create updated entry
; - input x = service^dfn^action type^user duz
; x(n) = softlink^units^IBnumber of parent to cancel^cancellation reason
;
; - output y = 1 if success, -1^error code if err
; y(n) pieces are:
; 1 - IBnumber
; 2 - total charge this entry
; 3 - AR bill number
; 4 - cap met flag (1=yes,0=no)
; 5 - Full or Partial bill ("F", "P" or "")
; 6 - Exempt (1=exempt,0=non-exempt,-1=copay off)
; 7 - IEN from file 354.71
;
STATUS ; - will return the status of an entry in file 350
;
; - call with $$STATUS^IBARX(ien from 350)
;
; - output will be:
; 0 = not a valid 350 ien
; 1 = Billed
; 2 = Cancelled
; 3 = Updated
;
CANIBAM ; - will allow to cancel a potential charge that has not been charged.
;
; - call with D CANIBAM^IBARX where is defined with an array of entries
; to be cancelled from 354.71
; ex: X("3543243A")=23423^1
; X(1)=32942^1
; First piece of X is the ien and second piece is the reason
;
; - output will be Y in the same numbered array where Y(x) =
; any positive number for OK
; -1^message for not OK
;
UPIBAM ; - will cancel current potential charge and create updated entry
; in file 354.71 - ONLY one allowed at a time.
; - input x = service^dfn^action type^user duz
; x(n) = softlink^units^IBAM number (in 354.71) to cancel^cancellation reason
;
; - output y = 1 if success, -1^error code if err
; y(n) pieces are: new IBAM number if success, -1^error code if err
;