source: FOIAVistA/trunk/r/PAID-PRS/PRSDAH.m@ 770

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 
1PRSDAH ;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
12EXIT D KILL^XUSCLEAN Q
Note: See TracBrowser for help on using the repository browser.