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

Package: Fee Basis

Routine: FBUTL5


Information

FBUTL5 ;WOIFO/SAB-FEE BASIS UTILITY ;7/6/2003

Source Information

Source file <FBUTL5.m>

Entry Points

Name Comments DBIA/ICR reference
FPPSC(FBEDIT,FBFPPSC) ; Prompt EDI Claim and FPPS Claim ID Extrinsic Function
; Input
; FBEDIT - optional, true (=1) when editing an existing item
; FBFPPSC - optional, current value of FPPS CLAIM ID
; only passed when editing an existing item
; Return value (FBRET)
; = FPPS CLAIM ID if EDI Claim
; = null if not EDI Claim
; = -1 if time-out or '^'
ASKEDI ; ask if claim is an EDI claim
ASKID ; If EDI then ask claim ID
FPPSCX ; FPPSC Exit
FPPSL(FBFPPSL,FBALL,FBNOOUT) ; Prompt FPPS Line Item Extrinsic Function
; Input
; FBFPPSL - optional, current value of FPPS LINE ITEM
; only passed when editing an existing item
; FBALL - optional, true (=1) if ALL allowed as input value,
; default is false
; FBNOOUT - optional, boolean value, default 0, set =1 if user
; should not be allowed to exit using an uparrow
; Return value (FBRET)
; = FPPS LINE ITEM
; = -1 if time-out or '^'
ASKLI ; ask line item
FPPSLX ; FPPSL Exit
LIHLP ; Line Item ?? Help
ASKPAN() ; Ask Patient Account Number Extrinsic Function
; Return value (FBRET)
; = PATIENT ACCOUNT NUMBER (if entered)
; = null if value not entered
; = '^' if time-out or '^'
ASKREVC() ; Ask Revenue Code Extrinsic Function
; Return value (FBRET)
; = REVENUE CODE, internal pointer value (if entered)
; = null if value not entered
; = '^' if time-out or '^'
ASKUNITS() ; Ask Units Paid Extrinsic Function
; Return value (FBRET)
; = UNITS PAID (if entered)
; = null if value not entered
; = '^' if time-out or '^'
ASKPCN() ; Ask Patient Control Number Extrinsic Function
; Return value (FBRET)
; = PATIENT ACCOUNT NUMBER (if entered)
; = null if value not entered
; = '^' if time-out or '^'

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!," The FPPS CLAIM ID must be entered for EDI claims!"
  • Line Location: ASKID+10
Function Call: WRITE
  • Prompt: !,"'^' NOT ALLOWED"
  • Line Location: FPPSLX+2
Function Call: WRITE
  • Prompt: !,"Enter the line item sequence number associated with this charge. Each"
  • Line Location: LIHLP+1
Function Call: WRITE
  • Prompt: !,"charge on the FPPS invoice document will have a line item sequence number"
  • Line Location: LIHLP+2
Function Call: WRITE
  • Prompt: !,"associated with it. A line item can be entered individually or a group of"
  • Line Location: LIHLP+3
Function Call: WRITE
  • Prompt: !,"charges from multiple lines can be entered. If all line items in a group"
  • Line Location: LIHLP+4
Function Call: WRITE
  • Prompt: !,"are in numerical sequence, you may enter the first line item sequence"
  • Line Location: LIHLP+5
Function Call: WRITE
  • Prompt: !,"number followed by a hyphen and the last line item sequence number. If"
  • Line Location: LIHLP+6
Function Call: WRITE
  • Prompt: !,"the grouped charges are not in sequential order, each line item must be"
  • Line Location: LIHLP+7
Function Call: WRITE
  • Prompt: !,"entered individually, followed by a comma."
  • Line Location: LIHLP+8
Function Call: WRITE
  • Prompt: !
  • Line Location: LIHLP+9
Info |  Source |  Entry Points |  Interaction Calls