Routine: IBTRHLO2

Information

IBTRHLO2 ;ALB/YMG - Create and send 278 inquiry cont. ;02-JUN-2014

Name	Comments	DBIA/ICR reference
HLSC(IEN,TSTAMP,HLRESLT)	; update entry in 356.22 on successful creation of HL7 message ; called from EN^IBTRHLO ; IEN - file 356.22 ien ; TSTAMP - timestamp of message creation ; HLRESLT - return value of GENERATE^HLMA() API call
HLER(IEN,ERRMSG)	; process error on failure to create HL7 message ; called from EN^IBTRHLO ; IEN - file 356.22 ien ; ERRMSG - error message string
WP2STR(FILE,FIELD,IENS,LEN)	; convert word-processing field into a single string ; FILE - file # ; FIELD - WP field # ; IENS - ien string of entry to process, including trailing comma ; LEN - maximum length of the output string (if not specified - unlimited length)
PRVDATA(IEN,FILE)	; get provider data ; IEN - ien for the entry ; FILE - file number IEN is for
PCODECNV(CODE)	; provider code conversion between NM1 and PRV X12 segments ; CODE - code to convert ; returns converted code (NM1 -> PRV), or null if no match found
NTE	; create NTE segment
ZHS	; create ZHS segment