Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDCODD

SDCODD.m

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