5098 - FBCSV1 for FBCS (DSS) ICR (5098)

Name

Value

NUMBER

5098

IA #

5098

DATE CREATED

2008/01/31

CUSTODIAL PACKAGE

FEE BASIS

USAGE

Controlled Subscription

TYPE

Routine

ROUTINE

FBCSV1

NAME

5098 - FBCSV1 for FBCS (DSS)

ORIGINAL NUMBER

5089

STATUS

Retired

KEYWORDS

FBCS

DURATION

Till Otherwise Agreed

FBCSV1

COMPONENT/ENTRY POINT

COMPONENT DESCRIPTION

VARIABLES

$$CHKICD0(FBIEN,FBDATE)

to use in prompts (and input templates)of file #162.5
to screen out inactive/invalid codes

VARIABLES	TYPE	VARIABLES DESCRIPTION
FBIEN	Input	ICD IEN
FBDATE	Input	(optional) date of service
FBICD0	Input	ien of #80.1
FBINV	Input	ien of the current #162.5 record
FBRET	Output	0 if code is active, otherwise - nonzero value

$$CHKICD9(FBIEN,FBDATE)

checks if code is inactive on the date of service and
if active returns CODE NUMBER

VARIABLES	TYPE	VARIABLES DESCRIPTION
FBIEN	Input	IEN of ICD Dx
FBDATE	Input

$$ICD(FBIEN,FBDATE)

wrapper for DRG^ICDGTDRG to use instead of direct
read of ^ICD(

VARIABLES	TYPE	VARIABLES DESCRIPTION
FBIEN	Input	FBIEN - ien of #80.1
FBDATE	Input	FBDATE - date of service (optional)

$$ICD0(FBIEN,FBDATE)

wrapper for ICDOP^ICDCODE to use instead of direct
read of ^ICD0(

VARIABLES	TYPE	VARIABLES DESCRIPTION
FBIEN	Input	FBIEN - ien of #80
FBDATE	Input	FBDATE (optional) - date of service

$$ICD9(FBIEN,FBDATE)

wrapper for ICDDX^ICDCODE to use instead of direct
read of ^ICD9(

VARIABLES	TYPE	VARIABLES DESCRIPTION
FBIEN	Input	FBIEN - ien of #80
FBDATE	Input	FBDATE (optional) - date of service

$$ICD9EX(FBIEN,FBPC,FBEXTR,FBDATE)

extended wrapper for ICDDX^ICDCODE to use instead of
direct read of ^ICD9(

VARIABLES	TYPE	VARIABLES DESCRIPTION
FBIEN	Input	FBIEN - ien of #80
FBPC	Input	FBPC - piece #
FBEXTR	Input	$E Parameter
FBDATE	Input	Date of service (optional)

$$STR2FBDT(FBDTSTR)

convert date as a string like "MMDDYYYY" into FM date
like "YYYMMDD"

VARIABLES	TYPE	VARIABLES DESCRIPTION
FBDTSTR	Both	convert date as a string like "MMDDYYYY" into FM date like "YYYMMDD"
Y	Output	fm date format

$$FRDTINV(FBDA)

Returns first date found in the following order:
Discharge date, (from 162.3 after lookup)
Treatment To date, (from 162.5)
Treatment From date (from 162.5)

VARIABLES	TYPE	VARIABLES DESCRIPTION
FBDA	Input	IEN to 162.5, used to find date

SUBSCRIBING PACKAGE

FEE BASIS CLAIMS SYSTEM

DATE ACTIVATED

2009/06/11