SDAMODO1 ;ALB/SCK - PROVIDER DX REPORT, DISPLAY OPTIONS ; 05 Oct 98 8:42 PM
;;5.3;Scheduling;**159**;Aug 13, 1993
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDAMODO1 1172 printed Nov 22, 2024@17:57:52 Page 2
SDAMODO1 ;ALB/SCK - PROVIDER DX REPORT, DISPLAY OPTIONS ; 05 Oct 98 8:42 PM
+1 ;;5.3;Scheduling;**159**;Aug 13, 1993
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
