DGCRP3.m

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

 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

 ;

 ;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 ;

 D REPRNT^IBCF13

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

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

 K IBAR

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGCRP3   596     printed  Apr 09, 2024@21:43:49                                                                                                                                                                                                       Page 2

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

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

 +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        DO REPRNT^IBCF13

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

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

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

 +4        KILL IBAR

 +5        QUIT