Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
580 bytes
|
Line | |
---|
1 | DGCRP3 ;ALB/RJS - BRIDGE ROUTINE TO IBCF13 FROM A/R TO IB ; 20-OCT-92
|
---|
2 | ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
|
---|
3 | ;
|
---|
4 | ;Entry point for Ar to print 2nd and 3rd notice bills
|
---|
5 | ;Device handling to be done by calling routine
|
---|
6 | ;Requires Input: - PRCASV("ARREC") = internal number of bill
|
---|
7 | ; - PRCASV("NOTICE") = number of notice
|
---|
8 | ;Outputs: - DGCRAR("ERR") = error message
|
---|
9 | ; - DGCRAR("OKAY") = 1 normal finish, 0 not finished
|
---|
10 | ;
|
---|
11 | REPRNT ;
|
---|
12 | D REPRNT^IBCF13
|
---|
13 | S DGCRAR("OKAY")=IBAR("OKAY")
|
---|
14 | I $D(IBAR("ERR")) S DGCRAR("ERR")=IBAR("ERR")
|
---|
15 | K IBAR
|
---|
16 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.