PRCVIMF ;WOIFO/DST - DynaMed ITEM update HL7 messaging interface; 03/07/05
Source file <PRCVIMF.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(PRCVIN) | ;Entry point for API Call
|
|
| HDRBLD | ;Generate message header, MFI Segment
|
|
| MSGBLD | ; Build Message Body
; PRCVFLD - Field |
|
| BAR | ;
; N PRCVL,PRCVL1 ; S PRCVI=2 ; F S PRCVI=$O(HLA("HLS",PRCVI)) Q:'PRCVI D ; . S PRCVL=$L(HLA("HLS",PRCVI)) ; . F PRCVL1=PRCVL:-1 Q:PRCVL1<0 D ; .. I $E(HLA("HLS",PRCVI),PRCVL1)'="|" S PRCVL1=0 Q ; .. S HLA("HLS",PRCVI)=$E(HLA("HLS",PRCVI),1,PRCVL1-1) ; .. Q ; . Q |
|
| ZVI | ; ZVI segment
|
|
| MFKPROC | ;Process MFK^M01 response message
|
|
| ERROR | ;Process ERR Segments
|
|
| CLIFP | ;Call partner app w/ mail message for users on error
|
|
| FIN | ;Clean up variables
|
| HL7 Protocol Name | Call Tags |
|---|---|
| PRCV_IFCAP_05_EV_ITEM_UPD | MFKPROC |
| PRCV_IFCAP_05_SU_ITEM_UPD | MFKPROC |
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
