source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SDAMEVT1.m@ 642

Last change on this file since 642 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 544 bytes
Line 
1SDAMEVT1 ;ALB/MJK - Appt Event Driver Utilities ; 12/1/91
2 ;;5.3;Scheduling;**15,63,132**;Aug 13, 1993
3 ;
4DIV(DIV) ; -- division name
5 ; input: DIV := ifn of med ctr div
6 ;
7 Q $S('$P($G(^DG(43,1,"GL")),U,2):"",$D(^DG(40.8,+DIV,0)):" ("_$P(^(0),U)_")",1:"")
8 ;
9OENUL(SDCAP,SDHDL) ; -- null befores or afters
10 N SDOE,SDORG
11 S SDORG=0
12 F S SDORG=$O(^TMP("SDEVT",$J,SDHDL,SDORG)) Q:'SDORG D
13 .S SDOE=0
14 .F S SDOE=$O(^TMP("SDEVT",$J,SDHDL,SDORG,"SDOE",SDOE)) Q:'SDOE D
15 ..I $D(^TMP("SDEVT",$J,SDHDL,SDORG,"SDOE",SDOE,0,SDCAP)) S ^(SDCAP)=""
16 Q
Note: See TracBrowser for help on using the repository browser.