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

VAFHUTL2.m

Go to the documentation of this file.
  1. VAFHUTL2 ;ALB/CM UTILITIES ROUTINE ;5/1/95
  1. ;;5.3;Registration;**91**;Jun 06, 1996
  1. ;
  1. ;
  1. EBULL(DFN,EDATE,PIVOT,XMTEXT) ;
  1. ;This routine will generate an error bulletin when a segment and/or
  1. ;message was unable to be generated
  1. ;
  1. ;Input: DFN - Patient file
  1. ; EDATE - event date/time in FileMan format
  1. ; PIVOT - pivot number
  1. ; XMTEXT - global or array root (EX. "^TMP("), location of error message(s)
  1. ;
  1. ;
  1. S XMB="VAFH ADT/HL7 ERROR"
  1. D NOW^%DTC S XMDT=X K X
  1. S XMB(1)=$S(+DFN:$P($G(^DPT(DFN,0)),"^"),1:"UNKNOWN"),Y=EDATE
  1. D DD^%DT S XMB(2)=Y,XMB(3)=PIVOT K Y
  1. S XMDUZ=$S($D(DUZ):DUZ,1:.5)
  1. D ^XMB
  1. K XMB,XMDT
  1. Q
  1. ;
  1. SET ;
  1. ;This is the set logic for the AHL7 cross reference on the PRIMARY
  1. ;LONG ID (.363) of the PATIENT file (#2)
  1. ;
  1. N KILL
  1. I $D(^TMP($J,"VAFHLMRG")) K ^TMP($J,"VAFHLMRG") S KILL="Y"
  1. I '$D(^TMP($J,"VAFHLMRG"))&('$D(KILL)) S ^TMP($J,"VAFHLMRG")=""
  1. Q
  1. ;
  1. KILL(DFN,ENTRY) ;
  1. ;This is the kill logic for the AHL7 cross reference on the PRIMARY
  1. ;LONG ID (.363) of the PATIENT file (#2)
  1. ;
  1. I $D(^TMP($J,"VAFHSSN")) K ^TMP($J,"VAFHSSN"),^TMP($J,"VAFHLMRG")
  1. I '$D(^TMP($J,"VAFHLMRG")) D EN^VAFHDD("M",DFN,ENTRY)
  1. Q