| [613] | 1 | SDCOU2 ;ALB/RMO - Utilities Cont. - Check Out;16 MAR 1993 1:00 pm
|
|---|
| 2 | ;;5.3;Scheduling;;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | EXOE(E) ;Determine if Encounter is Exempt from Outpatient Classifications
|
|---|
| 5 | ; Input -- E Outpatient Encounter IEN
|
|---|
| 6 | ; Output -- 1=Yes and 0=No
|
|---|
| 7 | N E0,Y
|
|---|
| 8 | S E0=$G(^SCE(+E,0)) G EXOEQ:E0']""
|
|---|
| 9 | I $$EX(+$P(E0,"^",3),+E0) D
|
|---|
| 10 | .S Y=1
|
|---|
| 11 | .I $P(E0,"^",8)=1,$P($G(^SC(+$P(E0,"^",4),0)),"^",18),'$$EX(+$P(^(0),"^",18),+E0) S Y=0
|
|---|
| 12 | EXOEQ Q +$G(Y)
|
|---|
| 13 | ;
|
|---|
| 14 | EX(C,D) ;Determine if Clinic Stop Code is Exempt from Outpatient Classifications
|
|---|
| 15 | ; Input -- C Clinic Stop Code file IEN
|
|---|
| 16 | ; D Date/Time (Optional- default today@2359)
|
|---|
| 17 | ; Output -- 1=Yes and 0=No
|
|---|
| 18 | N E,S,Y
|
|---|
| 19 | S D=$S($G(D)>0:D,1:DT) S:'$P(D,".",2) D=D_.2359
|
|---|
| 20 | S S=+$P($G(^DIC(40.7,+C,0)),"^",2)
|
|---|
| 21 | S E=+$O(^SD(409.45,"B",S,0))
|
|---|
| 22 | I $D(^SD(409.45,E,"E",+$O(^(+$O(^SD(409.45,E,"E","AID",-D)),0)),0)),$P($G(^(0)),"^",2) S Y=1
|
|---|
| 23 | Q +$G(Y)
|
|---|
