| [613] | 1 | SDCODD ;ALB/RMO - Data Dictionary Calls - Check Out;30 DEC 1992 9:00 am
|
|---|
| 2 | ;;5.3;Scheduling;**132**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ACT(SDCTI,SDDT) ;Determine if Outpatient Classification Type is active
|
|---|
| 5 | ; Input -- SDCTI Outpatient Classification Type file IEN
|
|---|
| 6 | ; SDDT Date/Time (Optional- default today@2359)
|
|---|
| 7 | ; Output -- 1=ACTIVE and 0=INACTIVE
|
|---|
| 8 | N Y
|
|---|
| 9 | S SDDT=$S($G(SDDT)>0:SDDT,1:DT) S:'$P(SDDT,".",2) SDDT=SDDT_.2359
|
|---|
| 10 | I $D(^SD(409.41,SDCTI,"E",+$O(^(+$O(^SD(409.41,SDCTI,"E","AID",-SDDT)),0)),0)),$P($G(^(0)),U,2) S Y=1
|
|---|
| 11 | Q +$G(Y)
|
|---|
| 12 | ;
|
|---|
| 13 | VAL(SDCTI,Y) ;Determine External Value of Outpatient Classification
|
|---|
| 14 | ; Input -- SDCTI Outpatient Classification Type file IEN
|
|---|
| 15 | ; Y Internal Value
|
|---|
| 16 | ; Output -- External Value
|
|---|
| 17 | N SDCTYP
|
|---|
| 18 | S SDCTYP=$P($G(^SD(409.41,SDCTI,0)),U,3)
|
|---|
| 19 | I SDCTYP="Y",Y'="" S Y=$S(Y:"YES",1:"NO")
|
|---|
| 20 | I SDCTYP="S",Y'="" S Y=$P($P($G(^SD(409.41,SDCTI,2)),Y_":",2),";")
|
|---|
| 21 | Q Y
|
|---|
| 22 | ;
|
|---|
