source: WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBCSDEV.m@ 1789

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1DVBCSDEV ;ALB/GTS-AMIE C&P APPT EVENT DRIVER ; 10/19/94 3:45 PM
2 ;;2.7;AMIE;**1**;Apr 10, 1995
3 ;
4 ;** NOTICE: This routine is part of an implementation of a Nationally
5 ;** Controlled Procedure. Local modifications to this routine
6 ;** are prohibited per VHA Directive 10-93-142
7 ;
8 ;** Version Changes
9 ; 2.7 - New routine (Enhc 13)
10 ;
11 ;** Variable Descriptions
12 ;** DVBAORG = 1 Appointment event (Originating process variable)
13 ;** SDAMEVT = 1 Make appointment event
14 ;** 2 Cancel appointment event
15 ;** 3 No Show appointment event
16 ;** I DVBAAUTO exists, AMIE Make Event is not executed because
17 ;** cancel/no show part of auto-rebook updated 396.95
18 ;** DVBAXST=1 - ^TMP("SDEVT",$J) exists
19 ;** DVBATYPE=1 - C&P type appointment
20 ;
21EN ;**AMIE Scheduling event driver main entry point
22 K KDFN I '$D(DFN) N DFN S DFN=$P(SDATA,U,2),KDFN=""
23 S DVBAORG=$$SDORGST^DVBCUTL5
24 I +DVBAORG=1 DO
25 .S DVBAXST=$$SDEVTXST^DVBCUTL5
26 .I +DVBAXST=1 DO
27 ..S DVBATYPE=$$SDEVTSPC^DVBCUTL5(16)
28 ..I +DVBATYPE=1 DO
29 ...I +SDAMEVT=1,('$D(DVBAAUTO)) D EN^DVBCMKLK ;** Original Make event
30 ...I +SDAMEVT=1,($D(DVBAAUTO)) K DVBAAUTO ;** Auto-rebook Make event
31 ...I +SDAMEVT=2!(+SDAMEVT=3) D EN^DVBCCNNS ;** Cancel/No show event
32 ..K DVBATYPE
33 .K DVBAXST
34 K DVBAORG
35 I $D(KDFN) K KDFN,DFN
36 D KVARS^DVBCMKLK
37 Q
Note: See TracBrowser for help on using the repository browser.