PIP HCPCS Item File API Access ICR (7116)

Name

Value

NUMBER

7116

IA #

7116

DATE CREATED

2019/12/06

CUSTODIAL PACKAGE

PROSTHETICS

USAGE

Private

TYPE

Routine

DBIC APPROVAL STATUS

APPROVED

ROUTINE

RMPRPIX1

NAME

PIP HCPCS Item File API Access

GENERAL DESCRIPTION

This integration agreement allows the Advanced
Prosthetics Acquisition Tool (APAT) to call several entry points in
PROSTHETICS routine RMPRPIX1 when creating a Prosthetics Inventory Package
(PIP) stock issue.

STATUS

Active

KEYWORDS

APAT
LPS

DURATION

Till Otherwise Agreed

RMPRPIX1

COMPONENT/ENTRY POINT

VARIABLES

$$ETOI(RMPRE,RMPRI)

VARIABLES

TYPE

VARIABLES DESCRIPTION

RMPRE

Input

Array of data fields from the PROSTHETICS HCPCS ITEM
MASTER (#661.11) including:
RMPRE("IEN") - the PROSTHETICS HCPCS ITEM MASTER file (#661.11) IEN

RMPRI

Output

Array of data fields containing PROSTHETICS HCPCS
ITEM MASTER file (#661.11) fields in internal format:
RMPRI("IEN") - specified PROSTHETICS HCPCS ITEM MASTER file(#661.11) IEN
RMPRI("HCPCS") - field #.01 HCPCS
RMPRI("ITEM") - field #1 HCPCS ITEM
RMPRI("DESCRIPTION") - field #2 DESCRIPTION
RMPRI("STATION") - field #3 STATION
RMPRI("SOURCE") - field #4 SOURCE
RMPRI("UNIT") - field #5 UNIT OF ISSUE
RMPRI("ITEM MASTER IEN") - field #7 ITEM MASTER

RMPRERR

Output

Function Error Code:
RMPRERR = 0 - no errors
= 1 - error retrieving data from the PROSTHETICS HCPCS ITEM
MASTER file (#661.11) using GETS^DIQ

$$GET(RMPR)

VARIABLES

TYPE

VARIABLES DESCRIPTION

RMPR

Both

Input:
Array of fields containing:
RMPR("IEN") - PROSTHETICS HCPCS ITEM file #661.11 IEN

Output:
Array of data fields from the PROSTHETICS HCPCS ITEM file (#661.11)
including:
RMPR("IEN") - PROSTHETICS HCPCS ITEM file 661.11 IEN
RMPR("HCPCS") - field  #.01 HCPCS
RMPR("ITEM") - field #1 HCPCS ITEM
RMPR("DESCRIPTION") - field #2 DESCRIPTION
RMPR("STATION") - field #3 STATION
RMPR("SOURCE") - field #4 SOURCE
RMPR("UNIT") - field #5 UNIT OF ISSUE
RMPR("HCPCS-ITEM") - field #6 PSAS ITEM
RMPR("ITEM MASTER") - field #7 ITEM MASTER
RMPR("STATUS") - field #8 STATUS

RMPRCRE

Output

Function Exit Code:
RMPRCRE = 0 - no problems
= 1 - problems retrieving data from file 661.11
using GETS^DIQ

$$HPACT(RMPR)

VARIABLES

TYPE

VARIABLES DESCRIPTION

RMPR

Both

Input:
Array of data fields from the PROSTHETIC HCPCS file (#661.1) including:
RMPR("HCPCS") - HCPCS Code

Output:
Array of data fields containing the following fields for all PROSTHETIC
HCPCS IENs for the specified HCPCS code:
RMPR("IEN") - PROSTHETIC HCPCS file (#661.1 ) IEN
RMPR("HCPCS") - field #.01 HCPCS
RMPR("SHORT DESC") - field #.02 SHORT NAME
RMPR("NEW HCPC IEN") - field #1 NEW HCPCS CODE
RMPR("CPT CODE") - field #2 CPT
RMPR("STATUS") - field #3 STATUS
RMPR("NPPD REPAIR CODE") - field #5 NPPD REPAIR CODE
RMPR("NPPD NEW CODE") - field #6 NPPD NEW CODE
RMPR("CALC FLAG") - field #9 CALCULATION FLAG
RMPR("INV FLAG") - field #10 INVENTORY FLAG
RMPR("LAB TIME") - field #11 PRE-DETERMINED LAB TIME

RMPRCRE

Output

Function Error Code:
RMPRCRE = 0 - no problems
= 1 - null RMPR("IEN")
= 2 - error occurred when retrieving a record from file
661.1 using GETS^DIQ

$$HPETOI(RMPRE,RMPRI)

VARIABLES

TYPE

VARIABLES DESCRIPTION

RMPRE

Input

RMPRE - array of external values for PROSTHETIC HCPCS
(#661.1) file:
RMPRE("IEN") - PROSTHETIC HCPCS (#661.1) file IEN

RMPRI

Output

Array of data fields from the PROSTHETIC HCPCS file
(#661.1) in internal
format including:
RMPRI("IEN") - set to the specified PROSTHETIC HCPCS file
(#661.1) IEN
RMPRI("NEW HCPC IEN") - field #1 NEW HCPC CODE
RMPRI("CPT CODE") - field #2 CPT
RMPRI("STATUS") - field #3 STATUS
RMPRI("NPPD REPAIR CODE") - field #5 NPPD REPAIR CODE
RMPRI("NPPD NEW CODE") - field #6 NPPD NEW CODE
RMPRI("CALC FLAG") - field #9 CALCULATION FLAG
RMPRI("INV FLAG") - field #10 INVENTORY FLAG
RMPRI("LAB TIME") - field #11 PRE-DETERMINED LAB TIME

RMPRERR

Output

Function Error Code -
RMPRERR=0 - no errors
=1 - error occurred when retrieving specified PROSTHETIC
HCPCS file (#661.1)

SUBSCRIBING PACKAGE

ADVANCED PROSTHETICS ACQUISITION TOOL

DATE ACTIVATED

2020/01/13