SDAMEVT1.m

SDAMEVT1 ;ALB/MJK - Appt Event Driver Utilities ; 12/1/91

 ;;5.3;Scheduling;**15,63,132**;Aug 13, 1993

 ;

DIV(DIV) ; -- division name

 ; input:  DIV := ifn of med ctr div

 ;

 Q $S('$P($G(^DG(43,1,"GL")),U,2):"",$D(^DG(40.8,+DIV,0)):" ("_$P(^(0),U)_")",1:"")

 ;

OENUL(SDCAP,SDHDL) ; -- null befores or afters

 N SDOE,SDORG

 S SDORG=0

 F  S SDORG=$O(^TMP("SDEVT",$J,SDHDL,SDORG)) Q:'SDORG  D

 .S SDOE=0

 .F  S SDOE=$O(^TMP("SDEVT",$J,SDHDL,SDORG,"SDOE",SDOE)) Q:'SDOE  D

 ..I $D(^TMP("SDEVT",$J,SDHDL,SDORG,"SDOE",SDOE,0,SDCAP)) S ^(SDCAP)=""

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDAMEVT1   560     printed  Apr 09, 2024@21:50:10                                                                                                                                                                                                     Page 2

SDAMEVT1  ;ALB/MJK - Appt Event Driver Utilities ; 12/1/91

 +1       ;;5.3;Scheduling;**15,63,132**;Aug 13, 1993

 +2       ;

DIV(DIV)  ; -- division name

 +1       ; input:  DIV := ifn of med ctr div

 +2       ;

 +3        QUIT $SELECT('$PIECE($GET(^DG(43,1,"GL")),U,2):"",$DATA(^DG(40.8,+DIV,0)):" ("_$PIECE(^(0),U)_")",1:"")

 +4       ;

OENUL(SDCAP,SDHDL) ; -- null befores or afters

 +1        NEW SDOE,SDORG

 +2        SET SDORG=0

 +3        FOR 

               SET SDORG=$ORDER(^TMP("SDEVT",$JOB,SDHDL,SDORG))

               if 'SDORG

                   QUIT 

               Begin DoDot:1

 +4                SET SDOE=0

 +5                FOR 

                       SET SDOE=$ORDER(^TMP("SDEVT",$JOB,SDHDL,SDORG,"SDOE",SDOE))

                       if 'SDOE

                           QUIT 

                       Begin DoDot:2

 +6                        IF $DATA(^TMP("SDEVT",$JOB,SDHDL,SDORG,"SDOE",SDOE,0,SDCAP))

                               SET ^(SDCAP)=""

                       End DoDot:2

               End DoDot:1

 +7        QUIT