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: 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>

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)

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
Info |  Source |  Entry Points |  Interaction Calls