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

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$DT,$$FMADD,$$FMTE)^XLFDT  ($$CJ,$$RJ)^XLFSTR  
Integrated Billing 4 PTFDX^IBCSC4F  OEDX^IBCU81  ($$INP,$$OPT)^IBJDF2  ($$GETEXCEL,PRTEXCEL)^IBUCMM  
VA FileMan 2 $$GET1^DIQ  ^DIR  
DRG Grouper 1 $$CODEC^ICDEX  
PCE Patient Care Encounter 1 $$REQUEST^PXCOMPACTIB  
Registration 1 (CAI,DEM)^VADPT  
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: 3

Package Total Caller Graph
Integrated Billing 3 IB COMPACT REPORT  IBAMTC  IBECEAMH  

Entry Points

Name Comments DBIA/ICR reference
EN ;
MAIN ; Main routine to gather and print the report
GETSD(DESCR,TYPE) ;
DATESEL1 ;
ISELIG(DFN) ; check if given patient is COMPACT Act eligible
PRINT(IBSTRT,IBEND) ; Print the results
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)
HDR(IBSTRT,IBEND) ; print header
PAUSE
CLLCTAPI ; review the copays in the specified period for possible COMPACT Act related copays using the
; $$REQUEST^PXCOMPACTIB(FILNUM,IEN)

External References

Name Field # of Occurrence
^%ZIS EN+23
HOME^%ZIS EN+28
^%ZISC MAIN+10
^%ZTLOAD EN+28
$$GET1^DIQ GETPMDX+4, GETPMDX+5, GETPCECP+7, CLLCTAPI+16, CLLCTAPI+27, CLLCTAPI+47, CLLCTAPI+52, CLLCTAPI+53
^DIR DATESEL1+7, PAUSE+3
PTFDX^IBCSC4F GETPTFDX+10
OEDX^IBCU81 GETPCEDX+6
$$INP^IBJDF2 CLLCTAPI+41, CLLCTAPI+42
$$OPT^IBJDF2 CLLCTAPI+43
$$GETEXCEL^IBUCMM EN+15
PRTEXCEL^IBUCMM EN+18
$$CODEC^ICDEX GETPTFDX+18, GETPCEDX+10
$$REQUEST^PXCOMPACTIB CLLCTAPI+34
GETCPT^SDOE GETPCECP+6
CAI^VADPT ISELIG+7
DEM^VADPT CLLCTAPI+45
$$DT^XLFDT PRINT+6, HDR+8
$$FMADD^XLFDT GETSD+10
$$FMTE^XLFDT DATESEL1+2, DATESEL1+5, PRINT+6, HDR+8, CLLCTAPI+56
$$CJ^XLFSTR PRINT+20, PRINT+41
$$RJ^XLFSTR PRINT+34

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+12
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+8
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("End of Report.",IOM),!
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !,IBOUTDATA
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("End of Report.",IOM),!
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+6
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+8
Function Call: WRITE
  • Prompt: !!,"Patient Name",?22,"ID",?26,"Bill Number",?39,"Stat",?44,"Descr.",?58,"Dt of Serv.",?72,"Amount ($)"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+5
Routine Call
  • %ZIS
  • Line Location:
    • EN+23
Routine Call
  • %ZIS
  • Line Location:
    • EN+28
Routine Call
  • DIR
  • Line Location:
    • DATESEL1+7
    • PAUSE+3

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM("APTF" CLLCTAPI+42
^IB - [#350] CLLCTAPI+15
^IB("D" CLLCTAPI+8, CLLCTAPI+11
^IBE(350.9 - [#350.9] GETSD+9
^TMP($J MAIN+5*, MAIN+7!, MAIN+11!, PRINT+18, PRINT+25, PRINT+26, PRINT+27, PRINT+28, PRINT+29, GETPTFDX+7!
, GETPTFDX+12, GETPTFDX+14, GETPTFDX+16, GETPTFDX+17, GETPTFDX+21!, CLLCTAPI+46, CLLCTAPI+56*, CLLCTAPI+57*

Label References

Name Line Occurrences
$$GETSD EN+9, EN+10
$$ISELIG CLLCTAPI+18
CLLCTAPI MAIN+8
DATESEL1 DATESEL1+8
GETPTFDX GETPMDX+7
HDR PRINT+14, PRINT+36
MAIN EN+32
PAUSE PRINT+20, PRINT+41, HDR+5
PRINT MAIN+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+3~, EN+23*
%ZIS("B" EN+23*
CADT GETSD+7~, GETSD+9*, GETSD+11, DATESEL1+2, DATESEL1+5
DESCR GETSD~, DATESEL1+1
DFN ISELIG~, ISELIG+7, CLLCTAPI+4~, CLLCTAPI+18*, CLLCTAPI+43, CLLCTAPI+57
DIR GETSD+6~, PAUSE+1~
DIR("?" DATESEL1+3*, DATESEL1+4*, DATESEL1+5*, DATESEL1+6*
DIR("A" DATESEL1+1*
DIR("B" DATESEL1+2*
DIR(0 GETSD+11*, GETSD+12*, PAUSE+3*
DIROUT GETSD+6~, DATESEL1+7
DIRUT GETSD+6~, DATESEL1+7, PAUSE+1~, PAUSE+4
DONE CLLCTAPI+4~
DT GETSD+10, GETSD+11, GETSD+12
DT7 GETSD+7~, GETSD+10*, DATESEL1+2
DTOUT GETSD+6~, DATESEL1+7, PAUSE+1~
DUOUT GETSD+6~, DATESEL1+7, PAUSE+1~
I HDR+4~, CLLCTAPI+3~
IBADM CLLCTAPI+3~, CLLCTAPI+42*
IBADPM GETPMDX+2~, GETPMDX+4*, GETPMDX+5
IBBDSC CLLCTAPI+4~, CLLCTAPI+53*, CLLCTAPI+56
IBBLNO CLLCTAPI+3~, CLLCTAPI+54*, CLLCTAPI+56
IBCHRG CLLCTAPI+4~, CLLCTAPI+54*, CLLCTAPI+56
IBCHTYPE CLLCTAPI+4~, CLLCTAPI+46*, CLLCTAPI+47, CLLCTAPI+53, CLLCTAPI+57
IBCPT GETPCECP+2~, GETPCECP+3*, GETPCECP+6, CLLCTAPI+3~
IBCPTARY GETPCECP~
IBCPTARY( GETPCECP+7*
IBCPTRET GETPCECP+2~
IBCPTRET( GETPCECP+7
IBCT PRINT+1~, PRINT+29*, GETPTFDX+5~, GETPTFDX+9*, HDR+4~, CLLCTAPI+3~, CLLCTAPI+5*, CLLCTAPI+55*, CLLCTAPI+56, CLLCTAPI+57
IBDATA PRINT+29*, PRINT+31, PRINT+33, PRINT+34, CLLCTAPI+3~, CLLCTAPI+15*, CLLCTAPI+18, CLLCTAPI+20, CLLCTAPI+27, CLLCTAPI+37
, CLLCTAPI+46, CLLCTAPI+50, CLLCTAPI+54
IBDATA1 CLLCTAPI+4~, CLLCTAPI+15*
IBDIV PRINT+1~, CLLCTAPI+3~, CLLCTAPI+40*, CLLCTAPI+41*, CLLCTAPI+42*, CLLCTAPI+43*
IBDIVIEN PRINT+1~
IBDOS PRINT+1~, PRINT+26*, PRINT+27, PRINT+28, PRINT+29, CLLCTAPI+4~, CLLCTAPI+37*, CLLCTAPI+38, CLLCTAPI+43, CLLCTAPI+46
, CLLCTAPI+56, CLLCTAPI+57
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
IBDXARY GETPMDX~, GETPMDX+7, GETPTFDX~, GETPCEDX~
IBDXARY( GETPTFDX+19*, GETPCEDX+11*
IBDXB GETPCEDX+2~, GETPCEDX+3*, GETPCEDX+6
IBDXB( GETPCEDX+9
IBDXC GETPCEDX+2~, GETPCEDX+10*, GETPCEDX+11
IBDXIEN GETPTFDX+5~, GETPTFDX+18*
IBEND EN+2~, EN+6*, EN+10*, EN+27, MAIN+9, PRINT~, PRINT+6, PRINT+14, PRINT+36, HDR~
, HDR+8, CLLCTAPI+6*, CLLCTAPI+8
IBERR GETPCECP+2~, GETPCECP+6
IBERROR CLLCTAPI+3~
IBEXCEL EN+2~, EN+15*, EN+18, EN+19, EN+27, MAIN+5, PRINT+5, PRINT+13, PRINT+30
IBFLOW EN+2~
IBI PRINT+1~, PRINT+27*, PRINT+28, PRINT+29, GETPCEDX+2~, GETPCEDX+8*, GETPCEDX+9*, GETPCEDX+10
IBID GETPCEDX+2~, CLLCTAPI+49*, CLLCTAPI+56
IBIFN GETPCEDX+2~
IBLN PRINT+1~, PRINT+35*, PRINT+36, HDR+11*
IBLP GETPTFDX+5~, GETPTFDX+15*, GETPTFDX+16*, GETPTFDX+17, GETPCECP+2~, GETPCECP+7*, CLLCTAPI+3~, CLLCTAPI+9*, CLLCTAPI+11*, CLLCTAPI+15
, CLLCTAPI+16
IBLPDT CLLCTAPI+4~, CLLCTAPI+6*, CLLCTAPI+8*, CLLCTAPI+11
IBLTCT PRINT+1~, PRINT+23*
IBMVTYP GETPTFDX+5~, GETPTFDX+11*, GETPTFDX+12*, GETPTFDX+14, GETPTFDX+16, GETPTFDX+17
IBN CLLCTAPI+3~
IBNM PRINT+1~, PRINT+25*, PRINT+26, PRINT+27, PRINT+28, PRINT+29, PRINT+31, PRINT+33, CLLCTAPI+4~, CLLCTAPI+46*
, CLLCTAPI+56, CLLCTAPI+57
IBOUTDATA PRINT+1~, PRINT+6*, PRINT+7, PRINT+8*, PRINT+9, PRINT+31*, PRINT+32
IBPAGE PRINT+1~, PRINT+14*, HDR+5, HDR+7*, HDR+8
IBPCD GETPCEDX+2~
IBPCE GETPCEDX~, GETPCEDX+6, GETPCECP~, GETPCECP+6
IBPM GETPMDX~, GETPMDX+4, GETPMDX+5
IBPTF GETPMDX+2~, GETPMDX+5*, GETPMDX+6, GETPMDX+7, GETPTFDX~, GETPTFDX+10
IBPTFD GETPTFDX+5~, GETPTFDX+17*, GETPTFDX+18
IBRF CLLCTAPI+4~, CLLCTAPI+20*, CLLCTAPI+22, CLLCTAPI+24, CLLCTAPI+25, CLLCTAPI+41, CLLCTAPI+42
IBRFFL CLLCTAPI+4~, CLLCTAPI+24*, CLLCTAPI+30, CLLCTAPI+34, CLLCTAPI+37, CLLCTAPI+41, CLLCTAPI+42, CLLCTAPI+43
IBRFIEN CLLCTAPI+4~, CLLCTAPI+25*, CLLCTAPI+31, CLLCTAPI+34
IBSTABR CLLCTAPI+4~, CLLCTAPI+51*, CLLCTAPI+52*, CLLCTAPI+56
IBSTART EN+2~, EN+6*, EN+9*, EN+27, MAIN+9, GETSD+12, DATESEL1+8, CLLCTAPI+6
IBSTAT CLLCTAPI+4~, CLLCTAPI+50*, CLLCTAPI+52
IBSTATNM CLLCTAPI+4~, CLLCTAPI+16*, CLLCTAPI+17, CLLCTAPI+51, CLLCTAPI+52
IBSTOP EN+2~, EN+6*
IBSTRT PRINT~, PRINT+6, PRINT+14, PRINT+36, HDR~, HDR+8
IBVADM CLLCTAPI+3~, CLLCTAPI+45*
IBVADM(1 CLLCTAPI+46, CLLCTAPI+49
IBVADM(2 CLLCTAPI+49
IBX PRINT+1~, PRINT+28*, PRINT+29, HDR+4~, HDR+10*
IO PRINT+2
IO("Q" EN+22!, EN+24
IOF HDR+6
IOM PRINT+20, PRINT+41
IOP EN+22!
IOSL PRINT+36
IOST PRINT+20, PRINT+41, HDR+5
K GETPCEDX+2~
POP EN+3~, EN+23*
QUIT PRINT+1~, PRINT+25, PRINT+26, PRINT+27, PRINT+28, PRINT+41, HDR+5, PAUSE+4*
RES ISELIG+6~, ISELIG+7*, ISELIG+8
TYPE GETSD~, GETSD+8, GETSD+11, GETSD+12, DATESEL1+5, DATESEL1+6, DATESEL1+8
TYPESTR GETSD+7~, GETSD+8*, DATESEL1+1, DATESEL1+3, DATESEL1+5
U GETSD+9, PRINT+8, PRINT+31, PRINT+33, PRINT+34, GETPTFDX+18, GETPCECP+7, CLLCTAPI+17, CLLCTAPI+18, CLLCTAPI+20
, CLLCTAPI+27, CLLCTAPI+30, CLLCTAPI+37, CLLCTAPI+46, CLLCTAPI+49, CLLCTAPI+50, CLLCTAPI+54, CLLCTAPI+56
VACOM ISELIG+6~
VACOM("CAI" ISELIG+7
VADM CLLCTAPI+3~, CLLCTAPI+13!, CLLCTAPI+45
X GETSD+6~
Y GETSD+6~, DATESEL1+8, DATESEL1+9
ZTDESC EN+3~, EN+25*
>> ZTQUEUED PRINT+20, PRINT+41, HDR+5
ZTRTN EN+3~, EN+26*
ZTSAVE EN+3~
ZTSAVE("IBEND" EN+27*
ZTSAVE("IBEXCEL" EN+27*
ZTSAVE("IBSTART" EN+27*
ZTSAVE("ZTREQ" EN+27*
ZTSK EN+3~, EN+29
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  | All