GMRCUTL2.m

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 ---GMRCUTL2   835     printed  Mar 13, 2025@20:52:25                                                                                                                                                                                                     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