5085 - FBAAFA for FBCS (DSS) ICR (5085)

Name

Value

NUMBER

5085

IA #

5085

DATE CREATED

2008/01/31

CUSTODIAL PACKAGE

FEE BASIS

USAGE

Controlled Subscription

TYPE

Routine

ROUTINE

FBAAFA

NAME

5085 - FBAAFA for FBCS (DSS)

ORIGINAL NUMBER

5079

GENERAL DESCRIPTION

FBCS Access to Subs:
LOADADJ^FBAAFA (Load Adjustments FROM FILE 162.03)
ADJLRA^FBAAFA (Adjustment Reason^Amount List Extrinsic Function)
FILEADJ^FBAAFA (File Adjustments FOR 162.03)

STATUS

Retired

KEYWORDS

FBCS

DURATION

Till Otherwise Agreed

FBAAFA

COMPONENT/ENTRY POINT

COMPONENT DESCRIPTION

VARIABLES

LOADADJ(FBIENS,.FBADJ)

Load existing Adjustments from file 162.

VARIABLES	TYPE	VARIABLES DESCRIPTION
FBIENS	Input	required, internal entry numbers for subfile 162.03 in standard format as specified for FileMan DBS calls
FBADJ	Both	required, array passed by reference used to load adjustments into. Output: ; FBADJ(#)=FBADJR^FBADJG^FBADJA ; where ; # = sequentially assigned number starting with 1 ; FBADJR = adjustment reason (internal value file 162.91) ; FBADJG = adjustment group (internal value file 162.92) ; FBADJA = adjustment amount (dollar value) ; if no adjustments are on file then the array will be ; undefined
FBADJR	Output	adjustment reason (internal value file 162.91)
FBADJG	Output	adjustment group (internal value file 162.92)
FBADJA	Output	adjustment amount (dollar value)

$$ADJLRA(M_","_L_","_K_","_J_",")

Adjustment Reason^Amount List Extrinsic Function

VARIABLES	TYPE	VARIABLES DESCRIPTION
M	Input	Service Provided IEN, subfile 162.03
L	Input	Initial treatment date IEN, subfile 162.02
K	Input	Vendor IEN, subfile 162.02
J	Input	Patient IEN, field .01 of file 162

FILEADJ(FBAACPI,FBSDI,FBV,DFN,.FBADJ)

File the adjustment in file 162.03 function

VARIABLES

TYPE

VARIABLES DESCRIPTION

FBIENS

Input

Variable set with: FBAACPI_,_FBSDI_,_FBV_,_DFN Where:
DFN=Patient IEN
FBV=Vendor IEN
FBSDI=Date os service multiple IEN
FBAACPI=Service provided multiple IEN

FBADJ

Input

;   FBADJ   - required, array passed by reference
;             array of adjustments to file
;             array does not have to contain any data or be defined
;             format
;               FBADJ(#)=FBADJR^FBADJG^FBADJA
;             where
;               # = sequentially assigned number starting with 1
;               FBADJR = adjustment reason (internal value file 161.91)
;               FBADJG = adjustment group (internal value file 161.92)
;               FBADJA = adjustment amount (dollar value)

NOTE: in FILEADJ^FBAAFA the above internal file entries are wrong, they show
the files as (internal value file 162.91 and 162.92)

SUBSCRIBING PACKAGE

FEE BASIS CLAIMS SYSTEM

DATE ACTIVATED

2009/06/11