Routine: FBAAUTL2

Information

FBAAUTL2 ;AISC/GRR - FEE UTILITY ROUTINE ;9/21/14 21:48

Name	Comments	DBIA/ICR reference
CONDAT	;called from input transform in 161.21,.02-.03
DATES	;ASK FROM AND TO DATES AND ENSURE THEY DO NOT OVERLAP PRIOR AUTHORIZATIONS
FDAT
EDAT
EN1	;CHECK WHETHER AUTHORIZATION FROM DATE OVERLAPS PREVIOUS ENTRIES
END
CHKDT
CHKBO
ERRD
UPDT	;UPDATE BATCH STATUS
PAT		ICR #5106 Status: Retired Usage: Controlled Subscription
ASKVOK
VENOUT
FBPH
PRPRDT
IFCAP
POV	;GET POV/TREATMENT TYPE FROM 161 FOR TRANSMISSION OF PAYMENTS ; in K, L, M, N - IENs for File 162 service provided multiple ; out POV - purpose of visit (internal pointer) or null ; out FBTT - treatment type (internal code) or null	ICR #5106 Status: Retired Usage: Controlled Subscription
XREF	;SET X-REF FOR PRINT AUTHORIZATION FIELD (161.01,1)
ADD
KILL
VER(X)	;determine version of a file based on DD node

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"Date entered overlaps existing contract dates!",! Line Location: CONDAT+4
Function Call: WRITE	Prompt: !!?5,"There already is an active CNH authorization on file.",!?5,"Use the 'Edit CNH Authorization' option.",! Line Location: CHKDT+2
Function Call: WRITE	Prompt: !,*7,$S(FBLG=1:"FROM ",1:"TO "),"DATE entered overlaps a previous Authorization!",! Line Location: ERRD+0
Function Call: WRITE	Prompt: ! Line Location: FBPH+0
Function Call: WRITE	Prompt: ?60,Y Line Location: PRPRDT+0

FileNo	Call Tags
^FBAA(161.7 - [#161.7]	Classic Fileman Calls