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 DOCUMENTATION ; 14-FEB-91
  1. 	;;Version 2.0 ; INTEGRATED BILLING ;; 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)=IBnumber^total charge this entry^AR bill number
  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) = IBnumber^total charge^AR bill number