- 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 Feb 18, 2025@23:37:36 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