GMRCUTL2 ;SLC/DCM,JFR,MA - General Utilities ;04/27/2017 15:19
;;3.0;CONSULT/REQUEST TRACKING;**89**;DEC 27, 1997;Build 62
;Consult Closure Tool
;
; This routine invokes IA #2876,3121
;
PRNT(SRVCIFN,GMRCO) ;print form 513 secondary printer
N ORVP,GMRCDEV,GMRCQUED,IOP,%ZIS,POP,ZTDTH,ZTDESC,ZTIO,ZTRTN,ZTSK,GMRCA
UDT I '$G(SRVCIFN) S SRVCIFN=+$P(^GMR(123,GMRCO,0),U,5)
Q:'$D(^GMR(123.5,SRVCIFN,3)) Q:'$P(^GMR(123.5,SRVCIFN,3),"^")
S IOP="`"_$P(^GMR(123.5,SRVCIFN,3),"^")
S %ZIS="N" D ^%ZIS I POP S %ZIS=0 D HOME^%ZIS Q
S GMRCDEV=ION,GMRCQUED=1,GMRCAUDT=1
S ZTRTN="PRNT^GMRCP5A("_(+GMRCO)_","_(+$G(TIUFLG))_",1,"""_$G(GMRCCPY,"W")_""",0,"_(GMRCAUDT)_")"
S ZTDESC="PRINT SECOND COPY OF CONSULT FORM 513 FOR NEW CONSULT"
S ZTIO=GMRCDEV,ZTDTH=$H
D ^%ZTLOAD
S %ZIS=0 D HOME^%ZIS
K GMRCQUED,GMRCDEV1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCUTL2 835 printed Sep 02, 2024@18:33:07 Page 2
GMRCUTL2 ;SLC/DCM,JFR,MA - General Utilities ;04/27/2017 15:19
+1 ;;3.0;CONSULT/REQUEST TRACKING;**89**;DEC 27, 1997;Build 62
+2 ;Consult Closure Tool
+3 ;
+4 ; This routine invokes IA #2876,3121
+5 ;
PRNT(SRVCIFN,GMRCO) ;print form 513 secondary printer
+1 NEW ORVP,GMRCDEV,GMRCQUED,IOP,%ZIS,POP,ZTDTH,ZTDESC,ZTIO,ZTRTN,ZTSK,GMRCA
UDT IF '$GET(SRVCIFN)
SET SRVCIFN=+$PIECE(^GMR(123,GMRCO,0),U,5)
+1 if '$DATA(^GMR(123.5,SRVCIFN,3))
QUIT
if '$PIECE(^GMR(123.5,SRVCIFN,3),"^")
QUIT
+2 SET IOP="`"_$PIECE(^GMR(123.5,SRVCIFN,3),"^")
+3 SET %ZIS="N"
DO ^%ZIS
IF POP
SET %ZIS=0
DO HOME^%ZIS
QUIT
+4 SET GMRCDEV=ION
SET GMRCQUED=1
SET GMRCAUDT=1
+5 SET ZTRTN="PRNT^GMRCP5A("_(+GMRCO)_","_(+$GET(TIUFLG))_",1,"""_$GET(GMRCCPY,"W")_""",0,"_(GMRCAUDT)_")"
+6 SET ZTDESC="PRINT SECOND COPY OF CONSULT FORM 513 FOR NEW CONSULT"
+7 SET ZTIO=GMRCDEV
SET ZTDTH=$HOROLOG
+8 DO ^%ZTLOAD
+9 SET %ZIS=0
DO HOME^%ZIS
+10 KILL GMRCQUED,GMRCDEV1
+11 QUIT