Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Integrated Billing 5 PTFDX^IBCSC4F  OEDX^IBCU81  ($$INP,$$OPT)^IBJDF2  PSDR^IBODIV  ($$GETEXCEL,PRTEXCEL)^IBUCMM  
Kernel 4 (,HOME)^%ZIS  ^%ZTLOAD  ($$DT,$$FMADD,$$FMTE)^XLFDT  $$RJ^XLFSTR  
Outpatient Pharmacy 2 RX^PSO52API  $$RXSITE^PSOBPSUT  
Registration 2 (CAI,DEM)^VADPT  $$PRIM^VASITE  
VA FileMan 2 $$GET1^DIQ  ^DIR  
DRG Grouper 1 $$CODEC^ICDEX  
Scheduling 1 GETCPT^SDOE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IB COMPACT REPORT  

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
GETRXDX(IBN,IBRX,IBDXARY) ;Retrieve Dx's from the PTF file via the Patient Movement file.
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.

External References

Name Field # of Occurrence
^%ZIS EN+22
HOME^%ZIS EN+28
^%ZTLOAD EN+28
$$GET1^DIQ COLLECT+17, COLLECT+40, COLLECT+52, COLLECT+53, GETPMDX+4, GETPMDX+5, GETPCECP+7, PRINT+17
^DIR DATESEL+14, DATESEL1+5, PAUSE+2, GETDIV+7
PTFDX^IBCSC4F GETPTFDX+10
OEDX^IBCU81 GETPCEDX+6
$$INP^IBJDF2 COLLECT+31, COLLECT+32
$$OPT^IBJDF2 COLLECT+34
PSDR^IBODIV GETDIV+17
$$GETEXCEL^IBUCMM EN+16
PRTEXCEL^IBUCMM EN+17
$$CODEC^ICDEX GETPTFDX+18, GETPCEDX+10
RX^PSO52API GETRXDX+9
$$RXSITE^PSOBPSUT COLLECT+33
GETCPT^SDOE GETPCECP+6
CAI^VADPT ISELIG+7
DEM^VADPT COLLECT+38
$$PRIM^VASITE COLLECT+35
$$DT^XLFDT PRINT+5, HDR+5
$$FMADD^XLFDT DATESEL+7, DATESEL1+2
$$FMTE^XLFDT DATESEL+10, DATESEL+13, DATESEL1+2, DATESEL1+9, COLLECT+61, COLLECT+66, COLLECT+72, COLLECT+76, PRINT+5, HDR+5
$$RJ^XLFSTR PRINT+20

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,11),U,IBDIV
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+27
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,"Fill/Adm/DOS",?71,"RX Number",?84,"RX Name",?105,"DX",?114,"Proc.",?120,"Amount ($)",?142,"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
Routine Call
  • %ZIS
  • Line Location:
    • EN+22
Routine Call
  • %ZIS
  • Line Location:
    • EN+28
Routine Call
  • DIR
  • Line Location:
    • DATESEL+14
    • DATESEL1+5
    • PAUSE+2
    • GETDIV+7

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
^DG(40.8 - [#40.8] GET1^DIQ
^DGPM - [#405] GET1^DIQ
^ICPT - [#81] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM("APTF" COLLECT+32
^IB - [#350] COLLECT+16, GETRXDX+4, GETRXDX+5
^IB("D" COLLECT+8, COLLECT+11
^IBE(350.9 - [#350.9] DATESEL+6
^TMP($J MAIN+2!, COLLECT+39, COLLECT+61*, COLLECT+62*, COLLECT+66*, COLLECT+67*, COLLECT+72*, COLLECT+73*, COLLECT+76*, COLLECT+77*
COLLECT+78*, GETRXDX+8, GETRXDX+10, GETRXDX+11, GETRXDX+15!, GETPTFDX+7!, GETPTFDX+12, GETPTFDX+14, GETPTFDX+16, GETPTFDX+17
, GETPTFDX+21!, PRINT+10, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRINT+16, GETDX+5*, CMPDX+10, CMPDX+11

Label References

Name Line Occurrences
$$CMPDX COLLECT+56, COLLECT+59
$$GETDIV EN+10
$$ISELIG COLLECT+18
COLLECT MAIN+3
DATESEL EN+7
DATESEL1 DATESEL1+7
DATESELX DATESEL+15, DATESEL1+6
GETDX COLLECT+7
GETPCECP COLLECT+44
GETPCEDX COLLECT+44
GETPMDX COLLECT+46
GETPTFDX COLLECT+42, GETPMDX+7
GETRXDX COLLECT+48
HDR PRINT+9, PRINT+22
MAIN EN+32
PAUSE PRINT+27, HDR+3
PRINT MAIN+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+3~, EN+22*
%ZIS("B" EN+22*
CADT DATESEL+5~, DATESEL+6*, DATESEL+8, DATESEL+10, DATESEL+13
DATEEND DATESEL~, DATESEL1+8*, DATESEL1+9
DATESTRT DATESEL~, DATESEL+16*, DATESEL1+7, DATESEL1+9
DESCR DATESEL~, DATESEL+9, DATESEL1+1
DFN COLLECT+3~, COLLECT+18*, COLLECT+34, COLLECT+62, COLLECT+67, COLLECT+73, COLLECT+77, ISELIG~, ISELIG+7, GETRXDX+8
DIR DATESEL+4~, PAUSE+1~, GETDIV+7!
DIR("?" DATESEL+11*, DATESEL+12*, DATESEL+13*, DATESEL1+3*, DATESEL1+4*, GETDIV+6*
DIR("A" DATESEL+9*, DATESEL1+1*, GETDIV+5*
DIR("B" DATESEL+10*, DATESEL1+2*, GETDIV+4*
DIR(0 DATESEL+8*, PAUSE+2*, GETDIV+4*
DIROUT GETDIV+2~, GETDIV+7, GETDIV+8!
DIRUT DATESEL+4~, DATESEL+15, DATESEL1+6, PAUSE+1~, PAUSE+3, GETDIV+2~, GETDIV+7, GETDIV+8!
DONE COLLECT+3~, COLLECT+55*, COLLECT+57*
DT DATESEL+7, DATESEL+8, DATESEL1+2
DT7 DATESEL+5~, DATESEL+7*, DATESEL+10
DTOUT DATESEL+4~, PAUSE+1~, GETDIV+2~, GETDIV+7, GETDIV+8!
DUOUT DATESEL+4~, PAUSE+1~, GETDIV+2~, GETDIV+7, GETDIV+8!
I COLLECT+2~, COLLECT+55*, COLLECT+56, COLLECT+58, COLLECT+59, COLLECT+61, COLLECT+63, COLLECT+66, COLLECT+72, COLLECT+76
COLLECT+78, HDR+2~, HDR+7*, GETDX+5*
IBADM COLLECT+2~, COLLECT+32*
IBADPM GETPMDX+2~, GETPMDX+4*, GETPMDX+5
IBBDSC COLLECT+3~, COLLECT+53*, COLLECT+61, COLLECT+66, COLLECT+72, COLLECT+76
IBBLNO COLLECT+2~, COLLECT+54*, COLLECT+61, COLLECT+66, COLLECT+72, COLLECT+76
IBCHRG COLLECT+3~, COLLECT+54*, COLLECT+61, COLLECT+66, COLLECT+72, COLLECT+76
IBCHTYPE COLLECT+3~, COLLECT+39*, COLLECT+40, COLLECT+53, COLLECT+62, COLLECT+67, COLLECT+73, COLLECT+77
IBCPT COLLECT+2~, COLLECT+64*, COLLECT+66, COLLECT+67, COLLECT+70*, COLLECT+72, COLLECT+73, GETPCECP+2~, GETPCECP+3*, GETPCECP+6
IBCPTARY COLLECT+13!, COLLECT+14*, COLLECT+44, COLLECT+56, COLLECT+58, COLLECT+59, COLLECT+63, GETPCECP~, CMPDX~, CMPDX+12
IBCPTARY( COLLECT+64, COLLECT+70, GETPCECP+7*, CMPDX+14
IBCPTARY("T2034" COLLECT+56, COLLECT+69
IBCPTN CMPDX+5~, CMPDX+11*, CMPDX+12, CMPDX+14
IBCPTRET GETPCECP+2~
IBCPTRET( GETPCECP+7
IBCT COLLECT+2~, COLLECT+4*, COLLECT+60*, COLLECT+61, COLLECT+62, COLLECT+65*, COLLECT+66, COLLECT+67, COLLECT+71*, COLLECT+72
COLLECT+73, COLLECT+75*, COLLECT+76, COLLECT+77, COLLECT+78, GETPTFDX+5~, GETPTFDX+9*, PRINT+1~, PRINT+16*, HDR+2~
, HDR+7*
IBDATA COLLECT+2~, COLLECT+16*, COLLECT+18, COLLECT+20, COLLECT+27, COLLECT+39, COLLECT+50, COLLECT+54, PRINT+16*, PRINT+17
, PRINT+18, PRINT+19, PRINT+20, GETDX+5*
IBDATA1 COLLECT+3~, COLLECT+16*, COLLECT+26
IBDFN GETRXDX+2~, GETRXDX+4*, GETRXDX+9, GETRXDX+10, GETRXDX+11
IBDIV COLLECT+2~, COLLECT+30*, COLLECT+31*, COLLECT+32*, COLLECT+33*, COLLECT+34*, COLLECT+35*, COLLECT+36, COLLECT+61, COLLECT+66
COLLECT+72, COLLECT+76, PRINT+1~, PRINT+17*, PRINT+18, PRINT+20
IBDIVIEN PRINT+1~, PRINT+17*
IBDOS COLLECT+3~, COLLECT+26*, COLLECT+27*, COLLECT+28, COLLECT+34, COLLECT+39, COLLECT+61, COLLECT+62, COLLECT+66, COLLECT+67
COLLECT+72, COLLECT+73, COLLECT+76, COLLECT+77, GETRXDX+2~, GETRXDX+5*, GETRXDX+8, PRINT+1~, PRINT+13*, PRINT+14
, PRINT+15, PRINT+16
IBDT GETPTFDX+5~, GETPTFDX+13*, GETPTFDX+14*, GETPTFDX+16, GETPTFDX+17, GETPCEDX+2~
IBDX GETPTFDX+5~, GETPTFDX+18*, GETPTFDX+19, GETPCEDX+2~, GETPCEDX+3*, GETPCEDX+6, CMPDX~, CMPDX+10, CMPDX+11
IBDXARY COLLECT+2~, COLLECT+13!, COLLECT+14*, COLLECT+42, COLLECT+44, COLLECT+46, COLLECT+48, GETRXDX~, GETPMDX~, GETPMDX+7
, GETPTFDX~, GETPCEDX~
IBDXARY( COLLECT+55, COLLECT+78, GETPTFDX+19*, GETPCEDX+11*
IBDXARY("UNK" GETRXDX+12*
IBDXB GETPCEDX+2~, GETPCEDX+3*, GETPCEDX+6
IBDXB( GETPCEDX+9
IBDXC GETPCEDX+2~, GETPCEDX+10*, GETPCEDX+11
IBDXD GETDX+2~, GETDX+5*
IBDXGRP CMPDX+5~
IBDXIEN GETPTFDX+5~, GETPTFDX+18*
IBEND EN+2~, EN+5*, EN+7, EN+26, MAIN+4, COLLECT+5*, COLLECT+8, PRINT~, PRINT+5, PRINT+9
, PRINT+22, HDR~, HDR+5
IBERR GETPCECP+2~, GETPCECP+6
IBERROR COLLECT+2~
IBEXCEL EN+2~, EN+16*, EN+17, EN+18, EN+26, PRINT+3, PRINT+8, PRINT+18, PRINT+27
IBFOUND CMPDX+5~, CMPDX+7*, CMPDX+10, CMPDX+12*, CMPDX+14*, CMPDX+18
IBI GETPCEDX+2~, GETPCEDX+8*, GETPCEDX+9*, GETPCEDX+10, PRINT+1~, PRINT+14*, PRINT+15, PRINT+16
IBID COLLECT+49*, COLLECT+61, COLLECT+66, COLLECT+72, COLLECT+76, GETPCEDX+2~
IBIFN GETPCEDX+2~
IBLN PRINT+1~, PRINT+21*, PRINT+22, HDR+10*
IBLP COLLECT+2~, COLLECT+9*, COLLECT+11*, COLLECT+16, COLLECT+17, COLLECT+48, GETPTFDX+5~, GETPTFDX+15*, GETPTFDX+16*, GETPTFDX+17
, GETPCECP+2~, GETPCECP+7*, CMPDX+5~
IBLPDT COLLECT+3~, COLLECT+5*, COLLECT+8*, COLLECT+11
IBMVTYP GETPTFDX+5~, GETPTFDX+11*, GETPTFDX+12*, GETPTFDX+14, GETPTFDX+16, GETPTFDX+17
IBN COLLECT+2~, GETRXDX~, GETRXDX+4, GETRXDX+5
IBNM COLLECT+3~, COLLECT+39*, COLLECT+61, COLLECT+62, COLLECT+66, COLLECT+67, COLLECT+72, COLLECT+73, COLLECT+76, COLLECT+77
, PRINT+1~, PRINT+12*, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+18, PRINT+19
IBPAGE PRINT+1~, PRINT+9*, PRINT+27, HDR+3, HDR+4*, HDR+5
IBPCD GETPCEDX+2~
IBPCE COLLECT+2~, COLLECT+44*, GETPCEDX~, GETPCEDX+6, GETPCECP~, GETPCECP+6
IBPM COLLECT+2~, COLLECT+46*, GETPMDX~, GETPMDX+4, GETPMDX+5
IBPTF COLLECT+2~, COLLECT+42*, GETPMDX+2~, GETPMDX+5*, GETPMDX+6, GETPMDX+7, GETPTFDX~, GETPTFDX+10
IBPTFD GETPTFDX+5~, GETPTFDX+17*, GETPTFDX+18
IBRF COLLECT+3~, COLLECT+20*, COLLECT+22, COLLECT+24, COLLECT+31, COLLECT+32, COLLECT+33, COLLECT+42, COLLECT+44, COLLECT+46
COLLECT+48
IBRFFL COLLECT+3~, COLLECT+24*, COLLECT+26, COLLECT+27, COLLECT+31, COLLECT+32, COLLECT+33, COLLECT+34, COLLECT+42, COLLECT+44
COLLECT+46, COLLECT+48, COLLECT+74
IBRX COLLECT+2~, COLLECT+48*, GETRXDX~, GETRXDX+9, GETRXDX+10, GETRXDX+11
IBRXN GETRXDX+2~, GETRXDX+10*, GETRXDX+12
IBRXNAME GETRXDX+2~, GETRXDX+11*, GETRXDX+12
IBSD EN+2~, EN+10*, EN+11, EN+27, COLLECT+36, HDR+6, GETDIV+8*, GETDIV+10, GETDIV+17
IBSTABR COLLECT+3~, COLLECT+51*, COLLECT+52*, COLLECT+61, COLLECT+66, COLLECT+72, COLLECT+76
IBSTART EN+2~, EN+5*, EN+7, EN+26, MAIN+4, COLLECT+5
IBSTAT COLLECT+3~, COLLECT+50*, COLLECT+52
IBSTATNM COLLECT+3~, COLLECT+17*, COLLECT+51, COLLECT+52
IBSTOP EN+2~, EN+5*, EN+8, DATESEL+15*, DATESEL1+6*
IBSTRT PRINT~, PRINT+5, PRINT+9, PRINT+22, HDR~, HDR+5
IBVADM COLLECT+2~, COLLECT+38*
IBVADM(1 COLLECT+39, COLLECT+49
IBVADM(2 COLLECT+49
IBX PRINT+1~, PRINT+15*, PRINT+16, HDR+2~, HDR+9*
IO("Q" EN+21!, EN+23
IOF PRINT+2, PRINT+4, PRINT+27, HDR+3
IOP EN+21!
IOSL PRINT+22
IOST PRINT+2
K GETPCEDX+2~
LIST GETRXDX+2~, GETRXDX+6*, GETRXDX+9, GETRXDX+10, GETRXDX+11, GETRXDX+15
NODE GETRXDX+2~, GETRXDX+6*, GETRXDX+9
POP EN+3~, EN+22*
QUIT PRINT+1~, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRINT+27, HDR+3, PAUSE+3*
RES ISELIG+6~, ISELIG+7*, ISELIG+8
U DATESEL+6, COLLECT+17, COLLECT+18, COLLECT+20, COLLECT+26, COLLECT+27, COLLECT+39, COLLECT+49, COLLECT+50, COLLECT+54
COLLECT+61, COLLECT+66, COLLECT+72, COLLECT+76, COLLECT+78, GETRXDX+4, GETRXDX+5, GETRXDX+11, GETRXDX+12, GETPTFDX+18
, GETPCECP+7, PRINT+6, PRINT+17, PRINT+18, PRINT+19, PRINT+20
VACOM ISELIG+6~
VACOM("CAI" ISELIG+7
VADM COLLECT+2~, COLLECT+13!, COLLECT+38
VAUTD EN+2~, COLLECT+36, HDR+6
VAUTD( COLLECT+36, HDR+7
X DATESEL+4~, GETDIV+2~, GETDIV+14!~
Y DATESEL+4~, DATESEL+16, DATESEL1+7, DATESEL1+8, GETDIV+2~, GETDIV+8, GETDIV+14!~, GETDIV+17
ZTDESC EN+3~, EN+24*
>> ZTQUEUED PRINT+2, PRINT+27, HDR+3
ZTRTN EN+3~, EN+25*
ZTSAVE EN+3~
ZTSAVE("IBEND" EN+26*
ZTSAVE("IBEXCEL" EN+26*
ZTSAVE("IBSD" EN+27*
ZTSAVE("IBSTART" EN+26*
ZTSAVE("VAUTD" EN+26*
ZTSAVE("VAUTD(" EN+26*
ZTSAVE("ZTREQ" EN+26*
ZTSK EN+3~, EN+29

Marked Items

Name Field # of Occurrence
$T(DXSLIST+I GETDX+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All