Routine: FBAAPCS

Package	Total	Call Graph
Fee Basis	3	$$PRCTL^FBAAFSF (DATE,ZIS)^FBAAUTL ($$CPT,$$MODL)^FBAAUTL4
Kernel	3	^%ZISC $$S^%ZTLOAD $$FMTE^XLFDT
VA FileMan	3	DD^%DT NOW^%DTC ^DIR

Package	Total	Caller Graph
Fee Basis	1	FBAA COST COMPARISON

Name	Comments	DBIA/ICR reference
START	; queued entry ; input ; BEGDATE - begin date (fileman) ; ENDDATE - end date (fileman) ; FBRCPT - CPT codes to report ('A' All, 'I' Individual, 'R' Ranges) ; FBRCPT( - array of specifc codes or ranges when not All CPT codes ; format when FBRCPT="I" ; FBRCPT(cpt code internal value)=cpt code external value ; format when FBRCPT="R" ; FBRCPT(sequential range #)=start value^end value
GATHER	; collect and sort data
PRINT	; report data
EXIT	;
HD	; page header
DL	; write dashed line

Name	Field # of Occurrence
DD^%DT	PRINT+1
NOW^%DTC	PRINT+1
^%ZISC	PRINT+64
$$S^%ZTLOAD	HD+1
^DIR	FBAAPCS+12, FBAAPCS+25, FBAAPCS+33, FBAAPCS+40, FBAAPCS+43, PRINT+63, HD+2
$$PRCTL^FBAAFSF	GATHER+38
DATE^FBAAUTL	FBAAPCS+4
ZIS^FBAAUTL	FBAAPCS+51
$$CPT^FBAAUTL4	GATHER+18
$$MODL^FBAAUTL4	GATHER+25
$$FMTE^XLFDT	PRINT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Note: code descriptors will be versioned for the Ending DATE" Line Location: FBAAPCS+6
Function Call: WRITE	Prompt: !,"Note: code descriptors will be versioned for the Ending DATE" Line Location: FBAAPCS+30
Function Call: WRITE	Prompt: $C(7),!,"Start can't be after the End" Line Location: FBAAPCS+45
Function Call: WRITE	Prompt: !!,"Note: Additional data printed if device supports 130+ characters" Line Location: FBAAPCS+49
Function Call: WRITE	Prompt: !!," No payments found that match criteria. ",! Line Location: PRINT+21
Function Call: WRITE	Prompt: !,$E($P(FBCPTM,",",1,4),2,99) Line Location: PRINT+33
Function Call: WRITE	Prompt: "," Condition for execution: $P(FBCPTM,",",5)]"" Line Location: PRINT+33
Function Call: WRITE	Prompt: ?18,"\|" Line Location: PRINT+33
Function Call: WRITE	Prompt: ?20,$J($P(FBX,U,1),5),?26,$J($FN($P(FBX,U,2),",",2),13),?40,"\|" Line Location: PRINT+34
Function Call: WRITE	Prompt: ?42,$J($P(FBX,U,3),5),?48,$J($FN($P(FBX,U,4),",",2),13),?62,"\|" Line Location: PRINT+35
Function Call: WRITE	Prompt: ?64,$J($P(FBX,U,5),5),?70,$J($FN($P(FBX,U,6),",",2),13) Line Location: PRINT+38
Function Call: WRITE	Prompt: ?85,$J($P(FBX,U,7),5),?91,$J($FN($P(FBX,U,8),",",2),13) Line Location: PRINT+39
Function Call: WRITE	Prompt: ?105,"\|" Line Location: PRINT+40
Function Call: WRITE	Prompt: ?63+FBO,$J($FN(FBSAV,",P",2),15),?78+FBO,"\|" Line Location: PRINT+41
Function Call: WRITE	Prompt: !,?5,"-",$P(FBCPTM,",",(FBI4)+1,(FBI4)+4) Line Location: PRINT+44
Function Call: WRITE	Prompt: ?18,"\|",?40,"\|",?62,"\|" Line Location: PRINT+46
Function Call: WRITE	Prompt: ?105,"\|" Condition for execution: FBO Line Location: PRINT+46
Function Call: WRITE	Prompt: ?78+FBO,"\|" Line Location: PRINT+46
Function Call: WRITE	Prompt: !!,"REPORT STOPPED AT USER REQUEST" Line Location: PRINT+52
Function Call: WRITE	Prompt: !,"REPORT TOTALS ",?18,"\|" Line Location: PRINT+55
Function Call: WRITE	Prompt: ?20,$J($P(FBT,U,1),5),?26,$J($FN($P(FBT,U,2),",",2),13),?40,"\|" Line Location: PRINT+56
Function Call: WRITE	Prompt: ?42,$J($P(FBT,U,3),5),?48,$J($FN($P(FBT,U,4),",",2),13),?62,"\|" Line Location: PRINT+57
Function Call: WRITE	Prompt: ?64,$J($P(FBT,U,5),5),?70,$J($FN($P(FBT,U,6),",",2),13) Line Location: PRINT+59
Function Call: WRITE	Prompt: ?85,$J($P(FBT,U,7),5),?91,$J($FN($P(FBT,U,8),",",2),13) Line Location: PRINT+60
Function Call: WRITE	Prompt: ?105,"\|" Line Location: PRINT+61
Function Call: WRITE	Prompt: ?63+FBO,$J($FN($P(FBT,U,9),",P",2),15),?78+FBO,"\|" Line Location: PRINT+62
Function Call: WRITE	Prompt: @IOF Line Location: HD+3
Function Call: WRITE	Prompt: !,"COST/SAVINGS FROM RBRVS FEE SCHEDULE",?49,FBDTR,?72,"page ",FBPG Line Location: HD+5
Function Call: WRITE	Prompt: !,FBHT(FBI) Line Location: HD+6
Function Call: WRITE	Prompt: !!,"CPT CODE-",?18,"\|",?20,"Total Occurrences ",?40,"\|" Line Location: HD+8
Function Call: WRITE	Prompt: ?42,"Payments at RBRVS",?62,"\|" Line Location: HD+9
Function Call: WRITE	Prompt: ?64+FBO,"Est. Savings",?78+FBO,"\|" Line Location: HD+11
Function Call: WRITE	Prompt: !,?18,"\|",?40,"\|",?62,"\|" Line Location: HD+14
Function Call: WRITE	Prompt: ?64,"75th Percentile",?85,"Usual & Customary*" Line Location: HD+15
Function Call: WRITE	Prompt: ?105,"\|",?78+FBO,"\|" Line Location: HD+16
Function Call: WRITE	Prompt: !," Modifier(s)",?18,"\|",?20,"count $ amount",?40,"\|" Line Location: HD+18
Function Call: WRITE	Prompt: ?42,"count $ amount",?62,"\|" Line Location: HD+19
Function Call: WRITE	Prompt: ?64+FBO,"from RBRVS",?78+FBO,"\|" Line Location: HD+21
Function Call: WRITE	Prompt: !,"------------------",?18,"\|",?20,"----- -------------",?40,"\|" Line Location: DL+1
Function Call: WRITE	Prompt: ?42,"----- -------------",?62,"\|" Line Location: DL+2
Function Call: WRITE	Prompt: ?64+FBO,"-------------",?78+FBO,"\|" Line Location: DL+4
Routine Call	DIR Line Location: FBAAPCS+12 FBAAPCS+25 FBAAPCS+33 FBAAPCS+40 FBAAPCS+43 PRINT+63 HD+2

Name	Line Occurrences (* Changed, ! Killed)
^FBAAC - [#162]	GATHER+17, GATHER+24, GATHER+37
^FBAAC("AK"	GATHER+4, GATHER+7, GATHER+10, GATHER+13, GATHER+16
^TMP($J	GATHER+1!, GATHER+28, GATHER+46*, PRINT+21, PRINT+25, PRINT+26, EXIT+2!

Name	Line Occurrences
DL	PRINT+54
EXIT	FBAAPCS+12, FBAAPCS+27, FBAAPCS+29, FBAAPCS+36, FBAAPCS+51
HD	PRINT+20, PRINT+27

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PRINT+1
BEGDATE	GATHER+3, PRINT+7, EXIT+3!
DIC	EXIT+6!
DIR	FBAAPCS+12!, FBAAPCS+25!, FBAAPCS+33!, FBAAPCS+40!, FBAAPCS+43!, PRINT+63!, EXIT+6!, HD+2!
DIR("?"	FBAAPCS+18, FBAAPCS+19, FBAAPCS+20, FBAAPCS+21, FBAAPCS+22, FBAAPCS+23, FBAAPCS+24*
DIR("A"	FBAAPCS+11, FBAAPCS+17, FBAAPCS+39, FBAAPCS+42
DIR("B"	FBAAPCS+11*
DIR(0	FBAAPCS+11, FBAAPCS+16, FBAAPCS+32, FBAAPCS+39, FBAAPCS+42, PRINT+63, HD+2*
DIROUT	EXIT+6!
DIRUT	FBAAPCS+12, FBAAPCS+25, FBAAPCS+31, FBAAPCS+33, FBAAPCS+38, FBAAPCS+40, FBAAPCS+43, EXIT+6!
DTOUT	FBAAPCS+29, FBAAPCS+36, EXIT+6!
DUOUT	FBAAPCS+29, FBAAPCS+36, EXIT+6!
ENDDATE	FBAAPCS+7, GATHER+4, PRINT+7, EXIT+3!
FBAMT	GATHER+38*, GATHER+39, GATHER+41, EXIT+4!
FBC	PRINT+11, PRINT+13, PRINT+14, PRINT+15, PRINT+18*, EXIT+4!
FBCPT	GATHER+18*, GATHER+22, GATHER+26, EXIT+4!
FBCPTM	GATHER+26, GATHER+28, GATHER+46, PRINT+25, PRINT+26, PRINT+33, PRINT+43, PRINT+44, PRINT+45, EXIT+4!
FBDFN	GATHER+6, GATHER+7, GATHER+10, GATHER+13, GATHER+16, GATHER+17, GATHER+24, GATHER+25, GATHER+37, EXIT+4!
>> FBDOS	GATHER+37*, GATHER+38
FBDT	GATHER+3, GATHER+4, GATHER+7, GATHER+10, GATHER+13, GATHER+16, EXIT+4!
FBDTR	PRINT+1*, EXIT+4!, HD+5
FBFND	GATHER+21, GATHER+22, EXIT+4!
FBHT	PRINT+5!, EXIT+4!
FBHT(	PRINT+10, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+17, HD+6
FBHT(1	PRINT+6, PRINT+7
FBHT(2	PRINT+8*
FBI	FBAAPCS+37~, FBAAPCS+38, FBAAPCS+39, FBAAPCS+42, FBAAPCS+46, GATHER+22, PRINT+11, PRINT+12, PRINT+16, PRINT+17 , PRINT+43, PRINT+44, PRINT+45, PRINT+49, EXIT+4!, HD+6*
FBK	GATHER+12, GATHER+13, GATHER+16, GATHER+17, GATHER+24, GATHER+25, GATHER+37, EXIT+4!
FBL	GATHER+15, GATHER+16, GATHER+17, GATHER+24, GATHER+25, PRINT+10, PRINT+12, PRINT+13, PRINT+14, PRINT+15 , PRINT+16, PRINT+17, EXIT+5!
FBMODL	GATHER+25*, GATHER+26, GATHER+38, EXIT+5!
FBO	PRINT+2*, PRINT+37, PRINT+41, PRINT+46, PRINT+58, PRINT+62, EXIT+5!, HD+10, HD+11, HD+13 , HD+16, HD+20, HD+21, DL+3, DL+4
FBPG	PRINT+1, EXIT+5!, HD+2, HD+3, HD+4, HD+5
FBPOP	FBAAPCS+4, FBAAPCS+51, EXIT+5!
FBQUIT	PRINT+1, PRINT+25, PRINT+27, PRINT+52, PRINT+63, EXIT+5!, HD+1, HD+2*
FBRCPT	FBAAPCS+10!, FBAAPCS+13, FBAAPCS+15, FBAAPCS+26, FBAAPCS+27, FBAAPCS+29, FBAAPCS+36, GATHER+20, GATHER+21, PRINT+8 , PRINT+12, PRINT+16, PRINT+17, EXIT+3!, EXIT+5!
FBRCPT(	FBAAPCS+34, FBAAPCS+46, GATHER+20, GATHER+22, PRINT+11, PRINT+12, PRINT+16, PRINT+17
FBRCPT(0	FBAAPCS+29, FBAAPCS+36
FBSAV	PRINT+30*, PRINT+41, PRINT+50, EXIT+5!
FBT	PRINT+23, PRINT+49, PRINT+50*, PRINT+56, PRINT+57, PRINT+59, PRINT+60, PRINT+62, EXIT+5!
FBV	GATHER+9, GATHER+10, GATHER+13, GATHER+16, GATHER+17, GATHER+24, GATHER+25, GATHER+37, EXIT+5!
FBX	FBAAPCS+37~, FBAAPCS+41, FBAAPCS+44, FBAAPCS+45, FBAAPCS+46, GATHER+28, GATHER+30, GATHER+31, GATHER+34, GATHER+35* , GATHER+40, GATHER+41, GATHER+43, GATHER+44, GATHER+46, PRINT+26*, PRINT+30, PRINT+34, PRINT+35, PRINT+38 , PRINT+39, PRINT+49, EXIT+5!
FBY0	GATHER+17*, GATHER+18, GATHER+20, GATHER+31, GATHER+33, GATHER+35, GATHER+38, GATHER+44, EXIT+5!
FBY2	GATHER+24*, GATHER+33, EXIT+5!
ICPTVDT	FBAAPCS+7~*
IO	START+10
IOF	HD+3
IOM	PRINT+2
IOSL	PRINT+27
IOST	PRINT+63, HD+2, HD+3
>> PGM	FBAAPCS+50*
U	FBAAPCS+34, FBAAPCS+44, FBAAPCS+45, GATHER+18, GATHER+20, GATHER+22, GATHER+30, GATHER+31, GATHER+33, GATHER+34 , GATHER+35, GATHER+37, GATHER+38, GATHER+40, GATHER+41, GATHER+43, GATHER+44, PRINT+17, PRINT+30, PRINT+34 , PRINT+35, PRINT+38, PRINT+39, PRINT+49, PRINT+50, PRINT+56, PRINT+57, PRINT+59, PRINT+60, PRINT+62
>> VAR	FBAAPCS+50*
X	EXIT+6!
Y	FBAAPCS+13, FBAAPCS+26, FBAAPCS+31, FBAAPCS+34, FBAAPCS+38, FBAAPCS+41, FBAAPCS+44, PRINT+1*, EXIT+6!, HD+2
>> ZTQUEUED	EXIT+1, HD+1
>> ZTREQ	EXIT+1*
>> ZTSTOP	HD+1*

Customize PDF page

Package: Fee Basis

Routine: FBAAPCS

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: