PRSDAH.m

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 ---PRSDAH   555     printed  Feb 18, 2025@23:51:35                                                                                                                                                                                                       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