source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDAMODO1.m@ 1141

Last change on this file since 1141 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1SDAMODO1 ;ALB/SCK - PROVIDER DX REPORT, DISPLAY OPTIONS ; 05 Oct 98 8:42 PM
2 ;;5.3;Scheduling;**159**;Aug 13, 1993
3START ;
4 Q
5SHOW() ; 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)
24SORT ;
25 ;;Provider
26 ;;Diagnosis
27 ;;Patient
28 ;;Clinic
29 ;;Primary Stop Code
30VAR ;
31 ;;PROVDR
32 ;;PDIAG
33 ;;PATN
34 ;;CLINIC
35 ;;STOPC
Note: See TracBrowser for help on using the repository browser.