Print Page as PDF
DBIA3514-C ICR (3516)

DBIA3514-C    ICR (3516)

Name Value
NUMBER 3516
IA # 3516
DATE CREATED 2003/08/12
CUSTODIAL PACKAGE COMMUNICATIONS SERVICE LIBRARY
CUSTODIAL ISC Washington
USAGE Controlled Subscription
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE CSLFB16
NAME DBIA3514-C
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
ID CSLFB16
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
$$BLDMSG(.DATA,.VendorData,.PatientData)
Extrinsic function called by the Fee Basis
application to submit a request for an Outpatient/Ancillary Invoice Creation
to be exported to CoreFLS by HL7 messaging.

The function's return value is a VistA HL7 message ID if a 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, and before
response is received from CoreFLS. SUB^CSLFB16 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, is an array of
general information about the transaction.

DATA(1,seq#) = Line Item Number, where seq#
will denote the line item number
ranging from 1 to n.
DATA(2) = Authorization ID
DATA(3) = VistA Payment Batch ID
DATA(4) = Vendor 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) = General Ledger Name
DATA(11) = Invoice Amount
DATA(12,seq#) = Invoice Line Item Amount
DATA(13,seq#) = Prompt Pay Type for line item
DATA(14) = Payment Type Code
DATA(15,seq#) = Suspend Code for line item
DATA(16,seq#) = Amount Claimed for line item
DATA(17) = Buyer SSN
DATA(18,seq#) = CPT Code for line item
DATA(19,seq#) = CPT Modifier for line item
DATA(20,seq#) = Treatment Service Date, format: YYYYMMDD
DATA(21) = Total Invoice Line items
DATA(22,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 parameter, 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's Suffix
PDATA(7) = Address Line 1
PDATA(8) = Address Line 2
PDATA(9) = City
PDATA(10) = State
PDATA(11) = Zip
PDATA(12) = Patient Account Number
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("CSLFB16;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("CSLroutineNme;MSGID",Subscript_Name") = data

^XTMP("CSLFB16;MSGID","VISTA_PAYMENT_BATCH_ID") =
VistA Payment Batch ID ^XTMP("CSLFB16;MSGID","VISTA_INVOICE_NUMBER")
=
VistA Invoice Number ^XTMP("CSLFB16;MSGID","PRE_VALIDATION_MSG") =
Pre Validation Message

^XTMP("CSLFB16;MSGID","TIME")
[1] = $H when HL7 message 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:
day 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("CSLFB16;MSGID","ERR",$H) =
Error description, applicable for
both Application Error (AE)
and Application Reject (AR)
SUBSCRIBING PACKAGE FEE BASIS