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

TIUEPRNT.m

Go to the documentation of this file.
  1. TIUEPRNT ; SLC/JER - Handle print following entry/edit ; 5/3/04
  1. ;;1.0;TEXT INTEGRATION UTILITIES;**20,100,182**;Jun 20, 1997
  1. PRINT(TIUDA) ; Prompt and print
  1. N TIUDEV,TIUTYP,DFN,TIUPMTHD,TIUD0,TIUMSG,TIUPR,TIUDARR,TIUFLAG,TIUDPRM
  1. N TIUPGRP,TIUPFHDR,TIUPFNBR
  1. S TIUMSG="Print this note"
  1. S TIUPR=$$READ^TIUU("Y",TIUMSG,"No")
  1. I +TIUPR'>0 Q
  1. I +$$ISADDNDM^TIULC1(TIUDA) S TIUDA=$P($G(^TIU(8925,+TIUDA,0)),U,6)
  1. I $G(^TIU(8925,TIUDA,21)) S TIUDA=^TIU(8925,TIUDA,21)
  1. S TIUD0=$G(^TIU(8925,TIUDA,0))
  1. S TIUTYP=$P(TIUD0,U),DFN=$P(TIUD0,U,2)
  1. I +TIUTYP'>0 Q
  1. S TIUPMTHD=$$PRNTMTHD^TIULG(+TIUTYP)
  1. S TIUPGRP=$$PRNTGRP^TIULG(+TIUTYP)
  1. S TIUPFHDR=$$PRNTHDR^TIULG(+TIUTYP)
  1. S TIUPFNBR=$$PRNTNBR^TIULG(+TIUTYP)
  1. D DOCPRM^TIULC1(+TIUTYP,.TIUDPRM,TIUDA)
  1. I +$P($G(TIUDPRM(0)),U,9) S TIUFLAG=$$FLAG^TIUPRPN3
  1. ;I $G(TIUPMTHD)]"",+$G(TIUPGRP),($G(TIUPFHDR)]""),($G(TIUPFNBR)]"") S TIUDARR(TIUPMTHD,$G(TIUPGRP)_"$"_TIUPFHDR_";"_DFN,1,TIUDA)=TIUPFNBR
  1. ;E S TIUDARR(TIUPMTHD,DFN,1,TIUDA)=""
  1. I $G(TIUPMTHD)']"" W !,$C(7),"No Print Method Defined for ",$P($G(^TIU(8925.1,+TIUTYP,0)),U) H 2 G PRINT1X
  1. ; -- P182: Set array same whether or not flds are defined, with
  1. ; TIUPGRP piece possibly 0, TIUPFHDR piece possibly null, and
  1. ; array value TIUPFNBR possibly null.
  1. S TIUDARR(TIUPMTHD,+$G(TIUPGRP)_"$"_$G(TIUPFHDR)_";"_DFN,1,TIUDA)=$G(TIUPFNBR)
  1. S TIUDEV=$$DEVICE^TIUDEV(.IO) ; Get Device/allow queueing
  1. I $S($G(IO)']"":1,TIUDEV']"":1,1:0) D ^%ZISC Q
  1. I $D(IO("Q")) D QUE^TIUDEV("PRINTQ^TIUEPRNT",TIUDEV) G PRINT1X
  1. D PRINTQ,^%ZISC
  1. PRINT1X ; Exit single document print
  1. Q
  1. PRINTQ ; Entry point for queued single document print
  1. D PRNTDOC(TIUPMTHD,.TIUDARR)
  1. Q
  1. PRNTDOC(TIUPMTHD,TIUDARR) ; Print a single document type
  1. ; Receives TIUPMTHD & TIUDARR
  1. N TIUDA
  1. I '+$D(TIUDARR) W !,"No Documents selected." Q
  1. M ^TMP("TIUPR",$J)=TIUDARR(TIUPMTHD)
  1. I TIUPMTHD']"" D G PRNTDOCX
  1. . W !!,"No Print Method Defined for ",$P(TIUTYP,U,2) H 2
  1. X TIUPMTHD
  1. PRNTDOCX ; Exit single document type print
  1. K ^TMP("TIUPR",$J)
  1. Q