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

SDAMEVT4.m

Go to the documentation of this file. 
  1. SDAMEVT4 ;ALB/MJK - Appt Event Driver Utilities ;12/1/91
  1.  ;;5.3;Scheduling;**28,132**;Aug 13, 1993
  1.  ;
  1. COMP(SDHDL,SDAMEVT) ; -- main entry point for compare
  1.  N SDORG,SDCHG
  1.  S (SDORG,SDCHG)=0
  1.  F  S SDORG=$O(^TMP("SDEVT",$J,SDHDL,SDORG)) Q:'SDORG  D  Q:SDCHG
  1.  .;
  1.  .; -- if overall visit flag is 1
  1.  .;      then set to 1
  1.  .IF $G(^TMP("SDEVT",$J,SDHDL,SDORG,"VISIT CHANGE FLAGS"))[1 S SDCHG=1 Q
  1.  .;
  1.  .; -- if not a credit stop
  1.  .;      and visit flags not set then assume data changed
  1.  .;        then set to 1
  1.  .IF SDORG'=4,$G(^TMP("SDEVT",$J,SDHDL,SDORG,"VISIT CHANGE FLAGS"))="" S SDCHG=1 Q
  1.  .;
  1.  .; -- process orginating types 
  1.  .I SDORG=1 S SDCHG=$$APPT(SDHDL) Q
  1.  .I SDORG=2 S SDCHG=$$AE(SDHDL) Q
  1.  .I SDORG=3 S SDCHG=$$DIS(SDHDL) Q
  1.  .I SDORG=4 S SDCHG=$$CRSC(SDHDL) Q
  1. COMPQ Q SDCHG
  1.  ;
  1. APPT(SDHDL) ; -- appt check
  1.  N SDCHG,NODE
  1.  S SDCHG=$S(SDATA("BEFORE","STATUS")'=SDATA("AFTER","STATUS"):1,1:0)
  1.  I 'SDCHG S SDCHG=$$OE(SDHDL,1)
  1.  I 'SDCHG F NODE="DPT","SC" I $G(^TMP("SDEVT",$J,SDHDL,1,NODE,0,"BEFORE"))'=$G(^("AFTER")) S SDCHG=1 Q
  1.  Q SDCHG
  1.  ;
  1. AE(SDHDL) ; -- add/edit check
  1.  N SDCHG,SDDA,NODE
  1.  S SDCHG=$$OE(SDHDL,2)
  1.  I 'SDCHG,$G(^TMP("SDEVT",$J,SDHDL,2,"STANDALONE",0,"BEFORE"))'=$G(^("AFTER")) S SDCHG=1
  1.  Q SDCHG
  1.  ;
  1. DIS(SDHDL) ; - disposition check
  1.  N SDCHG
  1.  S SDCHG=$$OE(SDHDL,3)
  1.  I 'SDCHG,$G(^TMP("SDEVT",$J,SDHDL,3,"DIS",0,"BEFORE"))'=$G(^("AFTER")) S SDCHG=1
  1.  Q SDCHG
  1.  ;
  1. CRSC(SDHDL) ; -- credit stop code check
  1.  N SDCHG
  1.  S SDCHG=$$OE(SDHDL,4)
  1.  Q SDCHG
  1.  ;
  1. OE(SDHDL,SDORG) ; -- compare encounter data
  1.  N SDCHG,SDI,NODE,SDOE
  1.  S (SDOE,SDCHG)=0
  1.  F  S SDOE=$O(^TMP("SDEVT",$J,SDHDL,SDORG,"SDOE",SDOE)) Q:'SDOE  D  Q:SDCHG
  1.  .I $G(^TMP("SDEVT",$J,SDHDL,SDORG,"SDOE",SDOE,0,"BEFORE"))'=$G(^("AFTER")) S SDCHG=1 Q
  1.  .F NODE="CL" S SDI=0 D  Q:SDCHG
  1.  ..F  S SDI=$O(^TMP("SDEVT",$J,SDHDL,SDORG,"SDOE",SDOE,NODE,SDI)) Q:'SDI  D  Q:SDCHG
  1.  ...I $G(^TMP("SDEVT",$J,SDHDL,SDORG,"SDOE",SDOE,NODE,SDI,0,"BEFORE"))'=$G(^("AFTER")) S SDCHG=1
  1. OEQ Q SDCHG
  1.  ;
  1.  ; -- SEE SDAMEVT0 FOR DOC ON VARIABLES
  1.  ;
  1. MODE(SDHDL) ; -- can event talk
  1.  N Y S Y=""
  1.  I $D(ZTQUEUED) S Y=2 ; -- queued job
  1.  I Y="",IO'=IO(0) S Y=2 ; -- not home device
  1.  S:Y="" Y=$G(SDMODE)
  1.  Q $S(Y=0:"DIALOGUE",Y=1:"MONOLOGUE",Y=2:"QUIET",1:"QUIET")
  1.  ;
  1. MESSAGE(MESSAGE,SDHDL) ; -- show message to user if ok
  1.  N SDSENT
  1.  I $$MODE()["LOGUE" W !!,MESSAGE S SDSENT=1
  1.  Q $G(SDSENT)
  1.  ;
  1. CHANGE(SDHDL,SDORG,SDFLAGS) ; -- set visit change flags value
  1.  S ^TMP("SDEVT",$J,+$G(SDHDL),+$G(SDORG),"VISIT CHANGE FLAGS")=$G(SDFLAGS)
  1.  Q
  1.  ;