XMA11 ;(WASH ISC)/CAP/THM-Edit message info only ;04/17/2002 07:09
;;8.0;MailMan;;Jun 28, 2002
;
; Entry point (DBIA ?):
; INFO Interactive change a message's 'information only' field.
INFO(DA) ; Change Information Only Status
N DIE,DR
S DIE=3.9,DR="1.97"
D ^DIE
Q 0
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMA11 288 printed Dec 13, 2024@02:10:44 Page 2
XMA11 ;(WASH ISC)/CAP/THM-Edit message info only ;04/17/2002 07:09
+1 ;;8.0;MailMan;;Jun 28, 2002
+2 ;
+3 ; Entry point (DBIA ?):
+4 ; INFO Interactive change a message's 'information only' field.
INFO(DA) ; Change Information Only Status
+1 NEW DIE,DR
+2 SET DIE=3.9
SET DR="1.97"
+3 DO ^DIE
+4 QUIT 0
