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

HLOPBLD1.m

Go to the documentation of this file.
  1. HLOPBLD1 ;ALB/CJM-HL7 - Building segments (CONTINUED) ;10/24/2006
  1. ;;1.6;HEALTH LEVEL SEVEN;**126,132**;Oct 13, 1995;Build 6
  1. ;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. BUILDHDR(HLMSTATE,TYPE,HDR) ;Builds the header segment in 2 lines, line 1 is components 1-6
  1. ;Input:
  1. ; HLMSTATE("HDR") - (pass by reference, required) These subscripts are used:
  1. ; "FIELD SEPARATOR"
  1. ; "ENCODING CHARACTERS"
  1. ; "SENDING APPLICATION"
  1. ; "RECEIVING APPLICATION"
  1. ; "RECEIVING FACILITY",1 and ,2 and ,3
  1. ; "DT/TM OF MESSAGE"
  1. ; "SECURITY"
  1. ; "ACCEPT ACK TYPE"
  1. ; "APP ACK TYPE"
  1. ; "PROCESSING ID"
  1. ;
  1. ; *MSH ONLY*
  1. ; "CONTINUATION POINTER"
  1. ; "COUNTRY"
  1. ; "EVENT"
  1. ; "MESSAGE STRUCTURE"
  1. ; "MESSAGE TYPE"
  1. ; "PROCESSING MODE"
  1. ; "VERSION"
  1. ;
  1. ; *BHS ONLY*
  1. ; "REFERENCE BATCH CONTROL ID"
  1. ;
  1. ; HLMSTATE("BATCH")
  1. ; HLMSTATE("BATCH","CURRENT MESSAGE") - batch messages only
  1. ; HLMSTATE("IEN") - ien, file 778
  1. ;
  1. ; TYPE - must be either "MSH" or "BHS"
  1. ;
  1. ;Output:
  1. ; HLMSTATE("HDR") - these subscripts will be added, unless building an MSH within a batch:
  1. ; "SENDING FACILITY",1 and ,2 and ,3
  1. ; "PROCESSING ID"
  1. ; "MESSAGE CONTROL ID" (MSH ONLY)
  1. ; "BATCH CONTROL ID" (BHS ONLY)
  1. ; "DT/TM OF MESSAGE"
  1. ; HDR (pass by reference) This will return the segment in an array form at HDR(1),HDR(2) (two lines).
  1. ;
  1. K HDR
  1. N SEG,BATCH,LEN,FS,CS
  1. ;
  1. ;shortcuts
  1. S HDR="HLMSTATE(""HDR"")"
  1. S BATCH=HLMSTATE("BATCH")
  1. S FS=@HDR@("FIELD SEPARATOR")
  1. S CS=$E(@HDR@("ENCODING CHARACTERS"),1)
  1. ;
  1. S HDR(1)=TYPE_FS_@HDR@("ENCODING CHARACTERS")_FS_$$ESCAPE^HLOPBLD(.HLMSTATE,$G(@HDR@("SENDING APPLICATION")))
  1. ;
  1. ;If building an MSH segment for a batch message, these parameters should already be determined
  1. D:(('HLMSTATE("BATCH"))!(TYPE="BHS"))
  1. .N PORT
  1. .S PORT=$$RTRNPORT^HLOAPP($G(@HDR@("SENDING APPLICATION")))
  1. .S:'PORT PORT=HLMSTATE("SYSTEM","PORT")
  1. .S @HDR@("SENDING FACILITY",1)=HLMSTATE("SYSTEM","STATION")
  1. .S @HDR@("SENDING FACILITY",2)=HLMSTATE("SYSTEM","DOMAIN")_":"_PORT
  1. .S @HDR@("SENDING FACILITY",3)="DNS"
  1. .;
  1. .;create the unique message ids, using the ien from file 778
  1. .S:TYPE="BHS" @HDR@("BATCH CONTROL ID")=HLMSTATE("SYSTEM","STATION")_" "_HLMSTATE("IEN")
  1. .S:TYPE="MSH" @HDR@("MESSAGE CONTROL ID")=HLMSTATE("SYSTEM","STATION")_" "_HLMSTATE("IEN")
  1. .;
  1. .S @HDR@("PROCESSING ID")=HLMSTATE("SYSTEM","PROCESSING ID")
  1. .S @HDR@("DT/TM OF MESSAGE")=$$HLDATE^HLFNC($$NOW^XLFDT,"TS")
  1. ;
  1. S HDR(1)=HDR(1)_FS_$$ESCAPE^HLOPBLD(.HLMSTATE,$G(@HDR@("SENDING FACILITY",1)))_CS_$$ESCAPE^HLOPBLD(.HLMSTATE,$G(@HDR@("SENDING FACILITY",2)))_CS_"DNS"
  1. S HDR(1)=HDR(1)_FS_$$ESCAPE^HLOPBLD(.HLMSTATE,$G(@HDR@("RECEIVING APPLICATION")))
  1. S HDR(1)=HDR(1)_FS_$$ESCAPE^HLOPBLD(.HLMSTATE,$G(@HDR@("RECEIVING FACILITY",1)))_CS_$$ESCAPE^HLOPBLD(.HLMSTATE,$G(@HDR@("RECEIVING FACILITY",2)))
  1. S HDR(1)=HDR(1)_CS_$$ESCAPE^HLOPBLD(.HLMSTATE,$G(@HDR@("RECEIVING FACILITY",3)))
  1. S HDR(2)=FS_$$ESCAPE^HLOPBLD(.HLMSTATE,@HDR@("DT/TM OF MESSAGE"))_FS_$$ESCAPE^HLOPBLD(.HLMSTATE,$G(@HDR@("SECURITY")))
  1. ;
  1. I TYPE="MSH" D
  1. .N ID
  1. .S HDR(2)=HDR(2)_FS_@HDR@("MESSAGE TYPE")_CS_@HDR@("EVENT")_CS_$$ESCAPE^HLOPBLD(.HLMSTATE,$G(@HDR@("MESSAGE STRUCTURE")))
  1. .S:BATCH ID=@HDR@("BATCH CONTROL ID")_"-"_$G(HLMSTATE("BATCH","CURRENT MESSAGE"))
  1. .S:'BATCH ID=@HDR@("MESSAGE CONTROL ID")
  1. .S HDR(2)=HDR(2)_FS_$$ESCAPE^HLOPBLD(.HLMSTATE,ID)_FS_@HDR@("PROCESSING ID")_CS_$$ESCAPE^HLOPBLD(.HLMSTATE,$G(@HDR@("PROCESSING MODE")))_FS_$$ESCAPE^HLOPBLD(.HLMSTATE,@HDR@("VERSION"))
  1. .S HDR(2)=HDR(2)_FS_FS_$$ESCAPE^HLOPBLD(.HLMSTATE,$G(@HDR@("CONTINUATION POINTER")))_FS_@HDR@("ACCEPT ACK TYPE")_FS_@HDR@("APP ACK TYPE")_FS_$$ESCAPE^HLOPBLD(.HLMSTATE,$G(@HDR@("COUNTRY")))
  1. ;
  1. I TYPE="BHS" D
  1. .N TEXT
  1. .S TEXT="PROCESSING ID"_"="_@HDR@("PROCESSING ID")_" "
  1. .I $L($G(@HDR@("ACCEPT ACK TYPE"))) S TEXT=TEXT_"ACCEPT ACK TYPE"_"="_@HDR@("ACCEPT ACK TYPE")_" "
  1. .I $L($G(@HDR@("APP ACK TYPE"))) S TEXT=TEXT_"APP ACK TYPE"_"="_@HDR@("APP ACK TYPE")_" "
  1. .S HDR(2)=HDR(2)_FS_$$ESCAPE^HLOPBLD(.HLMSTATE,TEXT)_FS_FS_$$ESCAPE^HLOPBLD(.HLMSTATE,@HDR@("BATCH CONTROL ID"))_FS_$$ESCAPE^HLOPBLD(.HLMSTATE,$G(@HDR@("REFERENCE BATCH CONTROL ID")))
  1. Q