source: WorldVistAEHR/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSJZQR.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1BPSJZQR ;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 ;
7EN(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
Note: See TracBrowser for help on using the repository browser.