ABMDE32X.m

ABMDE32X ; IHS/SD/SDR - ERROR CHECKING - PAGE 3B ;      

 ;;2.6;IHS 3P BILLING SYSTEM;**6**;NOV 12, 2009

 ; IHS/SD/SDR - abm*2.6*6 - New routine to do error checking on page 3B

 ;

 ;errors go here

XIT Q

ERR ;

 D ABMDE32X

 S ABME("TITL")="PAGE 3B - Third Party Liability/Worker's Comp"

 G XIT

 Q

ABMDE32X  ; IHS/SD/SDR - ERROR CHECKING - PAGE 3B ;      

 +1       ;;2.6;IHS 3P BILLING SYSTEM;**6**;NOV 12, 2009

 +2       ; IHS/SD/SDR - abm*2.6*6 - New routine to do error checking on page 3B

 +3       ;

 +4       ;errors go here

XIT        QUIT 

ERR       ;

 +1        DO ABMDE32X

 +2        SET ABME("TITL")="PAGE 3B - Third Party Liability/Worker's Comp"

 +3        GOTO XIT

 +4        QUIT