Print Page as PDF
Prosthetics Purchasing Event ICR (4339)

Prosthetics Purchasing Event    ICR (4339)

Name Value
NUMBER 4339
IA # 4339
DATE CREATED 2004/02/25
CUSTODIAL PACKAGE COMMUNICATIONS SERVICE LIBRARY
USAGE Controlled Subscription
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE CSLPRPP
NAME Prosthetics Purchasing Event
GENERAL DESCRIPTION 
Agreed upon format for handoff and return between VistA
Prosthetics and CSL for the Prosthetics Purchasing interface event.
STATUS Active
KEYWORDS
  • Prosthetics
  • Purchasing
DURATION Till Otherwise Agreed
ID CSLPRPP
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
ENT 
Entry point of Purchasing event routine, Prosthetics
will call interactively with the variable CSLINP populated with data to be
passed.

When the pre-verification status is received from CoreFLS, an interactive call
to RETURN^RMPR9HOC with variables CSLOUT and CSLRI populated will occur.
VARIABLES TYPE VARIABLES DESCRIPTION
CSLINP Input 
Header:

CSLINP("H")=Prosthetics Batch ID#_^_Prosthetics Station #_^_Patient IEN_^_PPA
SSN_^_Vendor Number_^_Vendor Site Code_^_Purchase Card #_^_Bulk Indicator Flag

CSLINP("H",1)=Source Code_^_Reason Code_^_Purchase Method_^_Possible
Competitive Status_^_Preference Program

Repeating Body:

CSLINP(line #)=VistA Line IEN_^_Item Number_^_Restricted Flag_^_UoM
Code_^_Quantity_^_Unit Price_^_Contract Type_^_Contract Number_^_Ship To Org
Code_^_Need By Date_^_Direct Delivery Flag

CSLINP(line #,"ACS")=Accounting Code String

CSLINP(line #,"SH")=Shipping & Handling Cost_^_Total Cost of PO Line_^_Total
Cost of PO

CSLINP(line #,"ID")=Item Description

CSLINP(line #,"NR")=Note to Receiver

CSLINP(line #,"NS")=Note to Supplier

CSLINP(line #,"TPA")=Third Party Address Line 1_^_Line 2_^_City_^_State_^_Zip
Code
CSLOUT Output 
(Where CSLRI is the Prosthetics Batch ID # returned
from CoreFLS)

CSLOUT(CSLRI)=Prevalidation Result Flag CSLOUT(CSLRI,"ERR",error # 1-N)=Error
Message #1-N
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE SUBSCRIBING DETAILS
PROSTHETICS 
Prosthetics will use this application agreement to send
PO data to CoreFLS and receive pre-validation results on those POs.