source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDAMBAE6.m@ 1147

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1SDAMBAE6 ;ALB/MJK - A/E Protocol; 11 FEB 1993 10:00 am
2 ;;5.3;Scheduling;**27,132,76**;08/13/93
3 ;; ;
4EN ; -- AE entry point for SDAM ADD EDIT protocol
5 ; - assumes SDAMTYP, SDBEG and SDEND defined from appt mgt
6 ; - assumes SDFN is defined if SDAMTYP="P"
7 ;
8 S VALMBCK=""
9 D FULL^VALM1
10 S DFLG=0 I SDAMTYP="P" S DFN=SDFN D 2^VADPT I +VADM(6) D Q:DFLG
11 . I SDBEG>+VADM(6) W VADM(7) S DFLG=1 R ZX:10
12 D FREE($S(SDAMTYP="P":SDFN,1:""))
13ENQ Q
14 ;
15EN1 ; -- AE entry point for SDCO ADD EDIT NEW protocol
16 ; - assumes SDBEG and SDEND defined from co mgt
17 N SDOE0
18 S VALMBCK=""
19 D FULL^VALM1
20 S SDOE0=$G(^SCE(+$G(SDOE),0))
21 D FREE(+$P(SDOE0,U,2))
22ENQ1 Q
23 ;
24EN2 ; -- AE entry point for SDADDEDIT option
25 S SDVISIT=$$ENCEDIT^PXAPI("ADDEDIT","SD","PIMS","","","","","PO",-1,"AD",1)
26 I +SDVISIT<-1 W !!,$P(SDVISIT,U,2)
27ENQ2 Q
28 ;
29FREE(SDFN) ; -- ask to create a standalone stop
30 N SDVISIT
31 IF SDFN D
32 . S SDVISIT=$$ENCEDIT^PXAPI("ADDEDIT","SD","PIMS",SDFN,SDBEG,SDEND,"","PO",-1,"AD",1)
33 ELSE D
34 . S SDVISIT=$$ENCEDIT^PXAPI("ADDEDIT","SD","PIMS","",SDBEG,SDEND,"","PO",-1,"AD",1)
35 I +SDVISIT<-1 W !!,$P(SDVISIT,U,2)
36 S VALMBCK="R"
37 ;
38FREEQ Q
39 ;
Note: See TracBrowser for help on using the repository browser.