DGPF DBRS DATA ICR (6874)

Name

Value

NUMBER

6874

IA #

6874

DATE CREATED

2018/02/13

CUSTODIAL PACKAGE

REGISTRATION

USAGE

Controlled Subscription

TYPE

Routine

DBIC APPROVAL STATUS

APPROVED

ROUTINE

DGPFDBRS

NAME

DGPF DBRS DATA

GENERAL DESCRIPTION

The purpose of this API is to facilitate the retrieval
of the Disruptive Behavior Reporting System (DBRS)  numbers. The  DBRS numbers
are stored in VistA in the file PRF ASSIGNMENT FILE (#26.13).

STATUS

Active

KEYWORDS

DBRS

DURATION

Till Otherwise Agreed

DGPFDBRS

COMPONENT/ENTRY POINT

COMPONENT DESCRIPTION

VARIABLES

$$GETDBRS(DGDFN,DGRETARR,DGFLAG)

This function entry point is used to retrieve the
Disruptive Behavior Reporting System (DBRS)  numbers for a specific patient
and flag. The patient for the function call is specified by IEN in the PATIENT
file (#2) in the first parameter. The second parameter is used to return the
array with data. The third parameter is used to specify the flag, for which
the last DBRS entry data need to be returned as a return value of the function
(default is "BEHAVIORAL").  MUMPS code example of use:

>S DFN=7209323 K ARR W $$GETDBRS^DGPFDBRS(DFN,.ARR),! ZW ARR

777.123456^for Hines ARR("BEHAVIORAL",1)="777.123456^for Hines"
ARR("BEHAVIORAL",2)="500.123456^for Albany" ARR("HIGH RISK FOR
SUICIDE",1)="675GA.172150^the DBRS case A" ARR("HIGH RISK FOR
SUICIDE",2)="573GI.170161^the DBRS case B"

VARIABLES

TYPE

VARIABLES DESCRIPTION

DGDFN

Input

(Required) IEN of patient in the PATIENT File (#2).

DGRETARR

Output

(Required) The array to return information in the
following format:
ARR(1)="DBRS#^DBRS date^DBRS other information"
ARR(2)="DBRS#^DBRS date^DBRS other information"
...
ARR(n)="DBRS#^DBRS date^DBRS other information"
Note: the DBRS entries are listed in the reversed order. ARR(1) contains the
latest entry.

DGFLAG

Input

The flag name, for which flag the DBRS entry data
need to be returned as a return value of the function. Note: Default is
"BEHAVIORAL".

SUBSCRIBING PACKAGE

SUBSCRIBING PACKAGE	SUBSCRIBING DETAILS
ORDER ENTRY/RESULTS REPORTING	The API is called by HASFLG^ORPRF to support the ORPRF GETFLG" RPC.

DATE ACTIVATED

2018/05/29