XMCXT.m

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

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