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

TIUPD.m

Go to the documentation of this file.
  1. TIUPD ; SLC/JER - Background Print Driver ;5/3/04
  1. ;;1.0;TEXT INTEGRATION UTILITIES;**7,89,100,182**;Jun 20, 1997
  1. MAIN(DA,TIUACT) ; Control Branching
  1. ; TIUACT=R ==> Release from transcription,
  1. ; V ==> Verified by MAS,
  1. ; A ==> AMENDED by Privacy Act Officer
  1. ; S ==> On completion by electronic signature by appropriate
  1. ; person (i.e., author or expected cosigner)
  1. ; TIUSTAT=1 ==> STAT urgency,
  1. ; TIURP=routine print event(s)
  1. ; TIUSP=stat print event(s)
  1. N TIUSTAT,TIURP,TIUSP,TIUDPARM
  1. D DOCPRM^TIULC1(+$G(^TIU(8925,+DA,0)),.TIUDPARM,+DA)
  1. Q:+$P($G(TIUDPARM(0)),U,8)>0!(+$G(TIUDPARM(0))'>0)
  1. Q:$G(TIUACT)=""!("ARVS"'[TIUACT)!(+$G(DA)'>0)
  1. S:$P($G(^TIU(8925,+DA,0)),U,9)="P" TIUSTAT=1
  1. S TIURP=$P($G(TIUDPARM(0)),U,6),TIUSP=$P($G(TIUDPARM(0)),U,7)
  1. I TIUACT="S" D TSKPRINT(DA,2,"",.TIUDPARM) Q
  1. I TIUACT="A" D TSKPRINT(DA,1,"",.TIUDPARM) Q
  1. I TIUACT="V",TIUSP]"","VB"[TIUSP D TSKPRINT(DA,1,"",.TIUDPARM) Q
  1. I +$G(TIUSTAT) D ;STAT Document processing
  1. . I TIUACT="R",TIUSP]"","RB"[TIUSP D TSKPRINT(DA,1,TIUSTAT,.TIUDPARM) Q
  1. . I TIUACT="V",TIUSP]"","VB"[TIUSP D TSKPRINT(DA,1,"",.TIUDPARM) Q
  1. E D ;Non-stat Document processing
  1. . I TIUACT="R",TIURP]"","RB"[TIURP D TSKPRINT(DA,1,"",.TIUDPARM) Q
  1. . I TIUACT="V",TIURP]"","VB"[TIURP D TSKPRINT(DA,1,"",.TIUDPARM) Q
  1. Q
  1. RPC(TIUY,TIUDA,TIUIO,TIUFLAG,TIUWIN) ; Remote Procedure to print a record
  1. ;TIUFLAG > 1 Chart Copy, TIUFLAG = 2 Electronically signed Chart Copy
  1. ;TIUWIN = 1 Windows printer, 0 or "" VistA printer
  1. N DFN,TIUD0,TIUX,ZTIO,ZTDTH,ZTRTN,ZTSK,ZTDESC,TIUTYPE,TIUPMTHD,TIUTNM
  1. N TIUDATE,TIUPFHDR,TIUPFNBR,TIUPGRP,TIUD13,TIUD15,TIUIDDAD
  1. K ^TMP("TIUPR",$J)
  1. I '$D(^TIU(8925,+$G(TIUDA),0)) S TIUY="1^No such record in TIU" Q
  1. I $G(TIUIO)']"" S TIUY="1^No device selected" Q
  1. ; Get Print Method for the document
  1. S TIUD0=$G(^TIU(8925,+TIUDA,0)),TIUD13=$G(^TIU(8925,+TIUDA,13))
  1. S TIUD15=$G(^TIU(8925,+TIUDA,15)),TIUTYPE=+TIUD0,TIUFLAG=+$G(TIUFLAG)
  1. S TIUDATE=$S(+TIUD15>0:+TIUD15,+TIUD13>0:+TIUD13,1:+$G(DT))
  1. I '+TIUTYPE Q
  1. S DFN=+$P(TIUD0,U,2)
  1. S TIUTNM=$$PNAME^TIULC1(+TIUTYPE)
  1. S TIUPMTHD=$$PRNTMTHD^TIULG(+TIUTYPE,TIUDA)
  1. S TIUPGRP=$$PRNTGRP^TIULG(+TIUTYPE,TIUDA)
  1. S TIUPFHDR=$$PRNTHDR^TIULG(+TIUTYPE,TIUDA)
  1. S TIUPFNBR=$$PRNTNBR^TIULG(+TIUTYPE,TIUDA)
  1. I +$$ISADDNDM^TIULC1(TIUDA) S TIUDA=+$P($G(^TIU(8925,+TIUDA,0)),U,6)
  1. S TIUIDDAD=$$HASIDDAD^TIUGBR(TIUDA)
  1. I TIUIDDAD S TIUDA=TIUIDDAD
  1. I $G(TIUPMTHD)']"" S TIUY="1^No Print Method Defined" Q
  1. ;I $G(TIUPMTHD)]"",+$G(TIUPGRP),($G(TIUPFHDR)]""),($G(TIUPFNBR)]"") D
  1. ;. S ^TMP("TIUPR",$J,$G(TIUPGRP)_"$"_$G(TIUPFHDR)_";"_DFN,1,TIUDA)=$G(TIUPFNBR)
  1. ;E S ^TMP("TIUPR",$J,DFN,1,TIUDA)=""
  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 ^TMP("TIUPR",$J,+$G(TIUPGRP)_"$"_$G(TIUPFHDR)_";"_DFN,1,TIUDA)=$G(TIUPFNBR)
  1. I +$G(TIUWIN) D
  1. . U IO
  1. . X TIUPMTHD
  1. E D
  1. . S ZTIO=TIUIO,ZTDTH=$H
  1. . S ZTDESC=$S(+TIUFLAG:"CHART",1:"WORK")_" copy of "_$$UPPER^TIULS(TIUTNM)
  1. . S ZTRTN=$P(TIUPMTHD," ",2),ZTSAVE("^TMP(""TIUPR"",$J,")=""
  1. . S ZTSAVE("TIUFLAG")="",ZTSAVE("TIUPRM*")="",ZTSAVE("DUZ(")=""
  1. . D ^%ZTLOAD ;K ^TMP("TIUPR",$J,+$P(TIUD0,U,2),1,TIUDA) P182
  1. . I $D(ZTSK) S TIUY="0^"_$S(+$G(TIUFLAG):"Chart",1:"Draft")_" copy queued"
  1. . E S TIUY="1^Task Rejected"
  1. K ^TMP("TIUPR",$J,+$G(TIUPGRP)_"$"_$G(TIUPFHDR)_";"_DFN,1,TIUDA) ;P182
  1. Q
  1. TSKPRINT(DA,TIUFLAG,TIUSTAT,TIUDPARM) ;Set up task and do a queued print
  1. ;TIUFLAG > 1 Chart Copy, TIUFLAG = 2 Electronically signed Chart Copy
  1. ;TIUSTAT > 1 Stat printed at Release, check for Stat Chart Copy Printer
  1. N TIUD0,TIUDA,TIUX,ZTIO,ZTDTH,ZTRTN,ZTSK,ZTDESC,TIUTYPE,TIUPMTHD,TIUTNM
  1. N TIUDATE,TIUPFHDR,TIUPFNBR,TIUPGRP,TIUD13,TIUD15,TIUIDDAD
  1. K ^TMP("TIUPR",$J)
  1. I '$D(^TIU(8925,+$G(DA),0)) Q
  1. ; Get Print Method for the document
  1. S TIUD0=$G(^TIU(8925,+DA,0)),TIUD13=$G(^TIU(8925,+DA,13))
  1. S TIUD15=$G(^TIU(8925,+DA,15)),TIUTYPE=+TIUD0
  1. S TIUDATE=$S(+TIUD15>0:+TIUD15,+TIUD13>0:+TIUD13,1:+$G(DT))
  1. I '+TIUTYPE Q
  1. S TIUTNM=$$PNAME^TIULC1(+TIUTYPE)
  1. S TIUPMTHD=$P($$PRNTMTHD^TIULG(+TIUTYPE,DA)," ",2)
  1. S TIUPGRP=$$PRNTGRP^TIULG(+TIUTYPE,DA)
  1. S TIUPFHDR=$$PRNTHDR^TIULG(+TIUTYPE,DA)
  1. S TIUPFNBR=$$PRNTNBR^TIULG(+TIUTYPE,DA)
  1. I +$$ISADDNDM^TIULC1(DA) S DA=+$P($G(^TIU(8925,+DA,0)),U,6)
  1. S TIUIDDAD=$$HASIDDAD^TIUGBR(DA)
  1. I TIUIDDAD S DA=TIUIDDAD
  1. I TIUPMTHD']"" Q
  1. S ZTIO=$$GETDEV(DA,.TIUDPARM,+$G(TIUSTAT)),ZTDTH=$H
  1. I ZTIO']"" K ^TMP("TIUPR",$J) Q
  1. S ZTDESC="CHART COPY OF "_$$UPPER^TIULS(TIUTNM)
  1. S ZTRTN=TIUPMTHD,ZTSAVE("^TMP(""TIUPR"",$J,")="",ZTSAVE("TIUFLAG")=""
  1. S ZTSAVE("TIUPRM*")="",ZTSAVE("DUZ(")=""
  1. ;I $G(TIUPMTHD)]"",+$G(TIUPGRP),($G(TIUPFHDR)]""),($G(TIUPFNBR)]"") D
  1. ;. S ^TMP("TIUPR",$J,$G(TIUPGRP)_"$"_$G(TIUPFHDR)_";"_+$P(TIUD0,U,2),TIUDATE,DA)=$G(TIUPFNBR)
  1. ;E S ^TMP("TIUPR",$J,+$P(TIUD0,U,2),TIUDATE,DA)=""
  1. ; -- P182: See RPC
  1. S ^TMP("TIUPR",$J,+$G(TIUPGRP)_"$"_$G(TIUPFHDR)_";"_+$P(TIUD0,U,2),TIUDATE,DA)=$G(TIUPFNBR)
  1. D ^%ZTLOAD ;K ^TMP("TIUPR",$J,+$P(TIUD0,U,2),TIUDATE,DA) P182
  1. K ^TMP("TIUPR",$J,+$G(TIUPGRP)_"$"_$G(TIUPFHDR)_";"_+$P(TIUD0,U,2),TIUDATE,DA) ;P182
  1. I $D(ZTSK),'$D(XWBOS) W !,$S(+$G(TIUFLAG):"Chart",1:"Draft")," copy queued."
  1. Q
  1. GETDEV(DA,TIUDPARM,TIUSTAT) ; Get Chart copy print device name
  1. N DIC,DIQ,DR,X,Y,TIUDPDA,TIUDIV,TIUDEV,TIUI,TIU,TIUY
  1. D GETTIU^TIULD(.TIU,+DA)
  1. S TIUDPDA=+$O(^TIU(8925.95,"B",+$G(TIUDPARM(0)),0)) I '+TIUDPDA G GETDX
  1. S TIUDIV=+$O(^TIU(8925.95,+TIUDPDA,2,"B",+$G(TIU("DIV")),0))
  1. I +TIUDIV>0 D
  1. . S DIC="^TIU(8925.95,"_TIUDPDA_",2,",DA=+TIUDIV
  1. . S DIQ="TIUDEV",DR=".02;.03" D EN^DIQ1
  1. . I +$G(TIUSTAT),($G(TIUDEV(8925.952,+DA,.03))]"") S TIUY=$G(TIUDEV(8925.952,+DA,.03))
  1. . E S TIUY=$G(TIUDEV(8925.952,+DA,.02))
  1. GETDX Q $G(TIUY)