|
Last change
on this file since 1540 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
