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

BPSJZQR.m

Go to the documentation of this file.
  1. BPSJZQR ;BHAM ISC/LJF - HL7 Registration ZQR Message ;3/3/08 17:03
  1. ;;1.0;E CLAIMS MGMT ENGINE;**1,3,7,15**;JUN 2004;Build 13
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. ; ZQR is pharmacy site registration info
  1. ;
  1. EN(HL) N BPSZQR,BPSFS,BPSCPS,BPSREP,BPSVA1,BPSVA2,BPSCNF,BPSI
  1. ;
  1. ; Normally: HL("FS")="|" HL("ECH")="^~\&"
  1. S BPSFS=$G(HL("FS")) I BPSFS="" S BPSFS="|"
  1. S BPSCPS=$E($G(HL("ECH"))) I BPSCPS="" S BPSCPS="^"
  1. S BPSREP=$E($G(HL("ECH")),2) I BPSREP="" S BPSREP="~"
  1. ;
  1. S BPSZQR=BPSFS_(+$P($G(HL("SITE")),"^",3))
  1. ;
  1. ; Get Contact Info
  1. S BPSVA1=$G(^BPS(9002313.99,1,"VITRIA")),BPSVA2=$P(BPSVA1,"^",2)
  1. ;
  1. ; Get Version number
  1. S BPSZQR=BPSZQR_BPSFS_$P(BPSVA1,"^",3)
  1. ;
  1. ; Port
  1. S BPSZQR=BPSZQR_BPSFS_$$EPPORT^BPSJUTL ;modified to find multi threaded listener - BPS*1*15
  1. ;
  1. ; Load the Name and Means Fields
  1. ; Default the values to null
  1. F BPSI=5:1:8 S $P(BPSZQR,BPSFS,BPSI)=""
  1. ; Contact
  1. I BPSVA1 D
  1. . S BPSCNF=$$VA200NM^BPSJUTL(+BPSVA1,"",.HL) I BPSCNF]"" S $P(BPSZQR,BPSFS,5)=BPSCNF
  1. . S BPSCNF=$$VA20013^BPSJUTL(+BPSVA1,.HL) I BPSCNF]"" S $P(BPSZQR,BPSFS,6)=BPSCNF
  1. ;
  1. ; Alternate Contact
  1. I BPSVA2 D
  1. . S BPSCNF=$$VA200NM^BPSJUTL(BPSVA2,"",.HL) I BPSCNF]"" S $P(BPSZQR,BPSFS,7)=BPSCNF
  1. . S BPSCNF=$$VA20013^BPSJUTL(BPSVA2,.HL) I BPSCNF]"" S $P(BPSZQR,BPSFS,8)=BPSCNF
  1. ;
  1. Q "ZQR|"_BPSZQR