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

Package: Integrated Billing

Routine: IBOMHC


Information

IBOMHC ;SAB/EDE - COMPACT ACT COPAY Review Report ;JUL 12 2021

Source Information

Source file <IBOMHC.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
MAIN ; Main routine to gather and print the report
DATESEL(DATESTRT,DATEEND,DESCR) ; prompt for start and end dates
DATESEL1 ;
DATESELX ; dates prompt exit point
COLLECT ; review the copays in the specified period for possible COMPACT Act related copays to review
ISELIG(DFN) ; check if given patient is COMPACT Act eligible
GETPMDX(IBPM,IBDXARY) ;Retrieve Dx's from the PTF file via the Patient Movement file.
GETPTFDX(IBPTF,IBDXARY) ; Retrieve all of the DX codes assigned during an outpatient visit
GETPCEDX(IBPCE,IBDXARY)
GETPCECP(IBPCE,IBCPTARY)
PRINT(IBSTRT,IBEND) ; Print the results
HDR(IBSTRT,IBEND) ; print header
PAUSE
GETDX() ; Populate the list of DX codes
CMPDX(IBDX,IBCPTARY) ; Check to see if the diagnosis is a Compact Act related Diagnosis.
DXSLIST ; List of Specific Compact Act Related Diagnosis codes
GETDIV() ; Ask to filter by Division. If so, select the division.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"** This report can take a while to run and may be queued to run after hours. **",!
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !,"Note: Copay displays only if at least one COMPACT diagnosis is hit.",!
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !!,"Report compilation has started with task# ",ZTSK,".",!
  • Line Location: EN+29
Function Call: WRITE
  • Prompt: !," End Date must not precede the Start Date."
  • Line Location: DATESEL1+7
Function Call: WRITE
  • Prompt: !?5,"*** Selected date range from ",$$FMTE^XLFDT(DATESTRT)," to ",$$FMTE^XLFDT(DATEEND)," ***"
  • Line Location: DATESEL1+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!!," There were no copayments within the specified date range that were potentially COMPACT ACT eligible",!!!
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,$E(IBNM,1,18),U,$P(IBDATA,U,2,10)
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"COMPACT ACT Copay Review Report from ",$$FMTE^XLFDT(IBSTRT)," to ",$$FMTE^XLFDT($P(IBEND,".")),?80,"Date of Report: ",?96,$$FMTE^XLFDT($$DT^XLFDT()),?120,"Page: ",IBPAGE
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"For All Divisions"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ","
  • Condition for execution: IBCT>0
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: $G(VAUTD(I))
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!,"Patient Name",?22,"ID",?26,"Bill Number",?39,"Stat",?44,"Descr.",?58,"Dt of Serv.",?71,"DX",?80,"Proc.",?90,"Amount ($)",?105,"Division"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IB - [#350] GET1^DIQ
^IBE(350.1 - [#350.1] GET1^DIQ
^IBE(350.21 - [#350.21] GET1^DIQ
^VA(389.9 - [#389.9] GET1^DIQ
^DGPM - [#405] GET1^DIQ
^ICPT - [#81] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call