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

ROREVT01.m

Go to the documentation of this file.
  1. ROREVT01 ;HCIOFO/SG - EVENT PROTOCOLS ; 6/9/03 1:50pm
  1. ;;1.5;CLINICAL CASE REGISTRIES;;Feb 17, 2006
  1. ;
  1. ; This routine uses the following IAs:
  1. ;
  1. ; #1181 Subscription to the DGPM MOVEMENT EVENT protocol
  1. ; #1298 Subscription to the PXK VISIT DATA EVENT protocol
  1. ; #3565 Subscription to the LR7O ALL EVSEND RESULTS protocol
  1. ;
  1. Q
  1. ;
  1. ;***** 'ROR EVENT LAB' PROTOCOL IMPLEMENTATION (DATA AREA #1)
  1. LAB ;
  1. Q:$G(OREMSG)=""
  1. N BUF,DATE,DONE,FS,I,PATIEN
  1. S I="",DONE="00"
  1. F S I=$O(@OREMSG@(I)) Q:I="" D Q:DONE="11"
  1. . S BUF=$G(@OREMSG@(I))
  1. . ;--- Get the HL7 field separator
  1. . I $G(FS)="" S:$E(BUF,1,3)="MSH" FS=$E(BUF,4) Q:$G(FS)=""
  1. . ;--- Get the patient IEN
  1. . I $P(BUF,FS)="PID" D:'$E(DONE,1) Q
  1. . . S PATIEN=+$P(BUF,FS,4) ; PID-3
  1. . . S:PATIEN>0 $E(DONE,1)="1"
  1. . ;--- Get the specimen date
  1. . I $P(BUF,FS)="OBR" D:'$E(DONE,2) Q
  1. . . S DATE=$$HL7TFM^XLFDT($P(BUF,FS,8)) ; OBR-7
  1. . . S $E(DONE,2)="1"
  1. ;--- Create the event reference
  1. S:DONE="11" I=$$ADD^RORUPP02(PATIEN,1,DATE)
  1. Q
  1. ;
  1. ;***** RETURNS THE LIST OF PACKAGE EVENT PROTOCOLS
  1. ;
  1. ; .EPLST Reference to a local variable. The list of
  1. ; package event protocols will be returned via
  1. ; this parameter: EPLST(ProtocolName)=""
  1. ;
  1. LIST(EPLST) ;
  1. K EPLST
  1. S EPLST("ROR EVENT LAB")=""
  1. S EPLST("ROR EVENT PTF")=""
  1. S EPLST("ROR EVENT VISIT")=""
  1. Q
  1. ;
  1. ;***** 'ROR EVENT PTF' PROTOCOL IMPLEMENTATION (DATA AREA #3)
  1. PTF ;
  1. N ADATE,IEN405,PATIEN,PDATE,RC,TRC
  1. S PATIEN=$P($G(DGPMA),"^",3) Q:PATIEN'>0
  1. ;--- Admissions, transfers and discharges
  1. F TRC=1,2,3 D
  1. . S IEN405=0
  1. . F S IEN405=$O(^UTILITY("DGPM",$J,TRC,IEN405)) Q:IEN405'>0 D
  1. . . S PDATE=$P($G(^UTILITY("DGPM",$J,TRC,IEN405,"P")),"^")
  1. . . S ADATE=$P($G(^UTILITY("DGPM",$J,TRC,IEN405,"A")),"^")
  1. . . I PDATE>0 S RC=$$ADD^RORUPP02(PATIEN,3,PDATE)
  1. . . I ADATE>0 S:ADATE'=PDATE RC=$$ADD^RORUPP02(PATIEN,3,ADATE)
  1. Q
  1. ;
  1. ;***** 'ROR EVENT VISIT' PROTOCOL IMPLEMENTATION (DATA AREA #2)
  1. VISIT ;
  1. N BUF,IEN,PATIEN,RC,VSIEN
  1. S VSIEN=""
  1. F S VSIEN=$O(^TMP("PXKCO",$J,VSIEN)) Q:VSIEN="" D
  1. . S IEN=""
  1. . F S IEN=$O(^TMP("PXKCO",$J,VSIEN,"VST",IEN)) Q:IEN="" D
  1. . . S BUF=$G(^TMP("PXKCO",$J,VSIEN,"VST",IEN,0,"AFTER"))
  1. . . S PATIEN=$P(BUF,"^",5) Q:(PATIEN'>0)!$P(BUF,"^",11)
  1. . . ;--- Create the event reference
  1. . . S RC=$$ADD^RORUPP02(PATIEN,2,$P(BUF,"^",2))
  1. Q