5090 - FBAAUTL for FBCS (DSS) ICR (5090)

Name

Value

NUMBER

5090

IA #

5090

DATE CREATED

2008/01/31

CUSTODIAL PACKAGE

FEE BASIS

USAGE

Controlled Subscription

TYPE

Routine

ROUTINE

FBAAUTL

NAME

5090 - FBAAUTL for FBCS (DSS)

ORIGINAL NUMBER

5089

STATUS

Retired

KEYWORDS

FBCS

DURATION

Till Otherwise Agreed

FBAAUTL

COMPONENT/ENTRY POINT

COMPONENT DESCRIPTION

VARIABLES

PDF

Date converter (FM to external)

VARIABLES	TYPE	VARIABLES DESCRIPTION
Y	Both	FM date passed in, external date returned

SITEP

SET FBSITE(0),FBSITE(1) VARIABLE TO FEE SITE
PARAMETERS (File 161.4)

VARIABLES	TYPE	VARIABLES DESCRIPTION
FBSITE(0)	Output	FBSITE(0)=$G(^FBAA(161.4,1,0))
FBSITE(1)	Output	FBSITE(1)=$G(^FBAA(161.4,1,1))
FBPOP	Output	ERROR flag = "Fee Basis Site Parameters must be entered to proceed"

$$SSN(DFN)

;PID = DFN of Patient. If this is all that is past,
;full Pt.ID (000-00-0000) will be returned.
;If BID = 1 the call will return last 4 of Pt.ID only.
;If DOD is defined to internal entry # of eligibility the appropriate
;Pt.ID will be returned

VARIABLES	TYPE	VARIABLES DESCRIPTION
PID	Input	Pt IEN
BID	Input	If BID = 1 the call will return last 4 of Pt.ID only
DOD	Input	If DOD is defined to internal entry # of eligibility the appropriate Pt.ID will be returned
FBSSN	Output	SSN, terminal digits, or error message

$$DATX(FBVCHDT)

external output function for date format

VARIABLES	TYPE	VARIABLES DESCRIPTION
FBVCHDT	Both	INPUT = FM internal date format (time optional) OUTPUT = date/time with slashes

$$GETNXI

GET NEXT AVAILABLE INVOICE NUMBER

VARIABLES	TYPE	VARIABLES DESCRIPTION
FBAAIN	Output	Invoice number File 161.4, field #11

GETNXB

GET NEXT AVAILABLE BATCH NUMBER

VARIABLES	TYPE	VARIABLES DESCRIPTION
FBBN	Output	Batch IEN

STATION

Get Station Number from INSTITUTION (#4) file

VARIABLES	TYPE	VARIABLES DESCRIPTION
FBSN	Output	Station Number
FBAASN	Output	Station Number

SUBSCRIBING PACKAGE

FEE BASIS CLAIMS SYSTEM

DATE ACTIVATED

2009/06/11