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

ROREXT03.m

Go to the documentation of this file. 
  1. ROREXT03 ;HCIOFO/SG - REGISTRY DATA EXTRACTION (OVERFLOW) ; 11/29/05 4:13pm
  1.  ;;1.5;CLINICAL CASE REGISTRIES;;Feb 17, 2006
  1.  ;
  1.  Q
  1.  ;
  1.  ;*****REGISTRY STATE CSR SEGMENT
  1. CSR(REGIEN) ;
  1.  N CS,RC,RORINFO,RORSEG,RPTSTATS,TMP
  1.  D ECH^RORHL7(.CS)
  1.  ;
  1.  ;--- Get the registry information
  1.  S RC=$$REGINFO^RORUTL17(REGIEN,"RORINFO")  Q:RC<0 RC
  1.  S TMP=$$STATS^RORTSK12(REGIEN,.RPTSTATS)
  1.  ;
  1.  ;--- Initialize the segment
  1.  S RORSEG(0)="CSR"
  1.  ;
  1.  ;--- CSR-1 - Name of the registry and version of the CCR
  1.  S TMP=+$P(ROREXT("VERSION"),U)              ; Version
  1.  S:$P(TMP,".",2)="" $P(TMP,".",2)="0"
  1.  S $P(TMP,".",3)=+$P(ROREXT("VERSION"),U,2)  ; Patch Number
  1.  S $P(TMP,".",4)=+$$BUILD^ROR                ; Build Number
  1.  S RORSEG(1)=$$ESCAPE^RORHL7($P($$REGNAME^RORUTL01(REGIEN),U))_CS_TMP
  1.  ;
  1.  ;--- CSR-3 - Institution
  1.  S RORSEG(3)=$$SITE^RORUTL03(CS)
  1.  ;
  1.  ;--- CSR-4 - Patient ID
  1.  S TMP="0"_CS_CS_CS_CS_"U"
  1.  S $P(TMP,CS,6)=+$G(RORINFO("NPP"))  ; Number of pending patients
  1.  S $P(TMP,CS,7)=+$P(RPTSTATS,U)      ; Number of reports
  1.  S RORSEG(4)=TMP
  1.  ;
  1.  ;--- Store the segment
  1.  D ADDSEG^RORHL7(.RORSEG)
  1.  Q 0
  1.  ;
  1.  ;***** REGISTRY STATE PID SEGMENT
  1. PID() ;
  1.  N CS,RORSEG
  1.  D ECH^RORHL7(.CS)
  1.  ;
  1.  ;--- Initialize the segment
  1.  S RORSEG(0)="PID"
  1.  ;
  1.  ;--- PID-3 DFN and Station Number
  1.  S RORSEG(3)="0"_CS_CS_CS_CS_"U"
  1.  ;
  1.  ;--- PID-5 Patient Name
  1.  S RORSEG(5)="PSEUDO"_CS_"PATIENT"
  1.  ;
  1.  ;--- Store the segment
  1.  D ADDSEG^RORHL7(.RORSEG)
  1.  Q 0
  1.  ;
  1.  ;***** GENERATES THE REGISTRY STATE HL7 MESSAGE
  1.  ;
  1.  ; REGIEN        Registry IEN
  1.  ;
  1.  ; Return Values:
  1.  ;       <0  Error code
  1.  ;        0  Ok
  1.  ;       >0  Number of ignored errors
  1.  ;
  1. REGSTATE(REGIEN) ;
  1.  N RC
  1.  ;--- Output pseudo-patient's segments
  1.  S RC=$$PID()            Q:RC<0 RC
  1.  S RC=$$CSR(REGIEN)      Q:RC<0 RC
  1.  ;---
  1.  Q 0
  1.  ;
  1.  ;***** SENDS THE CURRENT HL7 BATCH
  1.  ;
  1.  ; .RGIENLST     Reference to a local array containing registry
  1.  ;               IENs as subscripts and IENs of the corresponding
  1.  ;               patient's registry records as values.
  1.  ;
  1.  ; Return Values:
  1.  ;       <0  Error Code
  1.  ;        0  Ok
  1.  ;
  1. SEND(RGIENLST) ;
  1.  N IENS,MID,RC,REGIEN,RORFDA,RORMSG,TMP
  1.  W:$G(RORPARM("DEBUG"))>1 !,"HL7 Batch ID: ",$G(ROREXT("HL7MID"))
  1.  S RC=$$SEND^RORHL7(.MID)  Q:RC<0 RC
  1.  I 'RC,$G(MID)'=""  D
  1.  . S ROREXT("NBM")=$G(ROREXT("NBM"))+1
  1.  . S TMP="HL7 batch message "_MID_" has been generated"
  1.  . D LOG^RORLOG(2,TMP)
  1.  . ;--- Add message reference to the LAST BATCH CONTROL ID
  1.  . ;--- multiples of the registries that are being processed
  1.  . S (RC,REGIEN)=0
  1.  . F  S REGIEN=$O(RGIENLST(REGIEN))  Q:REGIEN'>0  D  Q:RC<0
  1.  . . K RORFDA,RORMSG  S IENS="+1,"_REGIEN_","
  1.  . . ;--- LAST BATCH CONTROL ID
  1.  . . S RORFDA(798.122,IENS,.01)=MID
  1.  . . ;--- INTERNAL BATCH ID
  1.  . . S RORFDA(798.122,IENS,.02)=$G(ROREXT("HL7MID"))
  1.  . . ;--- Batch Date/Time
  1.  . . S TMP=+$G(ROREXT("HL7DT"))
  1.  . . S RORFDA(798.122,IENS,.03)=$S(TMP>0:TMP,1:$$NOW^XLFDT)
  1.  . . ;--- Create the record
  1.  . . D UPDATE^DIE(,"RORFDA",,"RORMSG")
  1.  . . S:$G(DIERR) RC=$$DBS^RORERR("RORMSG",-9,,PTIEN,798.122,IENS)
  1.  Q 0
  1.  ;
  1.  ;***** UPDATES THE REGISTRY RECORDS AFTER THE DATA EXTRACTION
  1.  ;
  1.  ; PTIEN         Patient IEN (DFN)
  1.  ;
  1.  ; .RGIENLST     Reference to a local array containing registry
  1.  ;               IENs as subscripts and IENs of the corresponding
  1.  ;               patient's registry records as values.
  1.  ;
  1.  ; BATCHID
  1.  ;
  1.  ; Return Values:
  1.  ;       <0  Error Code
  1.  ;        0  Ok
  1.  ;
  1. UPDRECS(PTIEN,RGIENLST,BATCHID,ENDT) ;
  1.  N FS,IEN,IENS,RC,REGIEN,RORFDA,RORMSG
  1.  S (RC,REGIEN)=0
  1.  F  S REGIEN=$O(RGIENLST(REGIEN))  Q:REGIEN'>0  D  Q:RC<0
  1.  . K RORFDA,RORMSG
  1.  . S IEN=+RGIENLST(REGIEN)  Q:IEN'>0
  1.  . S IENS=IEN_","
  1.  . ;--- Store the Message ID in the registry
  1.  . S:BATCHID'="" RORFDA(798,IENS,10)=BATCHID
  1.  . ;--- Otherwise, populate the MESSAGE ID field with a fake ID.
  1.  . ;    This will force the message status checkup process to
  1.  . ;    update the DATA ACKNOWLEDGED UNTIL field so that the next
  1.  . ;    data extraction process will not browse through the data
  1.  . ;--- already processed by the previous one.
  1.  . S:BATCHID="" RORFDA(798,IENS,10)=ROREXT("HL7MID")_"-0"
  1.  . ;--- Always update the DATA EXTRACTED UNTIL field
  1.  . S RORFDA(798,IENS,9.2)=ENDT
  1.  . ;--- Update the registry record
  1.  . D FILE^DIE(,"RORFDA","RORMSG")
  1.  . S:$G(DIERR) RC=$$DBS^RORERR("RORMSG",-9,,PTIEN,798,IENS)
  1.  ;---
  1.  Q $S(RC<0:RC,1:0)