IBDFQEA1.m

IBDFQEA1 ;ALB/MAF - ENCOUNTER FORM - BUILD FORM(editing action for group's selections list) cont. ;JUN 16,1995

 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997

 ;

FORMAT ;allows the user to format all of the selections in the group in mass

 ;

 D FORMAT^IBDF9A1

 D INIT^IBDFQSL1 S VALMBCK="R"

 Q

IBDFQEA1  ;ALB/MAF - ENCOUNTER FORM - BUILD FORM(editing action for group's selections list) cont. ;JUN 16,1995

 +1       ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997

 +2       ;

FORMAT    ;allows the user to format all of the selections in the group in mass

 +1       ;

 +2        DO FORMAT^IBDF9A1

 +3        DO INIT^IBDFQSL1

           SET VALMBCK="R"

 +4        QUIT