Changeset 636 for FOIAVistA/tag/r/SCHEDULING-SD-SC/SDC.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/SCHEDULING-SD-SC/SDC.m
r628 r636 1 1 SDC ;MAN/GRR,ALB/LDB - CANCEL A CLINIC'S AVAILABILITY ; 3/2/05 2:11pm 2 ;;5.3;Scheduling;**15,32,79,132,167,478,487 ,523**;Aug 13, 1993;Build 62 ;;5.3;Scheduling;**15,32,79,132,167,478,487**;Aug 13, 1993 3 3 N SDATA,SDCNHDL ; for evt dvr 4 4 SDC1 K SDLT,SDCP S NOAP="" D LO^DGUTL … … 39 39 D S S ^(1)=" "_$E(SD,6,7)_" **CANCELLED**",FR=SD,TO=SD+.9 ;NAKED REFERENCE - ^SC(IFN,"ST",Date,1) 40 40 C S FR=$O(^SC(SC,"S",FR)) I FR<1!(FR'<TO) W !!,"CANCELLED! " K SDX G CHKEND^SDC0 41 N TDH,TMPD,DIE,DR ,NODE41 N TDH,TMPD,DIE,DR 42 42 F I=0:0 S I=$O(^SC(SC,"S",FR,1,I)) Q:I'>0 D 43 43 .S DFN=+^SC(SC,"S",FR,1,I,0),SDCNHDL=$$HANDLE^SDAMEVT(1) 44 44 .D BEFORE^SDAMEVT(.SDATA,DFN,FR,SC,I,SDCNHDL) 45 45 .S $P(^SC(SC,"S",FR,1,I,0),"^",9)="C" 46 .S:$D(^DPT(DFN,"S",FR,0)) NODE=^(0) ;added SD/52347 .Q:$P(NODE,U,1)'=SC ;added SD/52348 46 .S ^DPT("ASDCN",SC,FR,DFN)="" 49 47 .S SDSC=SC,SDTTM=FR,SDPL=I,TDH=DH,TMPD=CANREM D CANCEL^SDCNSLT S DH=TDH ;SD/478
Note:
See TracChangeset
for help on using the changeset viewer.