| 1 | XMCXT ;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
|
|---|
| 8 | GET(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
|
|---|
| 20 | LIST ; 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
|
|---|
| 41 | SHOWTRAN(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
|
|---|
| 57 | LISTCURR ;
|
|---|
| 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
|
|---|
