Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: XT95POST

XT95POST.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXT95POST   160     printed  Feb 19, 2025@00:07:08                                                                                                                                                                                                     Page 2

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