|
Last change
on this file since 808 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
