DBIA3514-D ICR (3517)

Name

Value

NUMBER

3517

IA #

3517

DATE CREATED

2003/08/12

CUSTODIAL PACKAGE

COMMUNICATIONS SERVICE LIBRARY

CUSTODIAL ISC

Washington

USAGE

Controlled Subscription

TYPE

Routine

DBIC APPROVAL STATUS

APPROVED

ROUTINE

CSLFB39

NAME

DBIA3514-D

ORIGINAL NUMBER

3514

GENERAL DESCRIPTION

Define the use of the CSL API to be called by Fee
Basis, and the use of ^XTMP by CSL in the interface between Fee Basis and
CoreFLS.

STATUS

Retired

CSLFB39

COMPONENT/ENTRY POINT

COMPONENT DESCRIPTION

VARIABLES

$$BLDMSG(.DATA,.VendorData,.PatientDataT)

Extrinsic function called by the Fee Basis
application to submit a request for a Pharmacy Invoice Creation to be exported
to CoreFLS by HL7 messaging.

The function's return value is a VistA HL7 message ID if message is
successfully submitted to HL7 for transmission to CoreFLS, in the format
Station# concatenated with VistA HL7 IEN to ^HLMA. If HL7 cannot process the
message, then the $$BLDMSG function returns 0.

$$BLDMSG finishes execution after submitting message to HL7 but before
response is received from CoreFLS.  SUB^CSLFB39 is invoked by HL7 in order to
process the CoreFLS response. All results are placed in the ^XTMP global. The
HL7 message ID is passed to Fee Basis via the variable CSLTFEE for retrieval
of the data in the ^XTMP global.

VARIABLES	TYPE	VARIABLES DESCRIPTION
.DATA	Input	First parameter, passed by reference, contains information related to the authorization document. DATA(1,seq#) = Line Item Number, where seq# will indicate the line item number ranging from 1 to n DATA(2) = Authorization ID DATA(3) = VistA Payment Batch ID DATA(4) = Invoice Date, format: YYYYMMDD DATA(5) = Invoice Received Date, format: YYYYMMDD DATA(6) = Payment Flag DATA(7) = Accounting Code String DATA(8) = VistA Invoice Number DATA(9) = Fee Program DATA(10) = Invoice Amount DATA(11,seq#) = Invoice Line Item Amount DATA(12,seq#) = Prompt Pay Type for line item DATA(13) = Payment Type Code DATA(14,seq#) = Suspend Code for line item DATA(15,seq#) = Amount Claimed for line item DATA(16) = Buyer SSN DATA(17,seq#) = Prescription number for line item DATA(18,seq#) = Date Prescription filled, format:YYYYMMDD DATA(19) = Total Invoice Line items DATA(20,seq#) = Invoice item counter
.VendorData	Input	Second parameter, passed by reference, contains vendor-related information. VDATA(1) = Supplier Number VDATA(2) = Supplier Site Name
.PatientData	Input	Third paramter, passed by reference, contains patient-related information. PDATA(1) = Veteran ID (full SSN) PDATA(2) = Veteran ICN PDATA(3) = Veteran Last Name PDATA(4) = Veteran First Name PDATA(5) = Veteran Middle Initial PDATA(6) = Veteran Suffix PDATA(7) = Address Line 1 PDATA(8) = Address Line 2 PDATA(9) = City PDATA(10) = State PDATA(11) = Zip
XTMP global	Output	Header Node: ^XTMP("CSLroutineName;MSGID";0)= PurgeDate^CreateDate^StatusMessage [n] Where: n = piece number ("^" delimited) MSGID = HL7 message ID consisting of Station# concatenated with IEN to ^HLMA for original HL7 message. ^XTMP("CSLFB39;MSGID",0) [1] = Purge Date (current date+35 days), FileMan internal date format. [2] = Create Date (current date), FileMan internal date format. [3] = User-friendly status message to indicate message processing is completed. Data Node: ^XTMP("CSLroutineName;MSGID","Subscript_Name") = data ^XTMP("CSLFB39;MSGID","PRE_VALIDATION_MSG") = Pre Validation Message ^XTMP("CSLFB39;MSGID","VISTA_INVOICE_NUMBER") = VistA Invoice Number ^XTMP("CSLFB39;MSGID","VISTA_PAYMENT_BATCH_ID") = VistA Payment Batch ID ^XTMP("CSLFB39;MSGID","TIME") = [1] = $H when HL7 message was submitted for transmission to CoreFLS. [2] = $H when CoreFLS response was processed. [3] = Computed time used for the round trip to CoreFLS in the following format: days hours:minutes:seconds. [4] = DUZ of user who created the message in VistA Fee Basis. For exceptions sent by CoreFLS, the error message will be stored after the zero node as follows: ^XTMP("CSLFB39;MSGID","ERR",$H) = Error description, applicable for both Application Error (AE) and Application Reject (AR)

SUBSCRIBING PACKAGE

FEE BASIS