Routine: FBNHRCS1

Information

FBNHRCS1 ;ACAMPUS/dmk-RCS 10-0168 CON'T ;10/20/98

Name	Comments	DBIA/ICR reference
START	;called from FBNHRCS for compiling and printing report
VAL	;when generating code sheets - validate vendors
EN	;start going through TMP to output report ; FBV=ien of vendor FBD= latest contract to date(-) ; FBI=ien of latest contract within date range
CONTR	;get numeric station number fro contract
CSC(X)	; This call will return city(15)_u_state code(2)_u_county(3)
COUNTY(X,Y)	;call returns the 3 digit county code
DOLLAR(X)	;round off rate to closest dollar and right justify to 3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Cannot determine proper station to build code sheets.",!,"Please check your Fee Basis Site Paramaters file (#161.4)" Line Location: START+2
Function Call: WRITE	Prompt: !,?5,$P($G(^FBAAV(+FBV,0)),U)," (ien: ",+FBV,")" Line Location: VAL+4
Function Call: WRITE	Prompt: !!,"WARNING: NO CODE SHEETS WILL BE CREATED" Line Location: VAL+7
Function Call: WRITE	Prompt: !,"The following vendor(s) are missing the required field DATE OF" Line Location: VAL+8
Function Call: WRITE	Prompt: !,"LAST ASSESSMENT. This data must be entered before any code" Line Location: VAL+9
Function Call: WRITE	Prompt: !,"sheets will be created." Line Location: VAL+10