| [613] | 1 | BPSJZQR ;BHAM ISC/LJF - HL7 Registration ZQR Message ;21-NOV-2003
|
|---|
| 2 | ;;1.0;E CLAIMS MGMT ENGINE;**1,3**;JUN 2004;Build 20
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | ; ZQR is pharmacy site registration info
|
|---|
| 6 | ;
|
|---|
| 7 | EN(HL) N ZQR,FS,CPS,REP,BPSFILE,BPSIEN,VAIX1,VAIX2,CNF,I
|
|---|
| 8 | ;
|
|---|
| 9 | ; Normally: HL("FS")="|" HL("ECH")="^~\&"
|
|---|
| 10 | S FS=$G(HL("FS")) I FS="" S FS="|"
|
|---|
| 11 | S CPS=$E($G(HL("ECH"))) I CPS="" S CPS="^"
|
|---|
| 12 | S REP=$E($G(HL("ECH")),2) I REP="" S REP="~"
|
|---|
| 13 | ;
|
|---|
| 14 | S ZQR=FS_(+$G(HL("SITE")))
|
|---|
| 15 | ;
|
|---|
| 16 | ; Get Contact Info
|
|---|
| 17 | S BPSFILE=9002313.99,BPSIEN=$O(^BPS(BPSFILE,0))
|
|---|
| 18 | S VAIX1=$G(^BPS(BPSFILE,BPSIEN,"VITRIA")),VAIX2=$P(VAIX1,U,2)
|
|---|
| 19 | ;
|
|---|
| 20 | ; Get Version number
|
|---|
| 21 | S ZQR=ZQR_FS_$P(VAIX1,U,3)
|
|---|
| 22 | ;
|
|---|
| 23 | ; Port
|
|---|
| 24 | S ZQR=ZQR_FS_$G(HL("EPPORT"))
|
|---|
| 25 | ;
|
|---|
| 26 | ; Load the Name and Means Fields
|
|---|
| 27 | ; Default the values to null
|
|---|
| 28 | F I=5:1:8 S $P(ZQR,FS,I)=""
|
|---|
| 29 | ; Contact
|
|---|
| 30 | I VAIX1 D
|
|---|
| 31 | . S CNF=$$VA200NM^BPSJUTL(+VAIX1,"",.HL) I CNF]"" S $P(ZQR,FS,5)=CNF
|
|---|
| 32 | . S CNF=$$VA20013^BPSJUTL(+VAIX1,.HL) I CNF]"" S $P(ZQR,FS,6)=CNF
|
|---|
| 33 | ;
|
|---|
| 34 | ; Alternate Contact
|
|---|
| 35 | I VAIX2 D
|
|---|
| 36 | . S CNF=$$VA200NM^BPSJUTL(VAIX2,"",.HL) I CNF]"" S $P(ZQR,FS,7)=CNF
|
|---|
| 37 | . S CNF=$$VA20013^BPSJUTL(VAIX2,.HL) I CNF]"" S $P(ZQR,FS,8)=CNF
|
|---|
| 38 | ;
|
|---|
| 39 | Q "ZQR|"_ZQR
|
|---|
