source: WorldVistAEHR/trunk/r/MAILMAN-XM/XMCXT.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1XMCXT ;ISC-SF/GMB-View Transcripts ;04/17/2002 08:34
2 ;;8.0;MailMan;;Jun 28, 2002
3 ; Was (WASH ISC)/THM
4 ;
5 ; Entry points used by MailMan options (not covered by DBIA):
6 ; LIST XMLIST (was LST^XMC2)
7 Q
8GET(XMFORCE) ; SEND & RECEIVE: Get # to store script in ^UTILITY/^%ZOSF(NODES)
9 I $G(XMFORCE),'$G(XMC("AUDIT")) K XMC("AUDIT")
10 Q:$D(XMC("AUDIT"))
11 I '$P($G(^XMB(1,1,0)),U,14),'$G(XMFORCE) S XMC("AUDIT")=0 Q
12 N X
13 L +^TMP("XMC",0)
14 S X=+$G(^TMP("XMC",0))+1#100
15 S:X=0 X=1
16 S (XMC("AUDIT"),^TMP("XMC",0))=X
17 L -^TMP("XMC",0)
18 K ^TMP("XMC",XMC("AUDIT"))
19 Q
20LIST ; List transmission transcripts
21 N XMTEXT
22 ;Transcript recording is controlled by field 8.3 in file 4.3.
23 D BLD^DIALOG(42170,"","","XMTEXT","F")
24 D MSG^DIALOG("WM","","","","XMTEXT")
25 I '$O(^TMP("XMC","")) W !!,$C(7),$$EZBLD^DIALOG(42171) Q ;No transcripts on file.
26 N XMTID,XMABORT
27 S XMABORT=0
28 W !,$$EZBLD^DIALOG(42172),! ;10 lines of transcript will be displayed at a time.
29 S XMTID=0
30 F S XMTID=$O(^TMP("XMC",XMTID)) Q:XMTID="" D Q:XMABORT
31 . D SHOWTRAN(XMTID)
32 . I '$O(^TMP("XMC",XMTID)) D Q
33 . . S XMABORT=1
34 . . W !!,$C(7),$$EZBLD^DIALOG(42171.1) ;No more transcripts on file.
35 . N DIR,X,Y
36 . S DIR(0)="Y"
37 . S DIR("A")=$$EZBLD^DIALOG(42173) ;Continue to the next transcript
38 . S DIR("B")=$$EZBLD^DIALOG(39053) ;NO
39 . D ^DIR I 'Y S XMABORT=1
40 Q
41SHOWTRAN(XMTID) ;
42 N XMCNT,XMI,XMTREC,XMABORT
43 S (XMCNT,XMI,XMABORT)=0
44 F S XMI=$O(^TMP("XMC",XMTID,XMI)) Q:'XMI S XMTREC=^(XMI,0) D Q:XMABORT
45 . I XMCNT#10=0 D PAGE^XMXUTIL(.XMABORT) Q:XMABORT
46 . S XMCNT=XMCNT+1
47 . W !,XMTREC
48 N DIR,X,Y
49 S DIR(0)="Y"
50 S DIR("A")=$$EZBLD^DIALOG(42174) ;Delete this transcript
51 S DIR("B")=$$EZBLD^DIALOG(39053) ;NO
52 D ^DIR I 'Y W !,$$EZBLD^DIALOG(42175) Q ;Retained.
53 K ^TMP("XMC",XMTID)
54 W !,$$EZBLD^DIALOG(42176) ;Deleted.
55 Q
56 ; The following is not used
57LISTCURR ;
58 N XMI
59 W !!,$$EZBLD^DIALOG(42177) ;The current transcript is:
60 S XMI=0
61 F S XMI=$O(^TMP("XMC",XMC("AUDIT"),XMI)) Q:'XMI W !,^(XMI,0)
62 Q
Note: See TracBrowser for help on using the repository browser.