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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVALMPT 384 printed Dec 13, 2024@02:10:10 Page 2
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 ;
