GMTSPD2 ; SLC/JER,SBW - Interactive Print-by-Loc (cont) ; 02/27/2002
;;2.7;Health Summary;**49**;Oct 20, 1995
;
; External References
; DBIA 10026 ^DIR
; DBIA 10076 ^XUSEC("GMTS VIEW ONLY"
; DBIA 10086 ^%ZIS
; DBIA 10063 ^%ZTLOAD
; DBIA 10089 ^%ZISC
;
RXAP() ; Ask about inclusion of OP Rx Action Profile
N %,DIR,X,Y
I $P($G(^GMT(142.99,1,0)),U,2)'="Y" S Y=0 G RXAPX
S DIR(0)="YO",DIR("A")="Include Outpatient Pharmacy Action Profile (Y/N)"
S DIR("B")="NO" D ^DIR
RXAPX ; Rx Action Profile Exit
Q Y
HSOUT ; Device Handling/Output control
N IOP,%ZIS
I $D(^XUSEC("GMTS VIEW ONLY",DUZ)) D NOQUE Q
S %ZIS="Q",%ZIS("B")="HOME" D ^%ZIS Q:POP
D @$S(+$G(GMPSAP)&(IO'=IO(0)):"QUE",$D(IO("Q")):"QUE",1:"NOQUE")
Q
QUE ; Set ZT parameters and tasks ^GMTSPL
N ZTSAVE,ZTDESC,ZTDTH,ZTIO,ZTRTN,% K IO("Q")
F %="U","GMTSTYP","GMTSCDT","GMTSSC(","GMPSAP" S ZTSAVE(%)=""
S ZTRTN="^GMTSPL",ZTDESC="HEALTH SUMMARY (BY LOCATION)",ZTIO=ION
D ^%ZTLOAD W !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!")
D ^%ZISC
Q
NOQUE ; Calls ^GMTSPL in interactive mode
U:IO'=IO(0) IO D ^GMTSPL,^%ZISC
Q
LOCTXT(LOC) ; Change hospital location code to text name
Q $S(LOC="W":"Ward",LOC="OR":"Operating Room",LOC="C":"Clinic",1:"Hospital Location")
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSPD2 1340 printed Dec 13, 2024@01:59:10 Page 2
GMTSPD2 ; SLC/JER,SBW - Interactive Print-by-Loc (cont) ; 02/27/2002
+1 ;;2.7;Health Summary;**49**;Oct 20, 1995
+2 ;
+3 ; External References
+4 ; DBIA 10026 ^DIR
+5 ; DBIA 10076 ^XUSEC("GMTS VIEW ONLY"
+6 ; DBIA 10086 ^%ZIS
+7 ; DBIA 10063 ^%ZTLOAD
+8 ; DBIA 10089 ^%ZISC
+9 ;
RXAP() ; Ask about inclusion of OP Rx Action Profile
+1 NEW %,DIR,X,Y
+2 IF $PIECE($GET(^GMT(142.99,1,0)),U,2)'="Y"
SET Y=0
GOTO RXAPX
+3 SET DIR(0)="YO"
SET DIR("A")="Include Outpatient Pharmacy Action Profile (Y/N)"
+4 SET DIR("B")="NO"
DO ^DIR
RXAPX ; Rx Action Profile Exit
+1 QUIT Y
HSOUT ; Device Handling/Output control
+1 NEW IOP,%ZIS
+2 IF $DATA(^XUSEC("GMTS VIEW ONLY",DUZ))
DO NOQUE
QUIT
+3 SET %ZIS="Q"
SET %ZIS("B")="HOME"
DO ^%ZIS
if POP
QUIT
+4 DO @$SELECT(+$GET(GMPSAP)&(IO'=IO(0)):"QUE",$DATA(IO("Q")):"QUE",1:"NOQUE")
+5 QUIT
QUE ; Set ZT parameters and tasks ^GMTSPL
+1 NEW ZTSAVE,ZTDESC,ZTDTH,ZTIO,ZTRTN,%
KILL IO("Q")
+2 FOR %="U","GMTSTYP","GMTSCDT","GMTSSC(","GMPSAP"
SET ZTSAVE(%)=""
+3 SET ZTRTN="^GMTSPL"
SET ZTDESC="HEALTH SUMMARY (BY LOCATION)"
SET ZTIO=ION
+4 DO ^%ZTLOAD
WRITE !,$SELECT($DATA(ZTSK):"Request Queued!",1:"Request Cancelled!")
+5 DO ^%ZISC
+6 QUIT
NOQUE ; Calls ^GMTSPL in interactive mode
+1 if IO'=IO(0)
USE IO
DO ^GMTSPL
DO ^%ZISC
+2 QUIT
LOCTXT(LOC) ; Change hospital location code to text name
+1 QUIT $SELECT(LOC="W":"Ward",LOC="OR":"Operating Room",LOC="C":"Clinic",1:"Hospital Location")
