source: WorldVistAEHR/trunk/r/HEALTH_SUMMARY-GMTS/GMTSPD2.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1GMTSPD2 ; 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 ;
11RXAP() ; 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
16RXAPX ; Rx Action Profile Exit
17 Q Y
18HSOUT ; 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
24QUE ; 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
31NOQUE ; Calls ^GMTSPL in interactive mode
32 U:IO'=IO(0) IO D ^GMTSPL,^%ZISC
33 Q
34LOCTXT(LOC) ; Change hospital location code to text name
35 Q $S(LOC="W":"Ward",LOC="OR":"Operating Room",LOC="C":"Clinic",1:"Hospital Location")
Note: See TracBrowser for help on using the repository browser.