Print Page as PDF
DBIA2722 ICR (2722)

DBIA2722    ICR (2722)

Name Value
NUMBER 2722
IA # 2722
DATE CREATED 1999/01/21
CUSTODIAL PACKAGE PCE PATIENT CARE ENCOUNTER
CUSTODIAL ISC Albany
USAGE Private
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE PXBAPI21
NAME DBIA2722
GENERAL DESCRIPTION
Integration Agreement between PCE and EVENT CAPTURE for
use of CLASS^PXBAPI21.

After answering "No" to "Service Connected:", the user expects to see the
prompt(s) for AO/IR/EC/CLV as appropriate for the patient (just as in
Scheduling checkout), but these prompts are never seen for SC 50-100% vets.
The reason being that Event Capture uses calls to SC^SDCO22, AO^SDCO22,
EC^SDCO22, IR^SDCO22, and CLV^SDCO22 to determine which of the classification
questions should be asked. (That takes place in ASKCLASS^ECUTL1 and
GETCLASS^ECUTL1.) AO^SDCO22, EC^SDCO22, IR^SDCO22, and CLV^SDCO22 always
return zero for an SC 50-100% vet -- therefore Event Capture never prompts for
any of these classifications even though the encounter is not related to the
patient's service connected disabilities.

Looking into the Scheduling checkout functionality, it is CLASS^PXBAPI21 which
allows this scenario to be properly handled (starting in INTV^PXAPI) -- it
allows the user to answer AO/IR/EC/CLV for SC 50-100% vets after specifying
that the encounter isn't service connected.

Specifically, the call will be constructed as follows:

N PBXDATA
D NOW^%DTC S DATE=%
D CLASS^PXBAPI21("",DFN,DATE,1,"")

An example of user prompts for an SC 50-100% patient with exposure to AO, IR,
EC, and CLV follows:

--- Classification --- [Required]

Was treatment for SC Condition? NO
Was treatment related to Agent Orange Exposure? YES
Was treatment related to Ionizing Radiation Exposure? YES
Was treatment related to Environmental Contaminant Exposure? YES
Was treatment related to Camp Lejeune Exposure? YES

Data is returned as follows:

PXBDATA(1)=0^1       <-- Agent Orange
PXBDATA(2)=0^1       <-- Ionizing Radiation
PXBDATA(3)=0^0       <-- Service Connected
PXBDATA(4)=0^1       <-- Environmental Contaminants
PXBDATA(5)=0^1       <-- Camp Lejeune
where the 2nd piece indicates the user's answer to the
classification prompt -- 0=NO, 1=YES



STATUS Active
DURATION Till Otherwise Agreed
ID PXBAPI21
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
CLASS
Subroutine with parameter list --
CLASS^PXBAPI21(PXBOUTEN,PXBPAT,PXBVSTDT,PXBHLOC,PXBVST)

Prompts for patient encounter classifications for SC/AO/IR/EC/CLV.  Results
returned in local PXBDATA array.

VARIABLES TYPE VARIABLES DESCRIPTION
PXBOUTEN Input
EVENT CAPTURE will always set variable PXBOUTEN to
null.
PXBPAT Input
EVENT CAPTURE wil always place the internal entry
number from the PATIENT file (#2) for the patient of interest into variable
PXBPAT.
PXBHLOC Input
EVENT CAPTURE will always set variable PXBHLOC to the
value 1.
PXBVST Input
EVENT CAPTURE will always set variable PXBVST to
null.
PXBVSTDT Input
EVENT CAPTURE will always place the current date/time
in standard FileMan formart into variable PXBVSTDT.
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
EVENT CAPTURE Albany
DATE ACTIVATED 2017/01/10