XMCXT ;ISC-SF/GMB-View Transcripts ;04/17/2002 08:34
;;8.0;MailMan;;Jun 28, 2002
; Was (WASH ISC)/THM
;
; Entry points used by MailMan options (not covered by DBIA):
; LIST XMLIST (was LST^XMC2)
Q
GET(XMFORCE) ; SEND & RECEIVE: Get # to store script in ^UTILITY/^%ZOSF(NODES)
I $G(XMFORCE),'$G(XMC("AUDIT")) K XMC("AUDIT")
Q:$D(XMC("AUDIT"))
I '$P($G(^XMB(1,1,0)),U,14),'$G(XMFORCE) S XMC("AUDIT")=0 Q
N X
L +^TMP("XMC",0)
S X=+$G(^TMP("XMC",0))+1#100
S:X=0 X=1
S (XMC("AUDIT"),^TMP("XMC",0))=X
L -^TMP("XMC",0)
K ^TMP("XMC",XMC("AUDIT"))
Q
LIST ; List transmission transcripts
N XMTEXT
;Transcript recording is controlled by field 8.3 in file 4.3.
D BLD^DIALOG(42170,"","","XMTEXT","F")
D MSG^DIALOG("WM","","","","XMTEXT")
I '$O(^TMP("XMC","")) W !!,$C(7),$$EZBLD^DIALOG(42171) Q ;No transcripts on file.
N XMTID,XMABORT
S XMABORT=0
W !,$$EZBLD^DIALOG(42172),! ;10 lines of transcript will be displayed at a time.
S XMTID=0
F S XMTID=$O(^TMP("XMC",XMTID)) Q:XMTID="" D Q:XMABORT
. D SHOWTRAN(XMTID)
. I '$O(^TMP("XMC",XMTID)) D Q
. . S XMABORT=1
. . W !!,$C(7),$$EZBLD^DIALOG(42171.1) ;No more transcripts on file.
. N DIR,X,Y
. S DIR(0)="Y"
. S DIR("A")=$$EZBLD^DIALOG(42173) ;Continue to the next transcript
. S DIR("B")=$$EZBLD^DIALOG(39053) ;NO
. D ^DIR I 'Y S XMABORT=1
Q
SHOWTRAN(XMTID) ;
N XMCNT,XMI,XMTREC,XMABORT
S (XMCNT,XMI,XMABORT)=0
F S XMI=$O(^TMP("XMC",XMTID,XMI)) Q:'XMI S XMTREC=^(XMI,0) D Q:XMABORT
. I XMCNT#10=0 D PAGE^XMXUTIL(.XMABORT) Q:XMABORT
. S XMCNT=XMCNT+1
. W !,XMTREC
N DIR,X,Y
S DIR(0)="Y"
S DIR("A")=$$EZBLD^DIALOG(42174) ;Delete this transcript
S DIR("B")=$$EZBLD^DIALOG(39053) ;NO
D ^DIR I 'Y W !,$$EZBLD^DIALOG(42175) Q ;Retained.
K ^TMP("XMC",XMTID)
W !,$$EZBLD^DIALOG(42176) ;Deleted.
Q
; The following is not used
LISTCURR ;
N XMI
W !!,$$EZBLD^DIALOG(42177) ;The current transcript is:
S XMI=0
F S XMI=$O(^TMP("XMC",XMC("AUDIT"),XMI)) Q:'XMI W !,^(XMI,0)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMCXT 2035 printed Sep 02, 2024@18:56:43 Page 2
XMCXT ;ISC-SF/GMB-View Transcripts ;04/17/2002 08:34
+1 ;;8.0;MailMan;;Jun 28, 2002
+2 ; Was (WASH ISC)/THM
+3 ;
+4 ; Entry points used by MailMan options (not covered by DBIA):
+5 ; LIST XMLIST (was LST^XMC2)
+6 QUIT
GET(XMFORCE) ; SEND & RECEIVE: Get # to store script in ^UTILITY/^%ZOSF(NODES)
+1 IF $GET(XMFORCE)
IF '$GET(XMC("AUDIT"))
KILL XMC("AUDIT")
+2 if $DATA(XMC("AUDIT"))
QUIT
+3 IF '$PIECE($GET(^XMB(1,1,0)),U,14)
IF '$GET(XMFORCE)
SET XMC("AUDIT")=0
QUIT
+4 NEW X
+5 LOCK +^TMP("XMC",0)
+6 SET X=+$GET(^TMP("XMC",0))+1#100
+7 if X=0
SET X=1
+8 SET (XMC("AUDIT"),^TMP("XMC",0))=X
+9 LOCK -^TMP("XMC",0)
+10 KILL ^TMP("XMC",XMC("AUDIT"))
+11 QUIT
LIST ; List transmission transcripts
+1 NEW XMTEXT
+2 ;Transcript recording is controlled by field 8.3 in file 4.3.
+3 DO BLD^DIALOG(42170,"","","XMTEXT","F")
+4 DO MSG^DIALOG("WM","","","","XMTEXT")
+5 ;No transcripts on file.
IF '$ORDER(^TMP("XMC",""))
WRITE !!,$CHAR(7),$$EZBLD^DIALOG(42171)
QUIT
+6 NEW XMTID,XMABORT
+7 SET XMABORT=0
+8 ;10 lines of transcript will be displayed at a time.
WRITE !,$$EZBLD^DIALOG(42172),!
+9 SET XMTID=0
+10 FOR
SET XMTID=$ORDER(^TMP("XMC",XMTID))
if XMTID=""
QUIT
Begin DoDot:1
+11 DO SHOWTRAN(XMTID)
+12 IF '$ORDER(^TMP("XMC",XMTID))
Begin DoDot:2
+13 SET XMABORT=1
+14 ;No more transcripts on file.
WRITE !!,$CHAR(7),$$EZBLD^DIALOG(42171.1)
End DoDot:2
QUIT
+15 NEW DIR,X,Y
+16 SET DIR(0)="Y"
+17 ;Continue to the next transcript
SET DIR("A")=$$EZBLD^DIALOG(42173)
+18 ;NO
SET DIR("B")=$$EZBLD^DIALOG(39053)
+19 DO ^DIR
IF 'Y
SET XMABORT=1
End DoDot:1
if XMABORT
QUIT
+20 QUIT
SHOWTRAN(XMTID) ;
+1 NEW XMCNT,XMI,XMTREC,XMABORT
+2 SET (XMCNT,XMI,XMABORT)=0
+3 FOR
SET XMI=$ORDER(^TMP("XMC",XMTID,XMI))
if 'XMI
QUIT
SET XMTREC=^(XMI,0)
Begin DoDot:1
+4 IF XMCNT#10=0
DO PAGE^XMXUTIL(.XMABORT)
if XMABORT
QUIT
+5 SET XMCNT=XMCNT+1
+6 WRITE !,XMTREC
End DoDot:1
if XMABORT
QUIT
+7 NEW DIR,X,Y
+8 SET DIR(0)="Y"
+9 ;Delete this transcript
SET DIR("A")=$$EZBLD^DIALOG(42174)
+10 ;NO
SET DIR("B")=$$EZBLD^DIALOG(39053)
+11 ;Retained.
DO ^DIR
IF 'Y
WRITE !,$$EZBLD^DIALOG(42175)
QUIT
+12 KILL ^TMP("XMC",XMTID)
+13 ;Deleted.
WRITE !,$$EZBLD^DIALOG(42176)
+14 QUIT
+15 ; The following is not used
LISTCURR ;
+1 NEW XMI
+2 ;The current transcript is:
WRITE !!,$$EZBLD^DIALOG(42177)
+3 SET XMI=0
+4 FOR
SET XMI=$ORDER(^TMP("XMC",XMC("AUDIT"),XMI))
if 'XMI
QUIT
WRITE !,^(XMI,0)
+5 QUIT