source: WorldVistAEHR/trunk/r/WOMENS_HEALTH-WV/WVHS.m@ 623

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

initial load of WorldVistAEHR

File size: 705 bytes
Line 
1WVHS ;HCIOFO/FT-HEALTH SUMMARY INTERFACE ;3/1/99 11:28
2 ;;1.0;WOMEN'S HEALTH;**5**;Sep 30, 1998
3 ;
4UD ; 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
15PATIENT ; 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
22KILL ;
23 K WVDFN,WVEND,WVPOP,WVSTART,WVTYPE,X,Y
24 Q
Note: See TracBrowser for help on using the repository browser.