Print Page as PDF
Prosthetics Purchase Order Creation ICR (4341)

Prosthetics Purchase Order Creation    ICR (4341)

Name Value
NUMBER 4341
IA # 4341
DATE CREATED 2004/02/18
CUSTODIAL PACKAGE COMMUNICATIONS SERVICE LIBRARY
CUSTODIAL ISC Washington
USAGE Private
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE CSLPRPC*
NAME Prosthetics Purchase Order Creation
GENERAL DESCRIPTION
PO Creation is to transmit a message from CoreFLS to
VistA Prosthetics when a Prosthetics Purchase Order has been created in
CoreFLS.  There is no user interface in this event.  All data is transmitted
by CoreFLS.  When the event event occurs, a message is sent to VistA
Prosthetics via CSL.  Upon receipt,  an Application Acknowledgement ACK or NAK
is returned to CoreFLS.

Information is transmitted from CoreFLS in an HL7 format.  Incoming info is
read by routine CSLPRPC.  If the Order Status is "NW", a PO is created  in
CoreFLS successfully.  If the Order Status is "DE", a PO has an error and not
created in CoreFLS.

Information from CoreFLS is put into a global ^XTMP for use by VistA
Prosthetics.

STATUS Active
KEYWORDS
  • PO Creation
  • CoreFLS
  • Prosthetics
ID CSLPRPC*
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
CRT
D CRT^CSLPRPC
VARIABLES TYPE VARIABLES DESCRIPTION
Input Input
Message Control ID - created by the HL7 package and
is concatenated with the "CSLPRPC" and used as part of the node subscripts and
node value into the ^XTMP global.  Order Control - PO status as New Order (NW)
or Data Error (DE) Prosthetics Batch ID - An identifier for Prosthetic batch
CoreFLS PO # - An Purchase Order number created by CoreFLS Line IEN - Line
internal entry number from VistA Prosthetics Order Status - "VAAP", if
approved by CoreFLS Approved Date - date and time the PO approved by CoreFLS
PO Header ID - An identifier for CoreFLS PO header Ship to Location Code - A
code assigned by user CoreFLS Line Number - Line number in this PO from
CoreFLS Item Number -  the item number ordered on a specific line of a PO.
Contract Number - Contract which item(s) purchase by.  Contract Type - type of
contract Accounting Code String - the complete Account Classification String
for the PO.  Quantity - Quantity actually ordered Unit of Measure Code -
standard code indicating the unit of measure for item UOM Description - the
spelled out description of the Unit of Measure CoreFLS Line ID - An identifier
of the specific line item on the PO Purchase card Number - 16 digits,
specifying the card used for this order  Ship to Org Code - Organization code
where the order delivered to Vendor Number - the number that identifies a
specific vendor Vendor Site Code - the site code for the vendor on the PO

These fields are captured by CSL and formatted into an ^XTMP global as
specified.  The CSL routine calls a VistA routine, EN^RMPRCSL2(CSLSUB),
passing the complete node structure of "CSLPRPC" concatenated with the Message
Control ID, for processing.

Output Output
^XTMP("CSLPRPC;"_MID,"ORDER CONTROL")=Order Control
type
Date^PO Header ID
^XTMP("CSLPRPC;"_MID,"VENDOR","ID")=Vendor #^^^Vendor Site Code
^XTMP("CSLPRPC;"_MID,"ITEM",ITEM #,"ACCOUNTING",1)=Accounting Code String
(ACS) ^XTMP("CSLPRPC;"_MID,"ITEM",ITEM #,"ACCOUNTING",2)= coreFLS Line
ID^P-Card #^Line IEN^ Order Control type ^XTMP("CSLPRPC;"_MID,"ITEM",ITEM
#,"DELIVERY")=Ship to Org Code^ Ship to Location Code
^XTMP("CSLPRPC;"_MID,"ITEM",ITEM #,"DETAIL",1)=coreFLS Line #^Item #^ Item
Description^Quantity^UOM Code^UOM Description^Contract #^Unit Price^Contract
Type ^XTMP("CSLPRPC;"_MID,"ITEM",ITEM #,"ERROR")=Error Message from
coreFLS^Error Message from CSL ^XTMP("CSLPRPC;"_MID,"ERROR")="DE"   if errors
found

The CSL routine evaluates the data sent by CoreFLS for the following structure
and content: Vendor ID is not numeric Item Number is not numeric Quantity is
not numeric Unit Price is more than five digits after decimal point

After VistA Prosthetics processes the supplied information, if an error is
detected, an error node will be created, ^XTMP("CSLPRPC;"_MID,"ERROR").

SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
PROSTHETICS Washington/Silver Spring