- XMFAX ;ISC-SF/GMB-Fax ;04/08/2002 14:46
- ;;8.0;MailMan;;Jun 28, 2002
- FAX(XMZ) ; Fax a message
- N XMABORT,XMCNT,XMFIEN,XMQUIET
- S XMQUIET=1 ; "quiet flag"
- S XMABORT=0
- D CRE8FAX(XMZ,XMQUIET,.XMCNT,.XMABORT) Q:XMABORT
- D SENDFAX(XMQUIET,XMFIEN,XMCNT)
- Q
- CRE8FAX(XMZ,XMQUIET,XMCNT,XMABORT) ;
- N XMFID
- D RECORD(XMQUIET,.XMFID,.XMFIEN,.XMABORT) Q:XMABORT
- L +^AKF("FAX",XMFIEN)
- D RECIPS(XMZ,XMFID,XMFIEN,.XMCNT)
- D BODY(XMZ,XMFIEN)
- L -^AKF("FAX",XMFIEN)
- Q
- RECORD(AKQ,AKFAX,AKIEN,XMABORT) ; Add record to fax file
- ; AKFAX Fax ID
- ; AKIEN Record number in ^AKF("FAX",
- D NE^AKFAX0 I '$D(AKFAX) S XMABORT=1 Q ; Add record to fax file
- S $P(^AKF("FAX",AKIEN,0),U,4)=1 ; This is a MailMan-generated fax
- Q
- RECIPS(XMZ,XMFID,XMFIEN,XMCNT) ; Add recipients to fax record and update recipient record in mail msg.
- N I,XMREC,XMIENS,XMFDA
- S I="",XMCNT=0
- F S I=$O(^XMB(3.9,XMZ,1,"AFAX",I)) Q:I="" D
- . S XMREC=$G(^AKF("FAXR",I,0)) Q:XMREC=""
- . S XMCNT=XMCNT+1
- . S XMIENS="+1,"_XMFIEN_","
- . S XMFDA(589500.01,XMIENS,.01)=I ; Pointer to recipient
- . S XMFDA(589500.01,XMIENS,1)=$$EZBLD^DIALOG(39303.7) ;Awaiting Transmission Path
- . S XMFDA(589500.01,XMIENS,2)=$P(XMREC,U,2) ; Recipient fax phone
- . S XMFDA(589500.01,XMIENS,3)=$P(XMREC,U,3) ; Recipient physical location
- . S XMFDA(589500.01,XMIENS,4)=$P(XMREC,U,4) ; Recipient voice phone
- . D UPDATE^DIE("","XMFDA") ; Add recipient to fax record
- . S XMIENS=$O(^XMB(3.9,XMZ,1,"AFAX",I,""))_","_XMZ_","
- . S XMFDA(3.91,XMIENS,4)=$$NOW^XLFDT() ; Current date/time
- . S XMFDA(3.91,XMIENS,5)="@" ; get rid of status
- . S XMFDA(3.91,XMIENS,13)="@" ; get rid of xref
- . S XMFDA(3.91,XMIENS,14)=XMFID ; fax id
- . D FILE^DIE("","XMFDA") ; Update mail msg recipient
- Q
- BODY(XMZ,XMFIEN) ; Copy the msg text to the fax text
- N XMTEXT,XMREC,I,XMDATE,XMFROM
- S XMREC=^XMB(3.9,XMZ,0)
- S I=1,XMTEXT(I)=$$EZBLD^DIALOG(34536,$P(XMREC,U,1))_" "_$$EZBLD^DIALOG(34537,XMZ) ; Subj: |1| [#|1|]
- S XMDATE=$$MMDT^XMXUTIL1($P(XMREC,U,3))
- I $L(XMTEXT(I))+$L(XMDATE)+1>79 S I=I+1,XMTEXT(I)=XMDATE
- E S XMTEXT(I)=XMTEXT(I)_" "_XMDATE
- S I=I+1,XMTEXT(I)=$$EZBLD^DIALOG(39330,^XMB("NETNAME")) ;Site: |1|
- S I=I+1,XMTEXT(I)=$$EZBLD^DIALOG(34538,$$NAME^XMXUTIL($P(XMREC,U,2),1)) ; From: |1|
- I DUZ'=$P(XMREC,U,2) S I=I+1,XMTEXT(I)=$$EZBLD^DIALOG(39331,$$NAME^XMXUTIL(DUZ,1)) ;Sender: |1|
- S I=I+1,XMTEXT(I)="-------------------------------------------------------------------------------"
- S I=I+1,XMTEXT(I)=""
- D WP^DIE(589500,XMFIEN_",",7,"","XMTEXT")
- D WP^DIE(589500,XMFIEN_",",7,"A","^XMB(3.9,"_XMZ_",2)")
- Q
- SENDFAX(AKQ,AKIEN,AKML) ;
- W !,$$EZBLD^DIALOG(39332) ;Sending to fax
- D QUE^AKFAX0
- Q
- FAXHDR(XMFID,XMFTO) ; Print the fax header
- W !,$$EZBLD^DIALOG(39333,XMFTO) ;MailMan FAX for |1|
- N XMPARM S XMPARM(1)=XMFID,XMPARM(2)=$$FMTE^XLFDT($$NOW^XLFDT,5)
- W !,$$EZBLD^DIALOG(39334,.XMPARM),! ;FAXmail ID: |1|, Faxed: |2|
- Q
- XMFAX ;ISC-SF/GMB-Fax ;04/08/2002 14:46
- +1 ;;8.0;MailMan;;Jun 28, 2002
- FAX(XMZ) ; Fax a message
- +1 NEW XMABORT,XMCNT,XMFIEN,XMQUIET
- +2 ; "quiet flag"
- SET XMQUIET=1
- +3 SET XMABORT=0
- +4 DO CRE8FAX(XMZ,XMQUIET,.XMCNT,.XMABORT)
- IF XMABORT
- QUIT
- +5 DO SENDFAX(XMQUIET,XMFIEN,XMCNT)
- +6 QUIT
- CRE8FAX(XMZ,XMQUIET,XMCNT,XMABORT) ;
- +1 NEW XMFID
- +2 DO RECORD(XMQUIET,.XMFID,.XMFIEN,.XMABORT)
- IF XMABORT
- QUIT
- +3 LOCK +^AKF("FAX",XMFIEN)
- +4 DO RECIPS(XMZ,XMFID,XMFIEN,.XMCNT)
- +5 DO BODY(XMZ,XMFIEN)
- +6 LOCK -^AKF("FAX",XMFIEN)
- +7 QUIT
- RECORD(AKQ,AKFAX,AKIEN,XMABORT) ; Add record to fax file
- +1 ; AKFAX Fax ID
- +2 ; AKIEN Record number in ^AKF("FAX",
- +3 ; Add record to fax file
- DO NE^AKFAX0
- IF '$DATA(AKFAX)
- SET XMABORT=1
- QUIT
- +4 ; This is a MailMan-generated fax
- SET $PIECE(^AKF("FAX",AKIEN,0),U,4)=1
- +5 QUIT
- RECIPS(XMZ,XMFID,XMFIEN,XMCNT) ; Add recipients to fax record and update recipient record in mail msg.
- +1 NEW I,XMREC,XMIENS,XMFDA
- +2 SET I=""
- SET XMCNT=0
- +3 FOR
- SET I=$ORDER(^XMB(3.9,XMZ,1,"AFAX",I))
- IF I=""
- QUIT
- Begin DoDot:1
- +4 SET XMREC=$GET(^AKF("FAXR",I,0))
- IF XMREC=""
- QUIT
- +5 SET XMCNT=XMCNT+1
- +6 SET XMIENS="+1,"_XMFIEN_","
- +7 ; Pointer to recipient
- SET XMFDA(589500.01,XMIENS,.01)=I
- +8 ;Awaiting Transmission Path
- SET XMFDA(589500.01,XMIENS,1)=$$EZBLD^DIALOG(39303.7)
- +9 ; Recipient fax phone
- SET XMFDA(589500.01,XMIENS,2)=$PIECE(XMREC,U,2)
- +10 ; Recipient physical location
- SET XMFDA(589500.01,XMIENS,3)=$PIECE(XMREC,U,3)
- +11 ; Recipient voice phone
- SET XMFDA(589500.01,XMIENS,4)=$PIECE(XMREC,U,4)
- +12 ; Add recipient to fax record
- DO UPDATE^DIE("","XMFDA")
- +13 SET XMIENS=$ORDER(^XMB(3.9,XMZ,1,"AFAX",I,""))_","_XMZ_","
- +14 ; Current date/time
- SET XMFDA(3.91,XMIENS,4)=$$NOW^XLFDT()
- +15 ; get rid of status
- SET XMFDA(3.91,XMIENS,5)="@"
- +16 ; get rid of xref
- SET XMFDA(3.91,XMIENS,13)="@"
- +17 ; fax id
- SET XMFDA(3.91,XMIENS,14)=XMFID
- +18 ; Update mail msg recipient
- DO FILE^DIE("","XMFDA")
- End DoDot:1
- +19 QUIT
- BODY(XMZ,XMFIEN) ; Copy the msg text to the fax text
- +1 NEW XMTEXT,XMREC,I,XMDATE,XMFROM
- +2 SET XMREC=^XMB(3.9,XMZ,0)
- +3 ; Subj: |1| [#|1|]
- SET I=1
- SET XMTEXT(I)=$$EZBLD^DIALOG(34536,$PIECE(XMREC,U,1))_" "_$$EZBLD^DIALOG(34537,XMZ)
- +4 SET XMDATE=$$MMDT^XMXUTIL1($PIECE(XMREC,U,3))
- +5 IF $LENGTH(XMTEXT(I))+$LENGTH(XMDATE)+1>79
- SET I=I+1
- SET XMTEXT(I)=XMDATE
- +6 IF '$TEST
- SET XMTEXT(I)=XMTEXT(I)_" "_XMDATE
- +7 ;Site: |1|
- SET I=I+1
- SET XMTEXT(I)=$$EZBLD^DIALOG(39330,^XMB("NETNAME"))
- +8 ; From: |1|
- SET I=I+1
- SET XMTEXT(I)=$$EZBLD^DIALOG(34538,$$NAME^XMXUTIL($PIECE(XMREC,U,2),1))
- +9 ;Sender: |1|
- IF DUZ'=$PIECE(XMREC,U,2)
- SET I=I+1
- SET XMTEXT(I)=$$EZBLD^DIALOG(39331,$$NAME^XMXUTIL(DUZ,1))
- +10 SET I=I+1
- SET XMTEXT(I)="-------------------------------------------------------------------------------"
- +11 SET I=I+1
- SET XMTEXT(I)=""
- +12 DO WP^DIE(589500,XMFIEN_",",7,"","XMTEXT")
- +13 DO WP^DIE(589500,XMFIEN_",",7,"A","^XMB(3.9,"_XMZ_",2)")
- +14 QUIT
- SENDFAX(AKQ,AKIEN,AKML) ;
- +1 ;Sending to fax
- WRITE !,$$EZBLD^DIALOG(39332)
- +2 DO QUE^AKFAX0
- +3 QUIT
- FAXHDR(XMFID,XMFTO) ; Print the fax header
- +1 ;MailMan FAX for |1|
- WRITE !,$$EZBLD^DIALOG(39333,XMFTO)
- +2 NEW XMPARM
- SET XMPARM(1)=XMFID
- SET XMPARM(2)=$$FMTE^XLFDT($$NOW^XLFDT,5)
- +3 ;FAXmail ID: |1|, Faxed: |2|
- WRITE !,$$EZBLD^DIALOG(39334,.XMPARM),!
- +4 QUIT
