|
Last change
on this file since 1800 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
914 bytes
|
| Line | |
|---|
| 1 | IBCNRZP0 ;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 | ;
|
|---|
| 14 | 1000 ; Control ZP0 Segment processing
|
|---|
| 15 | D INIT
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | INIT ; 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.
