| Code |
N DFN,TIUD0,TIUX,ZTIO,ZTDTH,ZTRTN,ZTSK,ZTDESC,TIUTYPE,TIUPMTHD,TIUTNM
N TIUDATE,TIUPFHDR,TIUPFNBR,TIUPGRP,TIUD13,TIUD15,TIUIDDAD
K ^TMP("TIUPR",$J)
I '$D(^TIU(8925,+$G(TIUDA),0)) S TIUY="1^No such record in TIU" Q
I $G(TIUIO)']"" S TIUY="1^No device selected" Q
S TIUD0=$G(^TIU(8925,+TIUDA,0)),TIUD13=$G(^TIU(8925,+TIUDA,13))
S TIUD15=$G(^TIU(8925,+TIUDA,15)),TIUTYPE=+TIUD0,TIUFLAG=+$G(TIUFLAG)
S TIUDATE=$S(+TIUD15>0:+TIUD15,+TIUD13>0:+TIUD13,1:+$G(DT))
I '+TIUTYPE Q
S DFN=+$P(TIUD0,U,2)
S TIUTNM=$$PNAME^TIULC1(+TIUTYPE)
S TIUPMTHD=$$PRNTMTHD^TIULG(+TIUTYPE,TIUDA)
S TIUPGRP=$$PRNTGRP^TIULG(+TIUTYPE,TIUDA)
S TIUPFHDR=$$PRNTHDR^TIULG(+TIUTYPE,TIUDA)
S TIUPFNBR=$$PRNTNBR^TIULG(+TIUTYPE,TIUDA)
I +$$ISADDNDM^TIULC1(TIUDA) S TIUDA=+$P($G(^TIU(8925,+TIUDA,0)),U,6)
S TIUIDDAD=$$HASIDDAD^TIUGBR(TIUDA)
I TIUIDDAD S TIUDA=TIUIDDAD
I $G(TIUPMTHD)']"" S TIUY="1^No Print Method Defined" Q
S ^TMP("TIUPR",$J,+$G(TIUPGRP)_"$"_$G(TIUPFHDR)_";"_DFN,1,TIUDA)=$G(TIUPFNBR)
I +$G(TIUWIN) D
. U IO
. X TIUPMTHD
E D
. S ZTIO=TIUIO,ZTDTH=$H
. S ZTDESC=$S(+TIUFLAG:"CHART",1:"WORK")_" copy of "_$$UPPER^TIULS(TIUTNM)
. S ZTRTN=$P(TIUPMTHD," ",2),ZTSAVE("^TMP(""TIUPR"",$J,")=""
. S ZTSAVE("TIUFLAG")="",ZTSAVE("TIUPRM*")="",ZTSAVE("DUZ(")=""
. D ^%ZTLOAD ;K ^TMP("TIUPR",$J,+$P(TIUD0,U,2),1,TIUDA) P182
. I $D(ZTSK) S TIUY="0^"_$S(+$G(TIUFLAG):"Chart",1:"Draft")_" copy queued"
. E S TIUY="1^Task Rejected"
K ^TMP("TIUPR",$J,+$G(TIUPGRP)_"$"_$G(TIUPFHDR)_";"_DFN,1,TIUDA) ;P182
|