Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XMCXT

XMCXT.m

Go to the documentation of this file.
  1. XMCXT ;ISC-SF/GMB-View Transcripts ;04/17/2002 08:34
  1. ;;8.0;MailMan;;Jun 28, 2002
  1. ; Was (WASH ISC)/THM
  1. ;
  1. ; Entry points used by MailMan options (not covered by DBIA):
  1. ; LIST XMLIST (was LST^XMC2)
  1. Q
  1. GET(XMFORCE) ; SEND & RECEIVE: Get # to store script in ^UTILITY/^%ZOSF(NODES)
  1. I $G(XMFORCE),'$G(XMC("AUDIT")) K XMC("AUDIT")
  1. Q:$D(XMC("AUDIT"))
  1. I '$P($G(^XMB(1,1,0)),U,14),'$G(XMFORCE) S XMC("AUDIT")=0 Q
  1. N X
  1. L +^TMP("XMC",0)
  1. S X=+$G(^TMP("XMC",0))+1#100
  1. S:X=0 X=1
  1. S (XMC("AUDIT"),^TMP("XMC",0))=X
  1. L -^TMP("XMC",0)
  1. K ^TMP("XMC",XMC("AUDIT"))
  1. Q
  1. LIST ; List transmission transcripts
  1. N XMTEXT
  1. ;Transcript recording is controlled by field 8.3 in file 4.3.
  1. D BLD^DIALOG(42170,"","","XMTEXT","F")
  1. D MSG^DIALOG("WM","","","","XMTEXT")
  1. I '$O(^TMP("XMC","")) W !!,$C(7),$$EZBLD^DIALOG(42171) Q ;No transcripts on file.
  1. N XMTID,XMABORT
  1. S XMABORT=0
  1. W !,$$EZBLD^DIALOG(42172),! ;10 lines of transcript will be displayed at a time.
  1. S XMTID=0
  1. F S XMTID=$O(^TMP("XMC",XMTID)) Q:XMTID="" D Q:XMABORT
  1. . D SHOWTRAN(XMTID)
  1. . I '$O(^TMP("XMC",XMTID)) D Q
  1. . . S XMABORT=1
  1. . . W !!,$C(7),$$EZBLD^DIALOG(42171.1) ;No more transcripts on file.
  1. . N DIR,X,Y
  1. . S DIR(0)="Y"
  1. . S DIR("A")=$$EZBLD^DIALOG(42173) ;Continue to the next transcript
  1. . S DIR("B")=$$EZBLD^DIALOG(39053) ;NO
  1. . D ^DIR I 'Y S XMABORT=1
  1. Q
  1. SHOWTRAN(XMTID) ;
  1. N XMCNT,XMI,XMTREC,XMABORT
  1. S (XMCNT,XMI,XMABORT)=0
  1. F S XMI=$O(^TMP("XMC",XMTID,XMI)) Q:'XMI S XMTREC=^(XMI,0) D Q:XMABORT
  1. . I XMCNT#10=0 D PAGE^XMXUTIL(.XMABORT) Q:XMABORT
  1. . S XMCNT=XMCNT+1
  1. . W !,XMTREC
  1. N DIR,X,Y
  1. S DIR(0)="Y"
  1. S DIR("A")=$$EZBLD^DIALOG(42174) ;Delete this transcript
  1. S DIR("B")=$$EZBLD^DIALOG(39053) ;NO
  1. D ^DIR I 'Y W !,$$EZBLD^DIALOG(42175) Q ;Retained.
  1. K ^TMP("XMC",XMTID)
  1. W !,$$EZBLD^DIALOG(42176) ;Deleted.
  1. Q
  1. ; The following is not used
  1. LISTCURR ;
  1. N XMI
  1. W !!,$$EZBLD^DIALOG(42177) ;The current transcript is:
  1. S XMI=0
  1. F S XMI=$O(^TMP("XMC",XMC("AUDIT"),XMI)) Q:'XMI W !,^(XMI,0)
  1. Q