Last change
on this file since 767 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
705 bytes
|
Line | |
---|
1 | WVHS ;HCIOFO/FT-HEALTH SUMMARY INTERFACE ;3/1/99 11:28
|
---|
2 | ;;1.0;WOMEN'S HEALTH;**5**;Sep 30, 1998
|
---|
3 | ;
|
---|
4 | UD ; User Defined Health Summary. Called from [WV HS-USER DEFINED] option
|
---|
5 | ; Select patient (DFN) and call HS supported call.
|
---|
6 | S WVPOP=0 N DFN
|
---|
7 | D PATIENT I WVPOP D KILL Q
|
---|
8 | N GMP,GMPATT,GMTSPHDR
|
---|
9 | I $T(MAIN^GMTSADOR)']"" D D KILL Q
|
---|
10 | .W !,"Sorry, the Health Summary package utility 'MAIN^GMTSADOR' does not exist.",!,"Please contact your IRM support person.",!
|
---|
11 | .Q
|
---|
12 | D MAIN^GMTSADOR
|
---|
13 | D KILL
|
---|
14 | Q
|
---|
15 | PATIENT ; Select a patient (can be male or female)
|
---|
16 | N DIC,DTOUT,DUOUT
|
---|
17 | S DIC="^DPT(",DIC(0)="AEMQZ"
|
---|
18 | D ^DIC
|
---|
19 | I Y<0!($D(DTOUT))!($D(DUOUT)) S WVPOP=1 Q
|
---|
20 | S DFN=+Y
|
---|
21 | Q
|
---|
22 | KILL ;
|
---|
23 | K WVDFN,WVEND,WVPOP,WVSTART,WVTYPE,X,Y
|
---|
24 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.