DGCRP3.m

DGCRP3 ;ALB/RJS - BRIDGE ROUTINE TO IBCF13 FROM A/R TO IB ; 20-OCT-92

 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 ;

 ;Entry point for Ar to print 2nd and 3rd notice bills

 ;Device handling to be done by calling routine

 ;Requires Input: - PRCASV("ARREC") = internal number of bill

 ;                - PRCASV("NOTICE") = number of notice

 ;Outputs:        - DGCRAR("ERR") = error message

 ;                - DGCRAR("OKAY") = 1 normal finish, 0 not finished

 ;

REPRNT ;

 Q  ;ihs/cmi/maw 02/08/2012 patch 1014 no IB

 D REPRNT^IBCF13

 S DGCRAR("OKAY")=IBAR("OKAY")

 I $D(IBAR("ERR")) S DGCRAR("ERR")=IBAR("ERR")

 K IBAR

 Q

DGCRP3    ;ALB/RJS - BRIDGE ROUTINE TO IBCF13 FROM A/R TO IB ; 20-OCT-92

 +1       ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 +2       ;

 +3       ;Entry point for Ar to print 2nd and 3rd notice bills

 +4       ;Device handling to be done by calling routine

 +5       ;Requires Input: - PRCASV("ARREC") = internal number of bill

 +6       ;                - PRCASV("NOTICE") = number of notice

 +7       ;Outputs:        - DGCRAR("ERR") = error message

 +8       ;                - DGCRAR("OKAY") = 1 normal finish, 0 not finished

 +9       ;

REPRNT    ;

 +1       ;ihs/cmi/maw 02/08/2012 patch 1014 no IB

           QUIT 

 +2        DO REPRNT^IBCF13

 +3        SET DGCRAR("OKAY")=IBAR("OKAY")

 +4        IF $DATA(IBAR("ERR"))

               SET DGCRAR("ERR")=IBAR("ERR")

 +5        KILL IBAR

 +6        QUIT