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

SCMCHLE.m

Go to the documentation of this file.
  1. SCMCHLE ;BP/DJB - PCMM HL7 EVENT File Utils ; 11 Dec 2002 1:14 PM
  1. ;;5.3;Scheduling;**177,204,272**;May 01, 1999
  1. ;
  1. ;Reference routine: ^SCDXFU01
  1. ADD(EVDATE,EVPTR,DFN,TP,FTEE) ;Add a new event to PCMM HL7 EVENT file (#404.48).
  1. ;
  1. ; Input: EVDATE - Date/time of PCMM event in FM format.
  1. ; Default="NOW"
  1. ; EVPTR - Variable pointer that records IEN and file where
  1. ; event occurred. Used to determine Table Designator
  1. ; and Table ID for the ZPC segment.
  1. ; DFN - Pointer to PATIENT file (#2).
  1. ; TP - Team Position (Used when processing deletes)
  1. ; In the case of changes to 404.53, this may be
  1. ; PrecepteeTP-PreceptorTP.
  1. ;Output: None
  1. ;
  1. NEW EVIEN
  1. Q:$G(SCMCOFF) ;..djb/bp NOIS ISH-1299-40937. Turn off HL7 messaging.
  1. Q:'$G(EVPTR) ;......................Event pointer
  1. S EVIEN=$$CREATE(.EVDATE) ;..........Create new entry
  1. Q:+EVIEN<0
  1. S DFN=$G(DFN)
  1. S TP=$G(TP)
  1. D STORE(EVIEN,EVPTR,DFN,$G(DUZ),TP,$G(FTEE)) ;Store event info
  1. D TRANSMIT(EVIEN,1) ;................Mark entry for transmission
  1. Q
  1. ;
  1. CREATE(EVDATE) ;Create entry in PCMM HL7 EVENT (#404.48)
  1. ;
  1. ; Input: EVDATE - Date/time of PCMM event, in Fileman format.
  1. ; Default="NOW".
  1. ;Output: Pointer to entry in PCMM HL7 EVENT (#404.48)
  1. ; -1^Error - Unable to create entry
  1. ;
  1. NEW SCERR,SCFDA,SCIEN
  1. S:'$G(EVDATE) EVDATE="NOW"
  1. ;
  1. S SCFDA(404.48,"+1,",.01)=EVDATE
  1. D UPDATE^DIE("E","SCFDA","SCIEN","SCERR")
  1. ;
  1. I $D(SCERR) Q "-1^Unable to create entry in PCMM HL7 EVENT file"
  1. Q SCIEN(1)
  1. ;
  1. STORE(EVIEN,EVPTR,DFN,EVDUZ,TP,FTEE) ;Store data in PCMM HL7 EVENT file
  1. ;
  1. ; Input: EVIEN - Pointer to entry in PCMM HL7 EVENT file (#404.48)
  1. ; EVPTR - Variable pointer that records IEN and file where
  1. ; event occurred. Used to determine Table Designator
  1. ; and Table ID for the ZPC segment.
  1. ; DFN - Pointer to PATIENT file (#2).
  1. ; EVDUZ - Pointer to entry in NEW PERSON file (#200) that
  1. ; caused event to occur (defaults to current DUZ).
  1. ; TP - Team Position (Used when processing deletes)
  1. ; In the case of changes to 404.53, this may be
  1. ; FTEE Workload indicator
  1. ;Output: None
  1. ;Notes : If EVDUZ and current DUZ not valid, use POSTMASTER (.5)
  1. ;
  1. NEW SCERR,SCFDA,SCIENS
  1. ;
  1. ;Check input
  1. Q:'+$G(EVIEN)
  1. Q:'$D(^SCPT(404.48,EVIEN))
  1. Q:'$G(EVPTR)
  1. S:'+$G(EVDUZ) EVDUZ=$S($G(DUZ):DUZ,1:.5)
  1. I EVDUZ'=.5,'$D(^VA(200,EVDUZ)) S EVDUZ=.5
  1. ;
  1. S SCIENS=EVIEN_","
  1. S SCFDA(404.48,SCIENS,.02)=DFN ;....Patient
  1. S SCFDA(404.48,SCIENS,.04)=TP ;.....Team Position
  1. S SCFDA(404.48,SCIENS,.05)=EVDUZ ;..User
  1. S SCFDA(404.48,SCIENS,.07)=EVPTR ;..Variable event pointer
  1. I $G(FTEE) S SCFDA(404.48,SCIENS,.08)=FTEE ;Workload Indicator
  1. D FILE^DIE(,"SCFDA","SCERR")
  1. Q
  1. ;
  1. TRANSMIT(EVIEN,RESET) ;Set transmit flag in PCMM HL7 EVENT (#404.48)
  1. ;
  1. ;Input: EVIEN - Pointer to entry in PCMM HL7 EVENT file (#404.48)
  1. ; RESET - Should TRANSMISSION REQUIRED fld be ON or OFF?
  1. ; 0 = NO
  1. ; 1 = YES (Default)
  1. ;Output: None
  1. ;Notes : Setting TRANSMISSION REQUIRED field to 'YES' flags entry
  1. ; entry for transmission.
  1. ;
  1. NEW SCERR,SCFDA,SCIENS
  1. ;
  1. ;Check input
  1. Q:'+$G(EVIEN)
  1. Q:'$D(^SCPT(404.48,EVIEN))
  1. S RESET=$S($G(RESET)=0:"NO",1:"YES")
  1. ;
  1. S SCIENS=EVIEN_","
  1. S SCFDA(404.48,SCIENS,.03)=RESET
  1. D FILE^DIE("E","SCFDA","SCERR")
  1. Q