Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DVBCSDEV

DVBCSDEV.m

Go to the documentation of this file.
  1. DVBCSDEV ;ALB/GTS-AMIE C&P APPT EVENT DRIVER ; 10/19/94 3:45 PM
  1. ;;2.7;AMIE;**1,208**;Apr 10, 1995;Build 1
  1. ;;Per VHA Directive 2004-038, this routine should not be modified
  1. ;
  1. ;** NOTICE: This routine is part of an implementation of a Nationally
  1. ;** Controlled Procedure. Local modifications to this routine
  1. ;** are prohibited per VHA Directive 10-93-142
  1. ;
  1. ;** Version Changes
  1. ; 2.7 - New routine (Enhc 13)
  1. ;
  1. ;** Variable Descriptions
  1. ;** DVBAORG = 1 Appointment event (Originating process variable)
  1. ;** SDAMEVT = 1 Make appointment event
  1. ;** 2 Cancel appointment event
  1. ;** 3 No Show appointment event
  1. ;** I DVBAAUTO exists, AMIE Make Event is not executed because
  1. ;** cancel/no show part of auto-rebook updated 396.95
  1. ;** DVBAXST=1 - ^TMP("SDEVT",$J) exists
  1. ;** DVBATYPE=1 - C&P type appointment
  1. ;** If SDMODE=2, AMIE events are not executed because
  1. ;** this call is part of a GUI process and cannot interact with
  1. ;** the user
  1. ;
  1. EN ;**AMIE Scheduling event driver main entry point
  1. Q:$G(SDMODE)=2 ;SDMODE will be set when called from SDAM APPOINTMENT EVENTS ;*zeb 208 10/31/18 skip if called in non-interactive context
  1. K KDFN I '$D(DFN) N DFN S DFN=$P(SDATA,U,2),KDFN=""
  1. S DVBAORG=$$SDORGST^DVBCUTL5
  1. I +DVBAORG=1 DO
  1. .S DVBAXST=$$SDEVTXST^DVBCUTL5
  1. .I +DVBAXST=1 DO
  1. ..S DVBATYPE=$$SDEVTSPC^DVBCUTL5(16)
  1. ..I +DVBATYPE=1 DO
  1. ...I +SDAMEVT=1,('$D(DVBAAUTO)) D EN^DVBCMKLK ;** Original Make event
  1. ...I +SDAMEVT=1,($D(DVBAAUTO)) K DVBAAUTO ;** Auto-rebook Make event
  1. ...I +SDAMEVT=2!(+SDAMEVT=3) D EN^DVBCCNNS ;** Cancel/No show event
  1. ..K DVBATYPE
  1. .K DVBAXST
  1. K DVBAORG
  1. I $D(KDFN) K KDFN,DFN
  1. D KVARS^DVBCMKLK
  1. Q