| 1 | SDAMO0 ;ALB/MJK - AM Mgt Reports ; 12/1/91
|
|---|
| 2 | ;;5.3;Scheduling;;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | CLINIC ; -- select clinics
|
|---|
| 5 | ; -- call generic clinic screen, correct division
|
|---|
| 6 | ;
|
|---|
| 7 | S DIC("S")="I $$CLINIC^SDAMU(Y),$S(VAUTD:1,$D(VAUTD(+$P(^SC(Y,0),U,15))):1,'+$P(^(0),U,15)&$D(VAUTD(+$O(^DG(40.8,0)))):1,1:0)"
|
|---|
| 8 | S DIC="^SC(",VAUTSTR="clinic",VAUTVB="VAUTC",VAUTNI=2
|
|---|
| 9 | D FIRST^VAUTOMA
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | DISP() ; -- display selection choices
|
|---|
| 13 | ; input: all selection variables
|
|---|
| 14 | ; output: none
|
|---|
| 15 | ; return: displayed w/o mishap [ 1|yes 0|no]
|
|---|
| 16 | ;
|
|---|
| 17 | D HOME^%ZIS W @IOF,*13
|
|---|
| 18 | W $$LINE^SDAMO("Report Specifications")
|
|---|
| 19 | W !!," Encounter Dates: ",$$FDATE^VALM1(SDBEG)," to ",$$FDATE^VALM1(SDEND)
|
|---|
| 20 | W !," Encounter Status: ",$P($T(SELECT+SDSEL^SDAMO2),";;",2)
|
|---|
| 21 | W:$D(SDSORT) !," Sorted By: ",$P($T(SORT+SDSORT^SDAMO2),";;",2)
|
|---|
| 22 | W !!?15,"Divisions",?55,$S(SDSORT=1!(SDSORT=2)!(SDSORT=5):"Clinics",1:"Stop Codes")
|
|---|
| 23 | W !?15,"---------",?55,"----------"
|
|---|
| 24 | S (D,C)=0
|
|---|
| 25 | I VAUTD!VAUTC S D=$S(VAUTD:"All",1:$O(VAUTD(0))),C=$S(VAUTC:"All",1:$O(VAUTC(0))) W !?15,$S(D:VAUTD(D),1:D),?55,$S(C:VAUTC(C),1:C)
|
|---|
| 26 | S D=+D,C=+C
|
|---|
| 27 | F I=1:1 S:D'="" D=$O(VAUTD(D)) S:C'="" C=$O(VAUTC(C)) Q:'D&('C) W ! W:D ?15,VAUTD(D) W:C ?55,VAUTC(C) I I>9 S I=0 D PAUSE^VALM1 I 'Y G DISPQ
|
|---|
| 28 | W !,$$LINE^SDAMO("")
|
|---|
| 29 | S Y=1
|
|---|
| 30 | DISPQ Q Y
|
|---|
