PRSDAH ;HISC/DAD-PAID AD HOC REPORTS DRIVER ;04/18/95 10:58
;;4.0;PAID;;Sep 21, 1995
S X="QAQAHOC0" X ^%ZOSF("TEST")
I '$T W !!,*7,"This option requires the installation of the QM Integration Module." G EXIT
S DIR(0)="SO^1:Basic Employee Fields;2:Title 38 Employee Fields;3:Physician & Dentist Fields;4:Followup Code Fields"
S DIR("A")="Select Ad Hoc Report Category" D ^DIR K DIR
I $D(DUOUT)!$D(DTOUT)!("^"[X) Q
I Y=1 D ^PRSDAH1 G EXIT
I Y=2 D ^PRSDAH2 G EXIT
I Y=3 D ^PRSDAH3 G EXIT
I Y=4 D ^PRSDAH4 G EXIT
EXIT D KILL^XUSCLEAN Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSDAH 555 printed Sep 23, 2025@20:01:27 Page 2
PRSDAH ;HISC/DAD-PAID AD HOC REPORTS DRIVER ;04/18/95 10:58
+1 ;;4.0;PAID;;Sep 21, 1995
+2 SET X="QAQAHOC0"
XECUTE ^%ZOSF("TEST")
+3 IF '$TEST
WRITE !!,*7,"This option requires the installation of the QM Integration Module."
GOTO EXIT
+4 SET DIR(0)="SO^1:Basic Employee Fields;2:Title 38 Employee Fields;3:Physician & Dentist Fields;4:Followup Code Fields"
+5 SET DIR("A")="Select Ad Hoc Report Category"
DO ^DIR
KILL DIR
+6 IF $DATA(DUOUT)!$DATA(DTOUT)!("^"[X)
QUIT
+7 IF Y=1
DO ^PRSDAH1
GOTO EXIT
+8 IF Y=2
DO ^PRSDAH2
GOTO EXIT
+9 IF Y=3
DO ^PRSDAH3
GOTO EXIT
+10 IF Y=4
DO ^PRSDAH4
GOTO EXIT
EXIT DO KILL^XUSCLEAN
QUIT
