Routine: FBAAUTL

Information

FBAAUTL ;AISC/GRR,SBW-Fee Basis Utility Routine ; 4/23/10 3:06pm

Source file <FBAAUTL.m>

Name	Comments	DBIA/ICR reference
DATE
ZIS
CLOSE
D
SITEP	;SET FBSITE(0),FBSITE(1) VARIABLE TO FEE SITE PARAMETERS	ICR #5090 Status: Retired Usage: Controlled Subscription
TM
PDF		ICR #5090 Status: Retired Usage: Controlled Subscription
GETNXB	;GET NEXT AVAILABLE BATCH NUMBER	ICR #5090 Status: Retired Usage: Controlled Subscription
WARNBT
GETNXI	;GET NEXT AVAILABLE INVOICE NUMBER	ICR #5090 Status: Retired Usage: Controlled Subscription
PDATE
DATCK
DATX(X)	;external output function for date format	ICR #5090 Status: Retired Usage: Controlled Subscription
STATION	;GET STATION NUMBER FROM INSTITUTION FILE	ICR #5090 Status: Retired Usage: Controlled Subscription
NOSTA
HD	;set transmission header
SSN(PID,BID,DOD)	;	ICR #5090 Status: Retired Usage: Controlled Subscription
SSNL4(SSN)	;Convert 1st 5 digits of SSN to X (Only print last 4 digits of SSN)
PYMTH(CODE)	; Payment Methodology Processing (FB3.5158) ; input --> CODE: Fee Schedule/Payment Methodology code ; output --> Payment methodology name or '@' to delete existing value
CRARC(FBADJ,FBRRMK,FBCRARC)	; compile CARCs and RARCs into an array for batch processing

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"** Date Range Selection **" Line Location: DATE+0
Function Call: WRITE	Prompt: ! Line Location: DATE+1
Function Call: WRITE	Prompt: ! Line Location: DATE+2
Function Call: WRITE	Prompt: ! Line Location: DATE+2
Function Call: WRITE	Prompt: ! Line Location: ZIS+2
Function Call: WRITE	Prompt: !,*7,"REQUEST QUEUED",!,"Task #: ",$G(ZTSK) Condition for execution: $D(ZTSK) Line Location: ZIS+2
Function Call: WRITE	Prompt: !,*7,"There are ",9999999-FBBATLT," batches left before the BATCH PURGE routine",!,"needs to be run. Contact your IRM Service!",!! Line Location: WARNBT+0
Function Call: WRITE	Prompt: !!,*7,"Unable to determine Station Number. Check Fee Site Parameters or Station Number in the Institution File.",!! Line Location: NOSTA+0
Function Call: WRITE	Prompt: !,"Transmission header must exist in FEE BASIS SITE PARAMETER file",!,"before you can proceed.",*7,! Line Location: HD+2