SDAMODO1.m

SDAMODO1 ;ALB/SCK - PROVIDER DX REPORT, DISPLAY OPTIONS ; 05 Oct 98  8:42 PM

 ;;5.3;Scheduling;**159,1015**;Aug 13, 1993;Build 21

START ;

 Q

SHOW() ;  display selected report options

 N SD

 D HOME^%ZIS W @IOF,*13

 W !!,$$LINE^SDAMODO("Report Specifications")

 W !!,"Encounter Dates: ",$$FMTE^XLFDT(SDBEG,"D")," to ",$$FMTE^XLFDT(SDEND,"D")

 W !!,"Report will be sorted by Division,"

 W !,"Divisions Selected: ",$S(VAUTD:"ALL",1:"")

 S SD=0 F  S SD=$O(VAUTD(SD)) Q:'+SD  W !?5,VAUTD(SD)

 W !!,"Then sorted by ",$P($T(SORT+SORT1),";;",2),", ",$P($T(SORT+SORT2),";;",2)," and Encounter Date"

 S SVAR1=$P($T(VAR+SORT1),";;",2)

 W !!,$P($T(SORT+SORT1),";;",2)," Selected: ",$S(@SVAR1:"ALL",1:"") D

 . S SD=0 F  S SD=$O(@SVAR1@(SD)) Q:'+SD  D:($Y+5)>IOSL PAUSE^VALM1 W !?5,@SVAR1@(SD)

 S SVAR2=$P($T(VAR+SORT2),";;",2)

 W !!,$P($T(SORT+SORT2),";;",2)," Selected: ",$S(@SVAR2:"ALL",1:"") D

 . S SD=0 F  S SD=$O(@SVAR2@(SD)) Q:'+SD  D:($Y+5)>IOSL PAUSE^VALM1 W !?5,@SVAR2@(SD)

 W !,$$LINE^SDAMODO("")

 S Y=1

 K SVAR1,SVAR2,SD

 Q (Y)

SORT ;

 ;;Provider

 ;;Diagnosis

 ;;Patient

 ;;Clinic

 ;;Primary Stop Code

VAR ;

 ;;PROVDR

 ;;PDIAG

 ;;PATN

 ;;CLINIC

 ;;STOPC

SDAMODO1  ;ALB/SCK - PROVIDER DX REPORT, DISPLAY OPTIONS ; 05 Oct 98  8:42 PM

 +1       ;;5.3;Scheduling;**159,1015**;Aug 13, 1993;Build 21

START     ;

 +1        QUIT 

SHOW()    ;  display selected report options

 +1        NEW SD

 +2        DO HOME^%ZIS

           WRITE @IOF,*13

 +3        WRITE !!,$$LINE^SDAMODO("Report Specifications")

 +4        WRITE !!,"Encounter Dates: ",$$FMTE^XLFDT(SDBEG,"D")," to ",$$FMTE^XLFDT(SDEND,"D")

 +5        WRITE !!,"Report will be sorted by Division,"

 +6        WRITE !,"Divisions Selected: ",$SELECT(VAUTD:"ALL",1:"")

 +7        SET SD=0

           FOR 

               SET SD=$ORDER(VAUTD(SD))

               IF '+SD

                   QUIT 

               WRITE !?5,VAUTD(SD)

 +8        WRITE !!,"Then sorted by ",$PIECE($TEXT(SORT+SORT1),";;",2),", ",$PIECE($TEXT(SORT+SORT2),";;",2)," and Encounter Date"

 +9        SET SVAR1=$PIECE($TEXT(VAR+SORT1),";;",2)

 +10       WRITE !!,$PIECE($TEXT(SORT+SORT1),";;",2)," Selected: ",$SELECT(@SVAR1:"ALL",1:"")

           Begin DoDot:1

 +11           SET SD=0

               FOR 

                   SET SD=$ORDER(@SVAR1@(SD))

                   IF '+SD

                       QUIT 

                   IF ($Y+5)>IOSL

                       DO PAUSE^VALM1

                   WRITE !?5,@SVAR1@(SD)

           End DoDot:1

 +12       SET SVAR2=$PIECE($TEXT(VAR+SORT2),";;",2)

 +13       WRITE !!,$PIECE($TEXT(SORT+SORT2),";;",2)," Selected: ",$SELECT(@SVAR2:"ALL",1:"")

           Begin DoDot:1

 +14           SET SD=0

               FOR 

                   SET SD=$ORDER(@SVAR2@(SD))

                   IF '+SD

                       QUIT 

                   IF ($Y+5)>IOSL

                       DO PAUSE^VALM1

                   WRITE !?5,@SVAR2@(SD)

           End DoDot:1

 +15       WRITE !,$$LINE^SDAMODO("")

 +16       SET Y=1

 +17       KILL SVAR1,SVAR2,SD

 +18       QUIT (Y)

SORT      ;

 +1       ;;Provider

 +2       ;;Diagnosis

 +3       ;;Patient

 +4       ;;Clinic

 +5       ;;Primary Stop Code

VAR       ;

 +1       ;;PROVDR

 +2       ;;PDIAG

 +3       ;;PATN

 +4       ;;CLINIC

 +5       ;;STOPC