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 ---[H[J[2J[HSDAMEVT1 560 printed Oct 16, 2024@18:48:15 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
