SDCODD.m

SDCODD ;ALB/RMO - Data Dictionary Calls - Check Out;30 DEC 1992 9:00 am

 ;;5.3;Scheduling;**132,1015**;Aug 13, 1993;Build 21

 ;

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

 ;

SDCODD    ;ALB/RMO - Data Dictionary Calls - Check Out;30 DEC 1992 9:00 am

 +1       ;;5.3;Scheduling;**132,1015**;Aug 13, 1993;Build 21

 +2       ;

ACT(SDCTI,SDDT) ;Determine if Outpatient Classification Type is active

 +1       ; Input  -- SDCTI    Outpatient Classification Type file IEN

 +2       ;           SDDT     Date/Time  (Optional- default today@2359)

 +3       ; Output -- 1=ACTIVE and 0=INACTIVE

 +4        NEW Y

 +5        SET SDDT=$SELECT($GET(SDDT)>0:SDDT,1:DT)

           IF '$PIECE(SDDT,".",2)

               SET SDDT=SDDT_.2359

 +6        IF $DATA(^SD(409.41,SDCTI,"E",+$ORDER(^(+$ORDER(^SD(409.41,SDCTI,"E","AID",-SDDT)),0)),0))

               IF $PIECE($GET(^(0)),U,2)

                   SET Y=1

 +7        QUIT +$GET(Y)

 +8       ;

VAL(SDCTI,Y) ;Determine External Value of Outpatient Classification

 +1       ; Input  -- SDCTI    Outpatient Classification Type file IEN

 +2       ;           Y        Internal Value

 +3       ; Output -- External Value

 +4        NEW SDCTYP

 +5        SET SDCTYP=$PIECE($GET(^SD(409.41,SDCTI,0)),U,3)

 +6        IF SDCTYP="Y"

               IF Y'=""

                   SET Y=$SELECT(Y:"YES",1:"NO")

 +7        IF SDCTYP="S"

               IF Y'=""

                   SET Y=$PIECE($PIECE($GET(^SD(409.41,SDCTI,2)),Y_":",2),";")

 +8        QUIT Y

 +9       ;