Print Page as PDF
DBIA3514-E ICR (3518)

DBIA3514-E    ICR (3518)

Name Value
NUMBER 3518
IA # 3518
DATE CREATED 2003/08/12
CUSTODIAL PACKAGE COMMUNICATIONS SERVICE LIBRARY
CUSTODIAL ISC Washington
USAGE Controlled Subscription
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE CSLFB25
NAME DBIA3514-E
ORIGINAL NUMBER 3514
GENERAL DESCRIPTION
Define the use of the CSL API to be called by Fee
Basis; and to define the use of ^XTMP by CSL in the interface between Fee
Basis and CoreFLS.
STATUS Retired
ID CSLFB25
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
$$BLDMSG(.DATA,.PatientData)
Extrinsic function used to submit a request for
Authorization Creation /General Ledger Journal Request /Adjustment Request in
CoreFLS via an HL7 message.

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^CSLFB25 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 transaction.

DATA(2) = Authorization ID
DATA(3) = Transaction Type
DATA(4) = Accounting Code String
DATA(5) = Fee Program
DATA(6) = Entered_dr (debit)
DATA(7) = Entered_cr (credit)
DATA(8) = Estimated Amount
DATA(9) = Agent ID
DATA(10) = Treatment From Date,
formatted as YYYYMMDD
DATA(11) = Treatment To Date,
formatted as YYYYMMDD
.PatientData Input
Second parameter, passed by reference, is
patient-related information:

PDATA(1) = Veteran ID (the 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
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("CSLFB25;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("CSLFB25;MSGID","AUTHORIZATION_ID") =
Authorization ID
^XTMP("CSLFB25;MSGID","PRE_VALIDATION_MSG") =
Pre Validation Message
^XTMP("CSLFB25;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("CSLFB25;MSGID","ERR",$H) = Error
description, applicable for both
Application Error (AE) and
Application Reject (AR)
SUBSCRIBING PACKAGE FEE BASIS