Routine: IBOMHC

Information

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

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

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Integrated Billing	2	IB COMPACT REPORT IBECEAMH

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.

External References

Name	Field # of Occurrence
^%ZIS	EN+22
HOME^%ZIS	EN+28
^%ZTLOAD	EN+28
$$GET1^DIQ	COLLECT+17, COLLECT+26, COLLECT+40, COLLECT+51, COLLECT+52, COLLECT+60, COLLECT+65, COLLECT+71, GETPMDX+4, GETPMDX+5 , GETPCECP+7
^DIR	DATESEL+14, DATESEL1+5, PAUSE+2, GETDIV+7
PTFDX^IBCSC4F	GETPTFDX+10
OEDX^IBCU81	GETPCEDX+6
$$INP^IBJDF2	COLLECT+32, COLLECT+33
$$OPT^IBJDF2	COLLECT+34
PSDR^IBODIV	GETDIV+17
$$GETEXCEL^IBUCMM	EN+16
PRTEXCEL^IBUCMM	EN+17
$$CODEC^ICDEX	GETPTFDX+18, GETPCEDX+10
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+60, COLLECT+65, COLLECT+71, PRINT+5, HDR+5
$$RJ^XLFSTR	PRINT+19

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

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM("APTF"	COLLECT+33
^IB - [#350]	COLLECT+16
^IB("D"	COLLECT+8, COLLECT+11
^IBE(350.9 - [#350.9]	DATESEL+6
^TMP($J	MAIN+2!, COLLECT+39, COLLECT+60, COLLECT+61, COLLECT+65, COLLECT+66, COLLECT+71, COLLECT+72, 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+55, COLLECT+58
$$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
HDR	PRINT+9, PRINT+21
MAIN	EN+32
PAUSE	PRINT+26, 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+61, COLLECT+66, COLLECT+72, ISELIG~, ISELIG+7
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+54, COLLECT+56
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+54, COLLECT+55, COLLECT+57, COLLECT+58, COLLECT+60, COLLECT+62, COLLECT+65, COLLECT+71, HDR+2~ , HDR+7, GETDX+5*
IBADM	COLLECT+2~, COLLECT+33*
IBADPM	GETPMDX+2~, GETPMDX+4*, GETPMDX+5
IBBDSC	COLLECT+3~, COLLECT+52*, COLLECT+60, COLLECT+65, COLLECT+71
IBBLNO	COLLECT+2~, COLLECT+53*, COLLECT+60, COLLECT+65, COLLECT+71
IBCHRG	COLLECT+3~, COLLECT+53*, COLLECT+60, COLLECT+65, COLLECT+71
IBCHTYPE	COLLECT+3~, COLLECT+39*, COLLECT+40, COLLECT+52, COLLECT+61, COLLECT+66, COLLECT+72
IBCPT	COLLECT+2~, COLLECT+63, COLLECT+65, COLLECT+66, COLLECT+69, COLLECT+71, COLLECT+72, GETPCECP+2~, GETPCECP+3*, GETPCECP+6
IBCPTARY	COLLECT+13!, COLLECT+14*, COLLECT+44, COLLECT+55, COLLECT+57, COLLECT+58, COLLECT+62, GETPCECP~, CMPDX~, CMPDX+12
IBCPTARY(	COLLECT+63, COLLECT+69, GETPCECP+7*, CMPDX+14
IBCPTARY("T2034"	COLLECT+55, COLLECT+68
IBCPTN	CMPDX+5~, CMPDX+11*, CMPDX+12, CMPDX+14
IBCPTRET	GETPCECP+2~
IBCPTRET(	GETPCECP+7
IBCT	COLLECT+2~, COLLECT+4, COLLECT+59, COLLECT+60, COLLECT+61, COLLECT+64, COLLECT+65, COLLECT+66, COLLECT+70, COLLECT+71 , COLLECT+72, GETPTFDX+5~, GETPTFDX+9, PRINT+1~, PRINT+16, HDR+2~, HDR+7*
IBDATA	COLLECT+2~, COLLECT+16, COLLECT+18, COLLECT+20, COLLECT+26, COLLECT+28, COLLECT+39, COLLECT+49, COLLECT+53, PRINT+16 , PRINT+17, PRINT+18, PRINT+19, GETDX+5*
IBDATA1	COLLECT+3~, COLLECT+16*
IBDIV	COLLECT+2~, COLLECT+31, COLLECT+32, COLLECT+33, COLLECT+34, COLLECT+35*, COLLECT+36, COLLECT+60, COLLECT+65, COLLECT+71 , PRINT+1~
IBDIVIEN	PRINT+1~
IBDOS	COLLECT+3~, COLLECT+28, COLLECT+29, COLLECT+34, COLLECT+39, COLLECT+60, COLLECT+61, COLLECT+65, COLLECT+66, COLLECT+71 , COLLECT+72, 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, GETPMDX~, GETPMDX+7, GETPTFDX~, GETPCEDX~
IBDXARY(	COLLECT+54, GETPTFDX+19, GETPCEDX+11
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+21, 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+17, PRINT+26
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+48*, COLLECT+60, COLLECT+65, COLLECT+71, GETPCEDX+2~
IBIFN	GETPCEDX+2~
IBLN	PRINT+1~, PRINT+20, PRINT+21, HDR+10
IBLP	COLLECT+2~, COLLECT+9, COLLECT+11, COLLECT+16, COLLECT+17, 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~
IBNM	COLLECT+3~, COLLECT+39, COLLECT+60, COLLECT+61, COLLECT+65, COLLECT+66, COLLECT+71, COLLECT+72, PRINT+1~, PRINT+12 , PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+17, PRINT+18
IBPAGE	PRINT+1~, PRINT+9, PRINT+26, 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+32, COLLECT+33, COLLECT+42, COLLECT+44, COLLECT+46
IBRFFL	COLLECT+3~, COLLECT+24*, COLLECT+28, COLLECT+32, COLLECT+33, COLLECT+34, COLLECT+42, COLLECT+44, COLLECT+46
IBRX	COLLECT+2~
IBSD	EN+2~, EN+10, EN+11, EN+27, COLLECT+36, HDR+6, GETDIV+8, GETDIV+10, GETDIV+17
IBSTABR	COLLECT+3~, COLLECT+50, COLLECT+51, COLLECT+60, COLLECT+65, COLLECT+71
IBSTART	EN+2~, EN+5*, EN+7, EN+26, MAIN+4, COLLECT+5
IBSTAT	COLLECT+3~, COLLECT+49*, COLLECT+51
IBSTATNM	COLLECT+3~, COLLECT+17*, COLLECT+50, COLLECT+51
IBSTOP	EN+2~, EN+5, EN+8, DATESEL+15, DATESEL1+6*
IBSTRT	PRINT~, PRINT+5, PRINT+9, PRINT+21, HDR~, HDR+5
IBVADM	COLLECT+2~, COLLECT+38*
IBVADM(1	COLLECT+39, COLLECT+48
IBVADM(2	COLLECT+48
IBX	PRINT+1~, PRINT+15, PRINT+16, HDR+2~, HDR+9
IO("Q"	EN+21!, EN+23
IOF	PRINT+2, PRINT+4, PRINT+26, HDR+3
IOP	EN+21!
IOSL	PRINT+21
IOST	PRINT+2
K	GETPCEDX+2~
POP	EN+3~, EN+22*
QUIT	PRINT+1~, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRINT+26, HDR+3, PAUSE+3*
RES	ISELIG+6~, ISELIG+7*, ISELIG+8
U	DATESEL+6, COLLECT+17, COLLECT+18, COLLECT+20, COLLECT+26, COLLECT+28, COLLECT+39, COLLECT+48, COLLECT+49, COLLECT+53 , COLLECT+60, COLLECT+65, COLLECT+71, GETPTFDX+18, GETPCECP+7, PRINT+6, PRINT+17, PRINT+18, PRINT+19
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+26, 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

Customize PDF page

Package: Integrated Billing

Routine: IBOMHC

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items