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

GMTSPD2.m

Go to the documentation of this file.
  1. GMTSPD2 ; SLC/JER,SBW - Interactive Print-by-Loc (cont) ; 02/27/2002
  1. ;;2.7;Health Summary;**49**;Oct 20, 1995
  1. ;
  1. ; External References
  1. ; DBIA 10026 ^DIR
  1. ; DBIA 10076 ^XUSEC("GMTS VIEW ONLY"
  1. ; DBIA 10086 ^%ZIS
  1. ; DBIA 10063 ^%ZTLOAD
  1. ; DBIA 10089 ^%ZISC
  1. ;
  1. RXAP() ; Ask about inclusion of OP Rx Action Profile
  1. N %,DIR,X,Y
  1. I $P($G(^GMT(142.99,1,0)),U,2)'="Y" S Y=0 G RXAPX
  1. S DIR(0)="YO",DIR("A")="Include Outpatient Pharmacy Action Profile (Y/N)"
  1. S DIR("B")="NO" D ^DIR
  1. RXAPX ; Rx Action Profile Exit
  1. Q Y
  1. HSOUT ; Device Handling/Output control
  1. N IOP,%ZIS
  1. I $D(^XUSEC("GMTS VIEW ONLY",DUZ)) D NOQUE Q
  1. S %ZIS="Q",%ZIS("B")="HOME" D ^%ZIS Q:POP
  1. D @$S(+$G(GMPSAP)&(IO'=IO(0)):"QUE",$D(IO("Q")):"QUE",1:"NOQUE")
  1. Q
  1. QUE ; Set ZT parameters and tasks ^GMTSPL
  1. N ZTSAVE,ZTDESC,ZTDTH,ZTIO,ZTRTN,% K IO("Q")
  1. F %="U","GMTSTYP","GMTSCDT","GMTSSC(","GMPSAP" S ZTSAVE(%)=""
  1. S ZTRTN="^GMTSPL",ZTDESC="HEALTH SUMMARY (BY LOCATION)",ZTIO=ION
  1. D ^%ZTLOAD W !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!")
  1. D ^%ZISC
  1. Q
  1. NOQUE ; Calls ^GMTSPL in interactive mode
  1. U:IO'=IO(0) IO D ^GMTSPL,^%ZISC
  1. Q
  1. LOCTXT(LOC) ; Change hospital location code to text name
  1. Q $S(LOC="W":"Ward",LOC="OR":"Operating Room",LOC="C":"Clinic",1:"Hospital Location")