PRCVIBH ;WOIFO/DST - Issue Book Processing, from DynaMed to IFCAP ;7/26/05 17:10
Source file <PRCVIBH.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CRT | ; Process Issue Book transactions sent from DynaMed to IFCAP
|
|
| MAIN | ; Main routine
; Check HL7 message type and message event ; PRCVEA - Error message array ; PRCVTDT - Transaction Date ; PRCVDAC - Document Action |
|
| HEADER | ||
| START | ||
| ERR | ||
| OK | ; Calling IFCAP and FMS routines for Issue Book and FMS update
|
|
| CHKSEQ(SEG) | ; SEG - Segment name
|
|
| EVN | ; Process EVN segment
|
|
| PID | ; Process PID segment
|
|
| FT1 | ; Process FT1 segment
|
|
| GENACK(PRCVAC,PRCVMCID,PRCVDT,PRCVOCCR) | ;
|
|
| ADDERR(PRCVER,PRCVFD) | ;
; PRCVER - Error message ; PRCVFD - Field number, if any |
|
| XTMP(AC) | ; Move ^TMP(PRCVSUB,$j) to ^XTMP
|
|
| FIN | ; Clean up
|
|
| TXT | ;
|
|
| EVN1 | ;;^EVN^^Missing segment ^100^Missing line item info.
|
|
| PID1 | ;;EVN^^^Missing segment ^100^Missing line item info.
|
|
| FT11 | ;;PID^FT1^^Missing segment ^100^Missing line item info.
|
| HL7 Protocol Name | Call Tags |
|---|---|
| PRCV_IFCAP_06_SU_IB_PROC | CRT |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | FIND1^DIC, GET1^DIQ |
| ^DIC(4 - [#4] | GET1^DIQ |
