|
Last change
on this file since 770 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
543 bytes
|
| Line | |
|---|
| 1 | PRSDAH ;HISC/DAD-PAID AD HOC REPORTS DRIVER ;04/18/95 10:58
|
|---|
| 2 | ;;4.0;PAID;;Sep 21, 1995
|
|---|
| 3 | S X="QAQAHOC0" X ^%ZOSF("TEST")
|
|---|
| 4 | I '$T W !!,*7,"This option requires the installation of the QM Integration Module." G EXIT
|
|---|
| 5 | S DIR(0)="SO^1:Basic Employee Fields;2:Title 38 Employee Fields;3:Physician & Dentist Fields;4:Followup Code Fields"
|
|---|
| 6 | S DIR("A")="Select Ad Hoc Report Category" D ^DIR K DIR
|
|---|
| 7 | I $D(DUOUT)!$D(DTOUT)!("^"[X) Q
|
|---|
| 8 | I Y=1 D ^PRSDAH1 G EXIT
|
|---|
| 9 | I Y=2 D ^PRSDAH2 G EXIT
|
|---|
| 10 | I Y=3 D ^PRSDAH3 G EXIT
|
|---|
| 11 | I Y=4 D ^PRSDAH4 G EXIT
|
|---|
| 12 | EXIT D KILL^XUSCLEAN Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
