source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCNRZP0.m@ 1604

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

initial load of WorldVistAEHR

File size: 914 bytes
Line 
1IBCNRZP0 ;DAOU/DMK - Receive HL7 e-Pharmacy ZP0 Segment ;23-OCT-2003
2 ;;2.0;INTEGRATED BILLING;**251**;21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 ; Description
6 ;
7 ; Receive HL7 e-Pharmacy ZP0 Segment
8 ; 365.12 PAYER File Update
9 ;
10 ; Called by IBCNRHLT
11 ;
12 ; Entry point
13 ;
141000 ; Control ZP0 Segment processing
15 D INIT
16 Q
17 ;
18INIT ; Initialize ZP0 Segment variables
19 ; 365.12 PAYER File
20 ;
21 ; .01 = PAYER NAME
22 S DATA(.01)=$G(IBSEG(5))
23 ;
24 ; Error?
25 ; V110 = Payer Name Missing
26 I $TR(DATA(.01)," ","")="" S ERROR="V110" Q
27 ;
28 ; .02 = VA NATIONAL ID
29 S DATA(.02)=$G(IBSEG(4))
30 ;
31 ; Error?
32 ; V105 = Payer ID Missing
33 I $TR(DATA(.02)," ","")="" S ERROR="V105" Q
34 ;
35 ; .04 = DATE/TIME CREATED
36 ; MAD = Add
37 I IBCNACT="MAD",IEN=-1 S DATA(.04)=DATE("NOW")
38 ;
39 ; .05 = EDI ID NUMBER - PROF
40 S DATA(.05)=$G(IBSEG(7))
41 ;
42 ; .06 = EDI ID NUMBER - INST
43 S DATA(.06)=$G(IBSEG(6))
44 Q
Note: See TracBrowser for help on using the repository browser.