Routine: FBAASOUT

Information

FBAASOUT ;AISC/DMK-OUTPUT FOR CPT FEE SCHEDULE ;4/17/2000

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+0
Function Call: WRITE	Prompt: !,FBCPT,?12,FBY(2),?26,$J(FBY(5),1,2),?42,FBY(6),?60,$S(FBY(7)]"":FBY(7)_" - "_FBY(8),1:" Add/Edit") Line Location: PRINT+4
Function Call: WRITE	Prompt: !,?2,$E($P($$CPT^ICPTCOD($P(FBCPT,"-"),"",1),U,3),1,39) Line Location: PRINT+5
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+10
Function Call: WRITE	Prompt: " continued" Line Location: PRINT+10
Function Call: WRITE	Prompt: ?FBPOS,"-" Line Location: PRINT+11
Function Call: WRITE	Prompt: $E($S($P(FBMODX,U)>0:$P(FBMODX,U,3),1:FBMOD),1,36),! Line Location: PRINT+19
Function Call: WRITE	Prompt: ! Line Location: PRINT+20
Function Call: WRITE	Prompt: FBDASH Line Location: PRINT+21
Function Call: WRITE	Prompt: !!,?19,"** REPORT OF FEE SCHEDULE **",!!,?26,"For Fiscal Year ",FBFY,?70,"Page ",$G(FBPAGE),!!,$$REPEAT^XLFSTR("=",80) Line Location: HEAD+0
Function Call: WRITE	Prompt: !!,"CPT-MOD",?10,"Total #",?25,"75 %ile",?40,"Date Compiled",?65,"Date Range ",!,?2,"Description",!,$$REPEAT^XLFSTR("=",80),! Line Location: HEAD+1
Function Call: WRITE	Prompt: *7,!!,"There is no data on file for fiscal year ",FBFY,! Line Location: HELP+0