Routine: IBCU2

Information

IBCU2 ;ALB/MRL - BILLING UTILITY ROUTINE (CONTINUED) ;01 JUN 88 12:00

Source file <IBCU2.m>

Package	Total	Call Graph
VA Fileman	1	^%DT

Package	Total	Caller Graph
Integrated Billing	6	IBCDE IBXSC61 IBXSC73 IBXX14 IBXX4 REVENUE CODE

Name	Comments	DBIA/ICR reference
21	;set logic for CHARGES subfield x-ref (399.042;.02)
22	;kill logic for CHARGES subfield x-ref (399.042;.02)
FY
31	;set logic for UNITS OF SERVICE subfield x-ref (399.042;.03)
TC1
TCL
FMDATES()	; ask for date range
32	;kill logic for UNITS OF SERVICE subfield x-ref (399.042;.03)
TC
FMDQ

Name	Field # of Occurrence
^%DT	FMDATES+2, FMDATES+4

Name	Line Occurrences
Function Call: WRITE	Prompt: !?4,*7,"Exceeds 'Total Charges' for this bill." Line Location: FY+0
Function Call: WRITE	Prompt: !?4,*7,"Bill doesn't cross fiscal years...edit revenue codes/from-to dates if",!?4,"appropriate." Line Location: FY+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(399	TC
^DD(399.042	TC1
^DGCR(399 - [#399]	TC+1, TCL, TCL+3, FY, 21+1*, 21+2, 22+1, 31+1, 32+1

Name	Field # of Occurrence
%DT	FMDATES+1~, FMDATES+2!, FMDATES+4!
%DT("A"	FMDATES+2, FMDATES+4
%DT("B"	FMDATES+3*
%DT(0	FMDATES+3*
>> DA	TC, TC+1, TCL, TCL+3, FY, 21+1, 21+2, 22+1, 31+1, 32+1
>> DA(1	TC+1*, TCL, TCL+3, 21+1, 21+2, 22+1, 31+1, 32+1
DGI	TC+1!, TCL+3*
DGI(1	TC, TC+1, TCL+3*
DGJ	TC*, TC+1!
DGJ1	TC1*, TC1+1!
DGTCX	TC+1!, TCL, TCL+1, TCL+2, TCL+3
DGTCX1	TC, TC+1!, TCL, TCL+1, TCL+2, TCL+3, FY, FY+1
DGTCX11	TC1, TC1+1!, 21+2, 22+1, 31+1, 32+1
DGTCX2	TC+1!, TCL*
DGXRF	TC, TC+1!, TCL+1
>> DGXRF1	TC1, 21+2, 22+1, 31+1, 32+1
DGXRF11	TC1+1!
DT	FMDATES+3
DT1	FMDATES+1~, FMDATES+5, FMDQ
DT2	FMDATES+1~, FMDATES+3*, FMDATES+5
X	TC, TC+1, TCL+1, TCL+3, TC1, TC1+1, FY!, FY+1!, 21+2, 22+1 , 31+1, 32+1, FMDATES+1~
Y	FMDATES+1~, FMDATES+2, FMDATES+3, FMDATES+4, FMDATES+5
>> Z	21+2, 22+1, 31+1, 32+1
>> Z1	21+2, 22+1, 31+1, 32+1