- 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
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBARXDOC 3325 printed Jan 18, 2025@03:08:17 Page 2
- IBARXDOC ;ALB/AAS - INTEGRATED BILLING, PHARMACY COPAY INTERFACE DOC ;14-FEB-91
- +1 ;;2.0;INTEGRATED BILLING;**156**;21-MAR-94
- +2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
- +3 ;
- XTYPE ; - tag XTYPE - returns array of billable action types for service
- +1 ; input x=service^dfn
- +2 ; output y= 1 if successful, -1^error code in not successful
- +3 ; y(action type,n) = action type^unit cost^service
- +4 ;
- +5 ; action type is internal number in file 350.1
- +6 ; n=0 not billable, n=1 billable, n=2 additional data needed
- +7 ;
- +8 ;
- NEW ;
- +1 ; - process new/renew/refill rx for charges
- +2 ; - input x=service^dfn^action type^user duz
- +3 ; - x(n)=softlink^units
- +4 ;
- +5 ; - output y= 1^sum of total charges of y(n)'s if success, or -1^error code if error
- +6 ; y(n) pieces are:
- +7 ; 1 - IBnumber
- +8 ; 2 - total charge this entry
- +9 ; 3 - AR bill number
- +10 ; 4 - cap met flag (1=yes,0=no)
- +11 ; 5 - Full or Partial bill ("F", "P" or "")
- +12 ; 6 - Exempt (1=exempt,0=non-exempt,-1=copay off)
- +13 ; 7 - IEN from file 354.71
- +14 ;
- +15 ;
- CANCEL ; - cancel charges for a rx
- +1 ; - input x = service^dfn^^user duz
- +2 ; x(n)=IBnumber^Cancellation reason
- +3 ;
- +4 ; - output y = 1 if sucess, -1^error code if error
- +5 ; y(n)= IBnumber^total charge^AR bill number
- +6 ; if y = -1^error code then one or more
- +7 ; y(n)'s will =-1^error code
- +8 ;
- +9 ;
- UPDATE ; - will cancel current open charge and create updated entry
- +1 ; - input x = service^dfn^action type^user duz
- +2 ; x(n) = softlink^units^IBnumber of parent to cancel^cancellation reason
- +3 ;
- +4 ; - output y = 1 if success, -1^error code if err
- +5 ; y(n) pieces are:
- +6 ; 1 - IBnumber
- +7 ; 2 - total charge this entry
- +8 ; 3 - AR bill number
- +9 ; 4 - cap met flag (1=yes,0=no)
- +10 ; 5 - Full or Partial bill ("F", "P" or "")
- +11 ; 6 - Exempt (1=exempt,0=non-exempt,-1=copay off)
- +12 ; 7 - IEN from file 354.71
- +13 ;
- STATUS ; - will return the status of an entry in file 350
- +1 ;
- +2 ; - call with $$STATUS^IBARX(ien from 350)
- +3 ;
- +4 ; - output will be:
- +5 ; 0 = not a valid 350 ien
- +6 ; 1 = Billed
- +7 ; 2 = Cancelled
- +8 ; 3 = Updated
- +9 ;
- CANIBAM ; - will allow to cancel a potential charge that has not been charged.
- +1 ;
- +2 ; - call with D CANIBAM^IBARX where is defined with an array of entries
- +3 ; to be cancelled from 354.71
- +4 ; ex: X("3543243A")=23423^1
- +5 ; X(1)=32942^1
- +6 ; First piece of X is the ien and second piece is the reason
- +7 ;
- +8 ; - output will be Y in the same numbered array where Y(x) =
- +9 ; any positive number for OK
- +10 ; -1^message for not OK
- +11 ;
- UPIBAM ; - will cancel current potential charge and create updated entry
- +1 ; in file 354.71 - ONLY one allowed at a time.
- +2 ; - input x = service^dfn^action type^user duz
- +3 ; x(n) = softlink^units^IBAM number (in 354.71) to cancel^cancellation reason
- +4 ;
- +5 ; - output y = 1 if success, -1^error code if err
- +6 ; y(n) pieces are: new IBAM number if success, -1^error code if err
- +7 ;