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")
|
---|