| 1 | SDWU ; SLC/KCM - General Utilites for Windows Calls; 2/28/01
|
|---|
| 2 | ;;5.3;Scheduling;**262**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | Q
|
|---|
| 5 | ACTLOC(LOC) ; Function: returns TRUE if active hospital location
|
|---|
| 6 | N D0,X I +$G(^SC(LOC,"OOS")) Q 0 ; screen out OOS entry
|
|---|
| 7 | S D0=+$G(^SC(LOC,42)) I D0 D WIN^DGPMDDCF Q 'X ; chk out of svc wards
|
|---|
| 8 | S X=$G(^SC(LOC,"I")) I +X=0 Q 1 ; no inactivate date
|
|---|
| 9 | I DT>$P(X,U)&($P(X,U,2)=""!(DT<$P(X,U,2))) Q 0 ; chk reactivate date
|
|---|
| 10 | Q 1 ; must still be active
|
|---|
| 11 | ;
|
|---|
| 12 | CLINLOC(Y,FROM,DIR) ; Return a set of clinics from HOSPITAL LOCATION
|
|---|
| 13 | ; .Y=returned list, FROM=text to $O from, DIR=$O direction,
|
|---|
| 14 | N I,IEN,CNT S I=0,CNT=44
|
|---|
| 15 | F Q:I'<CNT S FROM=$O(^SC("B",FROM),DIR) Q:FROM="" D
|
|---|
| 16 | . S IEN="" F S IEN=$O(^SC("B",FROM,IEN),DIR) Q:'IEN D
|
|---|
| 17 | . . I ($P($G(^SC(IEN,0)),U,3)'="C")!('$$ACTLOC(IEN)) Q
|
|---|
| 18 | . . S I=I+1,Y(I)=IEN_"^"_FROM
|
|---|
| 19 | Q
|
|---|
| 20 | INPLOC(Y,FROM,DIR) ;Return a set of wards from HOSPITAL LOCATION
|
|---|
| 21 | ; .Y=returned list, FROM=text to $O from, DIR=$O direction,
|
|---|
| 22 | N I,IEN,CNT S I=0,CNT=44
|
|---|
| 23 | F Q:I'<CNT S FROM=$O(^SC("B",FROM),DIR) Q:FROM="" D
|
|---|
| 24 | . S IEN="" F S IEN=$O(^SC("B",FROM,IEN),DIR) Q:'IEN D
|
|---|
| 25 | . . I ($P($G(^SC(IEN,0)),U,3)'="W")!('$$ACTLOC(IEN)) Q
|
|---|
| 26 | . . S I=I+1,Y(I)=IEN_"^"_FROM
|
|---|
| 27 | Q
|
|---|
| 28 | HOSPLOC(Y,FROM,DIR) ; Return a set of locations from HOSPITAL LOCATION
|
|---|
| 29 | ; .Y=returned list, FROM=text to $O from, DIR=$O direction,
|
|---|
| 30 | N I,IEN,CNT S I=0,CNT=44
|
|---|
| 31 | F Q:I'<CNT S FROM=$O(^SC("B",FROM),DIR) Q:FROM="" D
|
|---|
| 32 | . S IEN="" F S IEN=$O(^SC("B",FROM,IEN),DIR) Q:'IEN D
|
|---|
| 33 | . . I '$$ACTLOC(IEN) Q
|
|---|
| 34 | . . S I=I+1,Y(I)=IEN_"^"_FROM
|
|---|
| 35 | Q
|
|---|
| 36 |
|
|---|
