| 1 | GMTSPD2 ; SLC/JER,SBW - Interactive Print-by-Loc (cont) ; 02/27/2002
|
|---|
| 2 | ;;2.7;Health Summary;**49**;Oct 20, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ; External References
|
|---|
| 5 | ; DBIA 10026 ^DIR
|
|---|
| 6 | ; DBIA 10076 ^XUSEC("GMTS VIEW ONLY"
|
|---|
| 7 | ; DBIA 10086 ^%ZIS
|
|---|
| 8 | ; DBIA 10063 ^%ZTLOAD
|
|---|
| 9 | ; DBIA 10089 ^%ZISC
|
|---|
| 10 | ;
|
|---|
| 11 | RXAP() ; Ask about inclusion of OP Rx Action Profile
|
|---|
| 12 | N %,DIR,X,Y
|
|---|
| 13 | I $P($G(^GMT(142.99,1,0)),U,2)'="Y" S Y=0 G RXAPX
|
|---|
| 14 | S DIR(0)="YO",DIR("A")="Include Outpatient Pharmacy Action Profile (Y/N)"
|
|---|
| 15 | S DIR("B")="NO" D ^DIR
|
|---|
| 16 | RXAPX ; Rx Action Profile Exit
|
|---|
| 17 | Q Y
|
|---|
| 18 | HSOUT ; Device Handling/Output control
|
|---|
| 19 | N IOP,%ZIS
|
|---|
| 20 | I $D(^XUSEC("GMTS VIEW ONLY",DUZ)) D NOQUE Q
|
|---|
| 21 | S %ZIS="Q",%ZIS("B")="HOME" D ^%ZIS Q:POP
|
|---|
| 22 | D @$S(+$G(GMPSAP)&(IO'=IO(0)):"QUE",$D(IO("Q")):"QUE",1:"NOQUE")
|
|---|
| 23 | Q
|
|---|
| 24 | QUE ; Set ZT parameters and tasks ^GMTSPL
|
|---|
| 25 | N ZTSAVE,ZTDESC,ZTDTH,ZTIO,ZTRTN,% K IO("Q")
|
|---|
| 26 | F %="U","GMTSTYP","GMTSCDT","GMTSSC(","GMPSAP" S ZTSAVE(%)=""
|
|---|
| 27 | S ZTRTN="^GMTSPL",ZTDESC="HEALTH SUMMARY (BY LOCATION)",ZTIO=ION
|
|---|
| 28 | D ^%ZTLOAD W !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!")
|
|---|
| 29 | D ^%ZISC
|
|---|
| 30 | Q
|
|---|
| 31 | NOQUE ; Calls ^GMTSPL in interactive mode
|
|---|
| 32 | U:IO'=IO(0) IO D ^GMTSPL,^%ZISC
|
|---|
| 33 | Q
|
|---|
| 34 | LOCTXT(LOC) ; Change hospital location code to text name
|
|---|
| 35 | Q $S(LOC="W":"Ward",LOC="OR":"Operating Room",LOC="C":"Clinic",1:"Hospital Location")
|
|---|
