23 lines
902 B
Mathematica
23 lines
902 B
Mathematica
SDCODD ;ALB/RMO - Data Dictionary Calls - Check Out;30 DEC 1992 9:00 am
|
|
;;5.3;Scheduling;**132**;Aug 13, 1993
|
|
;
|
|
ACT(SDCTI,SDDT) ;Determine if Outpatient Classification Type is active
|
|
; Input -- SDCTI Outpatient Classification Type file IEN
|
|
; SDDT Date/Time (Optional- default today@2359)
|
|
; Output -- 1=ACTIVE and 0=INACTIVE
|
|
N Y
|
|
S SDDT=$S($G(SDDT)>0:SDDT,1:DT) S:'$P(SDDT,".",2) SDDT=SDDT_.2359
|
|
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
|
|
Q +$G(Y)
|
|
;
|
|
VAL(SDCTI,Y) ;Determine External Value of Outpatient Classification
|
|
; Input -- SDCTI Outpatient Classification Type file IEN
|
|
; Y Internal Value
|
|
; Output -- External Value
|
|
N SDCTYP
|
|
S SDCTYP=$P($G(^SD(409.41,SDCTI,0)),U,3)
|
|
I SDCTYP="Y",Y'="" S Y=$S(Y:"YES",1:"NO")
|
|
I SDCTYP="S",Y'="" S Y=$P($P($G(^SD(409.41,SDCTI,2)),Y_":",2),";")
|
|
Q Y
|
|
;
|