| [613] | 1 | SDAMODO1 ;ALB/SCK - PROVIDER DX REPORT, DISPLAY OPTIONS ; 05 Oct 98 8:42 PM
|
|---|
| 2 | ;;5.3;Scheduling;**159**;Aug 13, 1993
|
|---|
| 3 | START ;
|
|---|
| 4 | Q
|
|---|
| 5 | SHOW() ; display selected report options
|
|---|
| 6 | N SD
|
|---|
| 7 | D HOME^%ZIS W @IOF,*13
|
|---|
| 8 | W !!,$$LINE^SDAMODO("Report Specifications")
|
|---|
| 9 | W !!,"Encounter Dates: ",$$FMTE^XLFDT(SDBEG,"D")," to ",$$FMTE^XLFDT(SDEND,"D")
|
|---|
| 10 | W !!,"Report will be sorted by Division,"
|
|---|
| 11 | W !,"Divisions Selected: ",$S(VAUTD:"ALL",1:"")
|
|---|
| 12 | S SD=0 F S SD=$O(VAUTD(SD)) Q:'+SD W !?5,VAUTD(SD)
|
|---|
| 13 | W !!,"Then sorted by ",$P($T(SORT+SORT1),";;",2),", ",$P($T(SORT+SORT2),";;",2)," and Encounter Date"
|
|---|
| 14 | S SVAR1=$P($T(VAR+SORT1),";;",2)
|
|---|
| 15 | W !!,$P($T(SORT+SORT1),";;",2)," Selected: ",$S(@SVAR1:"ALL",1:"") D
|
|---|
| 16 | . S SD=0 F S SD=$O(@SVAR1@(SD)) Q:'+SD D:($Y+5)>IOSL PAUSE^VALM1 W !?5,@SVAR1@(SD)
|
|---|
| 17 | S SVAR2=$P($T(VAR+SORT2),";;",2)
|
|---|
| 18 | W !!,$P($T(SORT+SORT2),";;",2)," Selected: ",$S(@SVAR2:"ALL",1:"") D
|
|---|
| 19 | . S SD=0 F S SD=$O(@SVAR2@(SD)) Q:'+SD D:($Y+5)>IOSL PAUSE^VALM1 W !?5,@SVAR2@(SD)
|
|---|
| 20 | W !,$$LINE^SDAMODO("")
|
|---|
| 21 | S Y=1
|
|---|
| 22 | K SVAR1,SVAR2,SD
|
|---|
| 23 | Q (Y)
|
|---|
| 24 | SORT ;
|
|---|
| 25 | ;;Provider
|
|---|
| 26 | ;;Diagnosis
|
|---|
| 27 | ;;Patient
|
|---|
| 28 | ;;Clinic
|
|---|
| 29 | ;;Primary Stop Code
|
|---|
| 30 | VAR ;
|
|---|
| 31 | ;;PROVDR
|
|---|
| 32 | ;;PDIAG
|
|---|
| 33 | ;;PATN
|
|---|
| 34 | ;;CLINIC
|
|---|
| 35 | ;;STOPC
|
|---|
