Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: FBAAPCS

Package: Fee Basis

Routine: FBAAPCS


Information

FBAAPCS ;WCIOFO/SAB-REPORT COST/SAVINGS FROM RBRVS FEE SCHEDULE ;6/28/1999

Source Information

Source file <FBAAPCS.m>

Entry Points

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

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,",",(FBI*4)+1,(FBI*4)+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
Info |  Source |  Entry Points |  Interaction Calls