| 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)
|
|
