AUP1POST.m

AUP1POST ; TUCSON/LAB - POST INIT TO AUP1 ;

 ;;93.2;Patch to AUPN - PROBLEM DICT;*1*;SEP 07, 1993

 ;

 W !,"I WILL NOW RE-COMPILE SOME TEMPLATES.",!!

 D ^APCDRECM

 Q

AUP1POST  ; TUCSON/LAB - POST INIT TO AUP1 ;

 +1       ;;93.2;Patch to AUPN - PROBLEM DICT;*1*;SEP 07, 1993

 +2       ;

 +3        WRITE !,"I WILL NOW RE-COMPILE SOME TEMPLATES.",!!

 +4        DO ^APCDRECM

 +5        QUIT