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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBEMTSCU

Package: Integrated Billing

Routine: IBEMTSCU


Information

IBEMTSCU ;ALB/RFJ-print billable types for visit copay ;23 Nov 01

Source Information

Source file <IBEMTSCU.m>

Entry Points

Name Comments DBIA/ICR reference
EFFDT() ;effect date Visit Copay 2
ADD(IBSTOPCD,IBEFFDT,IBBILTYP,IBDESC,IBOVER) ; add a stop code to file 352.5
; ibstopcd = 3 or 6 digit stop code to add
; ibeffdt = effective date, internal fileman form (ex:3011206)
; if effective date is not passed, it uses today (dt)
; ibbiltyp = billable type (B=basic, S=specialty, N=non-billable)
; default is non-billable if a B or S is not passed
; ibdesc = description of stop code
; ibover = if the code belongs to Override table
; returns 1 if added, -#^error if not added
DIQ407(DA,DR) ; diq call to retrieve data for dr fields in file 40.7
ISINACT(IBCODE) ;
INACTIVE(IBSTCODE) ; return 1 if inactive in file 40.7
; also, return ibscdata(da for stop code entries in 40.7)
ASK() ; ask if the user wants to enter a stop code or select a clinic
; return will be what entry point to use
ASKSCODE(IBPROMPT) ; ask and return selected stop code from file 352.5
; ibprompt = optional prompt to display
STOPSCRN(IBX) ; screens out so only active and current ones are selectable
ASKSC(IBVISTDT) ; ask for a clinic to look up the stop code
; it will prompt for a clinic selection, and return the stop
; code number in 352.5 associated with the clinic
GETTYPE(IBSTOPCD,IBVISTDT) ; lookup billable type
; input ibstopcd = stop code (.01 field entry in file 352.5)
; ibvistdt = visit date in fileman format
GETSC(IBSL,IBVISTDT) ; return the ien of the entry in file 352.5.
; ibsl is the clinic stop code in 409.68. find the matching
; entry in file 352.5. the 352.5 entry is populated in the 350 field
; for reference using the ibstopda variable
; input ibsl = 409.68:ien
GET3525(IBCODE1,IBCODE2,IBVISTDT) ;
OPT ; perform outpatient copay edits for visits after 11/29/01
; called from IBECEA3
GETCRED(IBCLIN) ;
GETCODE(IB407) ;
; get the stop code in IBSCDATA(40.7,IB407,1,"E")
ISSEC(IBCODE) ;check if the code has secondary restriction type in DSS IB*502

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKSCODE+9
Function Call: WRITE
  • Prompt: !!,"Charge NOT added."
  • Line Location: OPT+7
Function Call: WRITE
  • Prompt: !!,"Charge NOT added."
  • Line Location: OPT+11
Function Call: WRITE
  • Prompt: !?5,"********** This is a NON-BILLABLE Clinic Stop **********",!?5,"Select an active billable clinic stop or press RETURN to exit."
  • Line Location: OPT+14
Function Call: WRITE
  • Prompt: !?5,"********** This is a INACTIVE Clinic Stop in file #40.7 **********",!?5,"Select an active billable clinic stop or press RETURN to exit."
  • Line Location: OPT+16
Function Call: WRITE
  • Prompt: !?5,"********** This is a SECONDARY Clinic Stop in file #40.7 **********",!?5,"Select an active billable clinic stop or press RETURN to exit."
  • Line Location: OPT+18
Function Call: WRITE
  • Prompt: !!,"Charge to be billed under the ",$$TYPE^IBEMTSCR($P($G(^IBE(352.5,IBSTOPDA,0)),"^",3))," Rate --> $",$J(IBCHG,0,2)
  • Line Location: OPT+30

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(352.5 - [#352.5] Classic Fileman Calls
^DIC(40.7 - [#40.7] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call