Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBARXDOC

IBARXDOC.m

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