Routine: IBECPTT

Package	Total	Call Graph
VA FileMan	4	^DIC FILE^DICN ^DIE ^DIR
CPT HCPCS Codes	1	$$CPT^ICPTCOD

Entry Points

Name	Comments	DBIA/ICR reference
START
END	;
SEARCH	;update/create new billing code entries if conditions meet ; does not transfer to 350.4 if: - code inactive (in 81) ; - date effective already defined for code ; - deactivating a code not in billing ; - deactivating a code already inactive ; - stated old group not match current group ; - entry does not cause changes in rate or status
CREATE	;create entries in 350.4 and 409.71
STUFF	;stuff data into newly created entry in 350.4
ERROR	;entry can not be transfered for some reason, flag piece 7 in 350.41

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,?18,"Transfer HCFA updates to the Permanent BASC File",!!! Line Location: IBECPTT+8
Function Call: WRITE	Prompt: !!,"This option transfers the HCFA updates from the temporary BASC file to the" Line Location: IBECPTT+9
Function Call: WRITE	Prompt: !,"permanent BASC file." Line Location: IBECPTT+10
Function Call: WRITE	Prompt: !!,"Beginning transfer, this could take some time. Please wait...",! Line Location: IBECPTT+12
Function Call: WRITE	Prompt: !,"Transferring HCFA updates to permanent BASC file." Line Location: START+0
Function Call: WRITE	Prompt: "." Line Location: START+2
Function Call: WRITE	Prompt: !!,"Transfer complete: ",IBSD," Entries created in 409.71" Line Location: START+3
Function Call: WRITE	Prompt: !,?19,IBE," Entries created in 350.4",!,?19,IBES," Entries in 350.4 ""stuffed""" Line Location: START+4
Function Call: WRITE	Prompt: !!,?19,IBNT," Codes already have entries for given effective date" Line Location: START+5
Function Call: WRITE	Prompt: !,?19,IBERR," Codes unable to transfer" Line Location: START+6
Routine Call	DIC Line Location: CREATE+1
Routine Call	DIE Line Location: STUFF+2 STUFF+3 ERROR+2
Routine Call	DIR Line Location: IBECPTT+11

FileNo	Call Tags
^IBE(350.4 - [#350.4]	Classic Fileman Calls
^IBE(350.41 - [#350.41]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^IBE(350.4 - [#350.4]	SEARCH+10, SEARCH+11
^IBE(350.41 - [#350.41]	START+2, SEARCH+7

Name	Line Occurrences
END	IBECPTT+11
ERROR	SEARCH+9, SEARCH+10, SEARCH+13, SEARCH+14, SEARCH+15, SEARCH+16, CREATE+1, CREATE+2
SEARCH	START+2

Name	Field # of Occurrence
^(	SEARCH+11

Name	Field # of Occurrence
DA	END+1!, STUFF+2!, STUFF+3!, ERROR+2*!
DD	CREATE+2!
DIC	CREATE+1!, CREATE+2!, STUFF+2!, STUFF+3!, ERROR+2!
DIC(0	CREATE+1, CREATE+2
DIE	STUFF+2!, STUFF+3!, ERROR+2*!
DIR	IBECPTT+11!
DIR("A"	IBECPTT+11*
DIR(0	IBECPTT+11*
DIROUT	END+1!
DIRUT	IBECPTT+11, END+1!
DLAYGO	CREATE+1, CREATE+2!
DO	CREATE+2!
DR	END+1!, STUFF+1, STUFF+2!, STUFF+3!, ERROR+2*!
DTOUT	END+1!
DUOUT	END+1!
IBCD	END+1!, SEARCH+8*, SEARCH+9, SEARCH+10, SEARCH+11, CREATE+1, STUFF+1
IBCNT	START+1, START+2, END+1!
IBE	START+1, START+4, END+1!, CREATE+2
IBEDT	END+1!, SEARCH+7*, SEARCH+10, SEARCH+11, CREATE+2
IBERR	START+1, START+6, END+1!, ERROR+1
IBERRF	END+1!, SEARCH+9, SEARCH+10, SEARCH+13, SEARCH+14, SEARCH+15, SEARCH+16, SEARCH+17*, ERROR+2
IBES	START+1, START+4, END+1!, STUFF+2
IBI	START+2*, END+1!
IBLN	END+1!, SEARCH+7*, SEARCH+8
IBLN1	END+1!, SEARCH+11*, SEARCH+12, SEARCH+13, SEARCH+14, SEARCH+15
IBNEW	END+1!, SEARCH+7*, SEARCH+12, SEARCH+14, SEARCH+15, STUFF+1
IBNT	START+1, START+5, END+1!, SEARCH+10
IBOLD	END+1!, SEARCH+8*, SEARCH+12, SEARCH+13
IBSD	START+1, START+3, END+1!, CREATE+1
IBUA	END+1!, SEARCH+8, SEARCH+12, SEARCH+16, STUFF+3, ERROR+2
IBX	START+1, START+2, END+1!, SEARCH+7, STUFF+3, ERROR+2
U	SEARCH+9
X	END+1!, CREATE+1, CREATE+2, STUFF+3!, ERROR+2!
Y	IBECPTT+11, END+1!, CREATE+1, CREATE+2, STUFF+2!, STUFF+3!, ERROR+2!