source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBARXDOC.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.2 KB
Line 
1IBARXDOC ;ALB/AAS - INTEGRATED BILLING, PHARMACY COPAY INTERFACE DOC ;14-FEB-91
2 ;;2.0;INTEGRATED BILLING;**156**;21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5XTYPE ; - tag XTYPE - returns array of billable action types for service
6 ; input x=service^dfn
7 ; output y= 1 if successful, -1^error code in not successful
8 ; y(action type,n) = action type^unit cost^service
9 ;
10 ; action type is internal number in file 350.1
11 ; n=0 not billable, n=1 billable, n=2 additional data needed
12 ;
13 ;
14NEW ;
15 ; - process new/renew/refill rx for charges
16 ; - input x=service^dfn^action type^user duz
17 ; - x(n)=softlink^units
18 ;
19 ; - output y= 1^sum of total charges of y(n)'s if success, or -1^error code if error
20 ; y(n) pieces are:
21 ; 1 - IBnumber
22 ; 2 - total charge this entry
23 ; 3 - AR bill number
24 ; 4 - cap met flag (1=yes,0=no)
25 ; 5 - Full or Partial bill ("F", "P" or "")
26 ; 6 - Exempt (1=exempt,0=non-exempt,-1=copay off)
27 ; 7 - IEN from file 354.71
28 ;
29 ;
30CANCEL ; - cancel charges for a rx
31 ; - input x = service^dfn^^user duz
32 ; x(n)=IBnumber^Cancellation reason
33 ;
34 ; - output y = 1 if sucess, -1^error code if error
35 ; y(n)= IBnumber^total charge^AR bill number
36 ; if y = -1^error code then one or more
37 ; y(n)'s will =-1^error code
38 ;
39 ;
40UPDATE ; - will cancel current open charge and create updated entry
41 ; - input x = service^dfn^action type^user duz
42 ; x(n) = softlink^units^IBnumber of parent to cancel^cancellation reason
43 ;
44 ; - output y = 1 if success, -1^error code if err
45 ; y(n) pieces are:
46 ; 1 - IBnumber
47 ; 2 - total charge this entry
48 ; 3 - AR bill number
49 ; 4 - cap met flag (1=yes,0=no)
50 ; 5 - Full or Partial bill ("F", "P" or "")
51 ; 6 - Exempt (1=exempt,0=non-exempt,-1=copay off)
52 ; 7 - IEN from file 354.71
53 ;
54STATUS ; - will return the status of an entry in file 350
55 ;
56 ; - call with $$STATUS^IBARX(ien from 350)
57 ;
58 ; - output will be:
59 ; 0 = not a valid 350 ien
60 ; 1 = Billed
61 ; 2 = Cancelled
62 ; 3 = Updated
63 ;
64CANIBAM ; - will allow to cancel a potential charge that has not been charged.
65 ;
66 ; - call with D CANIBAM^IBARX where is defined with an array of entries
67 ; to be cancelled from 354.71
68 ; ex: X("3543243A")=23423^1
69 ; X(1)=32942^1
70 ; First piece of X is the ien and second piece is the reason
71 ;
72 ; - output will be Y in the same numbered array where Y(x) =
73 ; any positive number for OK
74 ; -1^message for not OK
75 ;
76UPIBAM ; - will cancel current potential charge and create updated entry
77 ; in file 354.71 - ONLY one allowed at a time.
78 ; - input x = service^dfn^action type^user duz
79 ; x(n) = softlink^units^IBAM number (in 354.71) to cancel^cancellation reason
80 ;
81 ; - output y = 1 if success, -1^error code if err
82 ; y(n) pieces are: new IBAM number if success, -1^error code if err
83 ;
Note: See TracBrowser for help on using the repository browser.