Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All
Print Page as PDF
Routine: FBAALU

Package: Fee Basis

Routine: FBAALU


Information

FBAALU ;AISC/GRR,WCIOFO/SAB-CPT CODE & MODIFIER LOOKUP ;7/15/1999

Source Information

Source file <FBAALU.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
CPT HCPCS Codes 3 $$CAT^ICPTAPIU  ($$CPT,$$CPTD)^ICPTCOD  $$MOD^ICPTMOD  
Fee Basis 1 ($$CPT,$$MOD,$$MODL)^FBAAUTL4  
Kernel 1 $$FMTE^XLFDT  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Fee Basis 6 FBAACO  FBAACO3  FBAAFS  FBAAMP  FBAAPET  FBCHPET  

Entry Points

Name Comments DBIA/ICR reference
CPTM(FBDOS,FBDFN,FBCPT,FBMODL) ; Ask CPT Code and optional CPT Modifiers
; input
; FBDOS - (optional) date of service, fileman format
; FBDFN - (optional) patient DFN, pointer to file #2 and file #161
; FBCPT - (optional) default CPT value (internal)
; FBMODL- (optional) list of default modifiers (internal)
; delimited by commas
; only used when FBCPT accepted by user
; output
; FBAACP - CPT code (internal)
; OR null if not selected
; OR @ if default value (FBCPT) was supplied and user
; entered an @ at the service provided prompt.
; FBX - CPT code (external) OR null if not selected
; FBMODA( - (optional) CPT modifier array
; FBMODA(#) = CPT modifier (internal)
; where # is a integer greater than 0
; FBGOT - flag (0 or 1) =1 if CPT code was specified and confirmed
INIT ; initialize optional input variables and FBGOT
ASKCPT ; prompt for CPT code
ASKMOD ; multiply prompt for CPT modifiers
; determine highest number used in list
DIS ; display entered data
; if default CPT code exists and default code and modifiers were not
; changed then skip display and confirm steps.
CONF ; confirm entered data
EXIT ; exit point
MODHLP ; CPT MODIFIER prompt help text
; input
; FBMODA( - (optional) array of modifiers
; FBMODA(#)=CPT MODIFIER (internal)

External References

Name Field # of Occurrence
^DIR ASKCPT+7, ASKCPT+11, ASKMOD+11, ASKMOD+25, CONF+2, MODHLP+25
$$CPT^FBAAUTL4 ASKCPT+3
$$MOD^FBAAUTL4 ASKMOD+22
$$MODL^FBAAUTL4 ASKMOD+9, DIS+3
$$CAT^ICPTAPIU DIS+4
$$CPT^ICPTCOD ASKCPT+15
$$CPTD^ICPTCOD DIS+16
$$MOD^ICPTMOD ASKMOD+29, DIS+11, MODHLP+19
$$FMTE^XLFDT ASKCPT+18, ASKMOD+32

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!," CPT code inactive on date of service ("
  • Line Location: ASKCPT+17
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(FBDOS),")"
  • Line Location: ASKCPT+18
Function Call: WRITE
  • Prompt: !!,"Current list of modifiers: ",$S(FBMODLE]"":FBMODLE,1:"none")
  • Line Location: ASKMOD+10
Function Call: WRITE
  • Prompt: " (deleted)"
  • Line Location: ASKMOD+26
Function Call: WRITE
  • Prompt: $C(7),!," CPT Modifier inactive on date of service ("
  • Line Location: ASKMOD+31
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(FBDOS),")"
  • Line Location: ASKMOD+32
Function Call: WRITE
  • Prompt: !,$C(7)," Change was not accepted because the new value is already on the list."
  • Line Location: ASKMOD+36
Function Call: WRITE
  • Prompt: !,?6,"Procedure: ",$P(FBCPTX,U,2)," ",$P(FBCPTX,U,3)
  • Line Location: DIS+7
Function Call: WRITE
  • Prompt: !,?6,"Modifiers: "
  • Line Location: DIS+9
Function Call: WRITE
  • Prompt: ?22,"-",$P(FBMODX,U,2)," ",$P(FBMODX,U,3),!
  • Line Location: DIS+12
Function Call: WRITE
  • Prompt: !
  • Line Location: DIS+13
Function Call: WRITE
  • Prompt: !,?20,"Detail Description ",!,?20,"=================="
  • Line Location: DIS+14
Function Call: WRITE
  • Prompt: !,FBTX(FBI)
  • Line Location: DIS+17
Function Call: WRITE
  • Prompt: !
  • Line Location: CONF+3
Function Call: WRITE
  • Prompt: !,FBTX(FBL)
  • Line Location: MODHLP+27
Routine Call
  • DIR
  • Line Location:
    • ASKCPT+7
    • ASKCPT+11
    • ASKMOD+11
    • ASKMOD+25
    • CONF+2
    • MODHLP+25

Label References

Name Line Occurrences
ASKCPT ASKCPT+8, ASKCPT+16, CONF+3
ASKMOD ASKMOD+13
EXIT ASKCPT+7, ASKCPT+8, ASKCPT+13, ASKMOD+11, DIS+3, CONF+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR INIT+1~, ASKCPT+7!, ASKCPT+11!, ASKMOD+11!, ASKMOD+25!, CONF+2!, MODHLP+5~, MODHLP+25!
DIR("?" ASKCPT+4*, ASKCPT+5*, ASKCPT+6*, ASKMOD+6*
DIR("A" ASKCPT+2*, ASKCPT+10*, ASKMOD+5*, ASKMOD+21*, CONF+1*
DIR("B" ASKCPT+3*, ASKMOD+22*, CONF+1*
DIR(0 ASKCPT+1*, ASKCPT+9*, ASKMOD+4*, ASKMOD+20*, CONF+1*, MODHLP+25*
DIROUT INIT+1~, MODHLP+5~
DIRUT INIT+1~, ASKMOD+19, CONF+2, MODHLP+5~, MODHLP+23, MODHLP+25
DT INIT+3
DTOUT INIT+1~, ASKCPT+7, ASKMOD+11, MODHLP+5~
DUOUT INIT+1~, ASKCPT+7, ASKMOD+11, MODHLP+5~
>> FBAACP ASKCPT+11*, ASKCPT+12*, ASKCPT+15, ASKCPT+21, DIS+3, DIS+16, EXIT+1*
FBCATX INIT+2~, DIS+4*, DIS+5, DIS+6
FBCPT CPTM~, ASKCPT+2, ASKCPT+3, ASKCPT+8, ASKCPT+21, DIS+3
FBCPTX INIT+2~, ASKCPT+15*, ASKCPT+16, DIS+4, DIS+7
FBDFN CPTM~, INIT+4*, DIS+16
FBDOS CPTM~, INIT+3*, ASKCPT+7, ASKCPT+15, ASKCPT+18, ASKMOD+11, ASKMOD+25, ASKMOD+29, ASKMOD+32, DIS+11
DIS+16, MODHLP+19
FBEDIT INIT+2~, ASKMOD+16*, ASKMOD+17*, ASKMOD+19, ASKMOD+22, ASKMOD+26, ASKMOD+34, ASKMOD+36, ASKMOD+38
>> FBGOT INIT+5*, ASKCPT+8, ASKCPT+11*, DIS+3*, CONF+4*, EXIT+1
FBI INIT+2~, ASKCPT+22~, ASKCPT+23*, ASKMOD+16*, ASKMOD+17, ASKMOD+35*, ASKMOD+36, DIS+10*, DIS+11, DIS+17*
MODHLP+6~, MODHLP+15~, MODHLP+18*, MODHLP+19
FBL MODHLP+6~, MODHLP+15~, MODHLP+17*, MODHLP+20*, MODHLP+23*, MODHLP+25, MODHLP+27
FBLAST INIT+2~, ASKMOD+2*, ASKMOD+39*
FBMOD INIT+2~, ASKCPT+22~, ASKCPT+23*, ASKMOD+14*, ASKMOD+17, ASKMOD+27*, ASKMOD+29, ASKMOD+34, ASKMOD+35, ASKMOD+36*
ASKMOD+38, ASKMOD+39
FBMODA ASKCPT+11!, ASKCPT+20!, EXIT+1!
FBMODA( ASKCPT+23*, ASKMOD+16, ASKMOD+17, ASKMOD+22, ASKMOD+26!, ASKMOD+35, ASKMOD+36, ASKMOD+38*, ASKMOD+39*, DIS+10
DIS+11, MODHLP+18, MODHLP+19
FBMODA(" " ASKMOD+2
FBMODA(0 DIS+8, MODHLP+14
FBMODL CPTM~, ASKCPT+21, ASKCPT+23, DIS+3
FBMODLE INIT+2~, ASKMOD+9*, ASKMOD+10
FBMODX INIT+2~, ASKMOD+29*, ASKMOD+30, DIS+11*, DIS+12, MODHLP+6~, MODHLP+15~, MODHLP+19*, MODHLP+20
FBQUIT MODHLP+6~
FBTX INIT+2~, DIS+15!, MODHLP+6~
FBTX( DIS+17, MODHLP+20*, MODHLP+23, MODHLP+27
FBTX(1 MODHLP+10*
FBTX(2 MODHLP+11*
FBTX(3 MODHLP+12*
FBTX(4 MODHLP+13*
FBTX(5 MODHLP+16*
>> FBX ASKCPT+11*, ASKCPT+12*, EXIT+1*
ICPTVDT ASKCPT+7*!, ASKMOD+11*!, ASKMOD+25*!
IOST MODHLP+25
U ASKCPT+12, ASKCPT+16, ASKMOD+30, DIS+4, DIS+5, DIS+6, DIS+7, DIS+12, MODHLP+20
X INIT+1~, ASKCPT+8, ASKMOD+26, DIS+16*
Y INIT+1~, ASKCPT+11, ASKCPT+12, ASKMOD+13, ASKMOD+14, ASKMOD+27, CONF+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All