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

Package: Integrated Billing

Routine: IBCROIP


Information

IBCROIP ;ALB/ARH - RATES: REPORTS CHARGE ITEM: PROCEDURES ; 12/01/04

Source Information

Source file <IBCROIP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; OPTION ENTRY POINT: Charge Item report for Procedures Only - get parameters then run the report
RPT ; find, save, and print Charge Item report - entry for tasked jobs DBIA #2815
EXIT
GET ; get charge items for selected procedures
CHKDV(RG,DIVS) ; check if Region contains a selected division (where DIVS is array of divisions)
SELRATE(RATES) ; get rates to review, RATES(ptr to 363.3)=Billing Rate Name returned, or RATES=0 if none selected
SELDIVS(VAUTD) ; Issue prompt for Division (ALL: VAUTD=1, SELECT: VAUTD=0, VAUTD(DV ptr)=DV Name, ELSE: VAUTD=-1)
SELCPTS(CPTS) ; Select CPT Codes, returned in array ranges separated by dash, external form, or CPTS=0 if none selected
; will only allow ranges with matching first character because of length
CPTDIC(CODE) ; inquiry on CPT code, returns null or 'internal^external'
QUIT()
DEV ; get device

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Procedure Charge Report: Print charges for selected CPT procedures.",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"Select Charge Billing Rates:"
  • Line Location: SELRATE+11
Function Call: WRITE
  • Prompt: !,?10,IBCNT," - ",$P(IBARR(IBCNT),U,2)
  • Line Location: SELRATE+12
Function Call: WRITE
  • Prompt: ?36,"??"
  • Line Location: SELCPTS+11
Function Call: WRITE
  • Prompt: ?36,"??"
  • Line Location: SELCPTS+13
Function Call: WRITE
  • Prompt: ?36,IBCOD1,"-",IBCOD2," Invalid Range"
  • Line Location: SELCPTS+14
Function Call: WRITE
  • Prompt: ?36,"Range too large, first character must match"
  • Line Location: SELCPTS+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICPT - [#81] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call