XT95POST.m

XT95POST ;OAK-OIFO/JDS - POST INIT FOR XT*7.3*95 ;04/22/2005  11:00

 ;;7.3;TOOLKIT;**95**;Apr 25, 1995  POST INIT

 ;

EN ;

 S $P(^VA(15.1,2,1),U,3)=180

 Q

XT95POST  ;OAK-OIFO/JDS - POST INIT FOR XT*7.3*95 ;04/22/2005  11:00

 +1       ;;7.3;TOOLKIT;**95**;Apr 25, 1995  POST INIT

 +2       ;

EN        ;

 +1        SET $PIECE(^VA(15.1,2,1),U,3)=180

 +2        QUIT