VALMPT.m

VALMPT ;MJK;05:33 PM  15 Dec 1992;

 ;;1;List Manager;;Aug 13, 1993

 ;

POST ; -- post init

 ;

 ; -- bring VALM protocols

 D ^VALMONIT

 ;

 ; -- add list tempaltes

 W !!,">>> List Template installation..."

 D ^VALML

 ;

 ; -- load XQOR routines if necessary

 D XQOR^VALMPT1

 ;

 ; -- send message(s) to developers

 S X="VALMINIY" X ^%ZOSF("TEST") I $T D ^VALMINIY

 Q

 ;

VALMPT    ;MJK;05:33 PM  15 Dec 1992;

 +1       ;;1;List Manager;;Aug 13, 1993

 +2       ;

POST      ; -- post init

 +1       ;

 +2       ; -- bring VALM protocols

 +3        DO ^VALMONIT

 +4       ;

 +5       ; -- add list tempaltes

 +6        WRITE !!,">>> List Template installation..."

 +7        DO ^VALML

 +8       ;

 +9       ; -- load XQOR routines if necessary

 +10       DO XQOR^VALMPT1

 +11      ;

 +12      ; -- send message(s) to developers

 +13       SET X="VALMINIY"

           XECUTE ^%ZOSF("TEST")

           IF $TEST

               DO ^VALMINIY

 +14       QUIT 

 +15      ;