Routine: IBTRHRS

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD $$HTE^XLFDT $$UP^XLFSTR
VA FileMan	5	^%DT ^DIC DT^DICRW $$GET1^DIQ ^DIR
List Manager	1	PAUSE^VALM1

Package	Total	Caller Graph
Integrated Billing	1	IBT 278 STATISTICAL REPORT

Name	Comments	DBIA/ICR reference
1	;
2	;
3	;
4	;
STAFF	; Staff ( New Person file) filter
PAT	; Patient filter
DEV	; -- select device, run option
DQ
END	; -- Clean up
PRINT	; -- print one billing report from ct
PR	;
PR1	;
HDR	; -- Print header for billing report
SET	; -- set tmp array
FMDATES(PROMPT)	; ask for date range
FM1	;
FM2	;
FMDQ	;
FM1E	;
FM2E	;
ASKSTAFF(FILTERS)
ONE(DIC,IEN)
ASKPAT(FILTERS)	; Sets a list of Patients ; Input: FILTERS - Current Array of filter settings ; Output: FILTERS - Updated Array of filter settings

Name	Field # of Occurrence
^%DT	FM1+1, FM2+1
^%ZIS	DEV+2
HOME^%ZIS	DEV+3
^%ZISC	END+3
^%ZTLOAD	DEV+3
$$S^%ZTLOAD	HDR+19, SET+14
^DIC	ONE+6
DT^DICRW	%+15
$$GET1^DIQ	PR+20, PR+21, PR+25, PR+26, SET+5, SET+9, SET+30, SET+41
^DIR	%+30, 1+7, 2+14, 3+14, STAFF+6, PAT+6
PAUSE^VALM1	HDR+2
$$HTE^XLFDT	PRINT+3
$$UP^XLFSTR	STAFF+8, PAT+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"278 Statistical Volume Report" Line Location: IBTRHRS+20
Function Call: WRITE	Prompt: ! Line Location: IBTRHRS+34
Function Call: WRITE	Prompt: ! Line Location: 2+14
Function Call: WRITE	Prompt: ! Line Location: 3+14
Function Call: WRITE	Prompt: ! Line Location: STAFF+6
Function Call: WRITE	Prompt: ! Line Location: PAT+6
Function Call: WRITE	Prompt: ! Line Location: END+1
Function Call: WRITE	Prompt: !,"Compiling report data..." Line Location: PRINT+1
Function Call: WRITE	Prompt: !!,"No 278 Transactions found in date range.",! Line Location: PR+2
Function Call: WRITE	Prompt: ?18,$E(Z2,4,5),"/",$E(Z2,6,7),"/",$E(Z2,2,3) Line Location: PR+9
Function Call: WRITE	Prompt: !,$E(Z1,4,5),"/",$E(Z1,6,7),"/",$S($E(Z1)=3:20,1:19),$E(Z1,2,3) Line Location: PR+11
Function Call: WRITE	Prompt: !,$E(Z2,1,16),?18,$E(Z1,4,5),"/",$E(Z1,6,7),"/",$E(Z1,2,3) Line Location: PR+12
Function Call: WRITE	Prompt: ?27,$J($P(DATA,"^"),3),?33,$J($P(DATA,"^",2),3) Line Location: PR+13
Function Call: WRITE	Prompt: ?39,$J($P(DATA,"^",3),3),?45,$J($P(DATA,"^",4),3) Line Location: PR+14
Function Call: WRITE	Prompt: ?51,$J($P(DATA,"^",5),3),?57,$J($P(DATA,"^",6),3) Line Location: PR+15
Function Call: WRITE	Prompt: ?63,$J($P(DATA,"^",7),3),?69,$J($P(DATA,"^",8),3),?75,$J($P(DATA,"^",9),3) Line Location: PR+16
Function Call: WRITE	Prompt: !?18,"Detail Rejection/Review Decision Code:",?70,"----" Line Location: PR+18
Function Call: WRITE	Prompt: !?18,D1,"-",D2,?72,DDATA Line Location: PR+22
Function Call: WRITE	Prompt: !?18,D1,"-",D2,?72,DDATA Line Location: PR+27
Function Call: WRITE	Prompt: !?26,$TR($J(" ",54)," ","-") Line Location: PR+38
Function Call: WRITE	Prompt: !," Total" Line Location: PR+39
Function Call: WRITE	Prompt: @TAB,$J(@TOT,4) Line Location: PR+40
Function Call: WRITE	Prompt: ! Line Location: PR+41
Function Call: WRITE	Prompt: !,?18,$TR($J(" ",62)," ","=") Line Location: PR+50
Function Call: WRITE	Prompt: !,"Grand Total" Line Location: PR+51
Function Call: WRITE	Prompt: @TAB,$J(@TOT,4) Line Location: PR+52
Function Call: WRITE	Prompt: ! Line Location: PR+53
Function Call: WRITE	Prompt: !,?(80-$L("* END OF REPORT ")\2)," END OF REPORT *" Line Location: PR1+1
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: !," 278 Statistical Volume Report",?40,IBHDT,?72,"Page: ",IBPAG Line Location: HDR+5
Function Call: WRITE	Prompt: !," Sort by: ",$S($P(FILTERS(0),"^",6)=1:$S($P(FILTERS(0),"^")=1:"Staff",1:"Patient"),1:"Date") Line Location: HDR+6
Function Call: WRITE	Prompt: !,?30,"Report Timeframe:" Line Location: HDR+7
Function Call: WRITE	Prompt: !,?27,$E(SDT,4,5),"/",$E(SDT,6,7),"/",$S($E(SDT)=3:20,1:19),$E(SDT,2,3) Line Location: HDR+9
Function Call: WRITE	Prompt: " - ",$E(EDT,4,5),"/",$E(EDT,6,7),"/",$S($E(EDT)=3:20,1:19),$E(EDT,2,3) Line Location: HDR+10
Function Call: WRITE	Prompt: !?31,$S($P(FILTERS(0),"^",3)=1:"Selected",1:"All")," Staff" Line Location: HDR+11
Function Call: WRITE	Prompt: !?31,$S($P(FILTERS(0),"^",4)=1:"Selected",1:"All")," Patient(s)" Line Location: HDR+12
Function Call: WRITE	Prompt: !?31,"Selected Dates" Line Location: HDR+13
Function Call: WRITE	Prompt: !!,$S($P(FILTERS(0),"^")=1:"Staff",$P(FILTERS(0),"^")=2:"Patient",1:"Date") Line Location: HDR+14
Function Call: WRITE	Prompt: ?18,"Date" Line Location: HDR+15
Function Call: WRITE	Prompt: ?27,"#278s",?33,"#217",?39,"#215",?45,"#215",?51,"#Auth",?57,"#Rej",?63,"#Pend",?69,"AAA",?75,"Await" Line Location: HDR+16
Function Call: WRITE	Prompt: !?27,"Submitted",?39,"Man",?45,"Auto",?51,"Recd",?57,"Recd" Line Location: HDR+17
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","=") Line Location: HDR+18
Function Call: WRITE	Prompt: !!,"....task stopped at user request" Line Location: HDR+19
Function Call: WRITE	Prompt: !!,"....task stopped at user request" Line Location: SET+14
Function Call: WRITE	Prompt: !,"A date must be entered." Line Location: FM1E+1
Function Call: WRITE	Prompt: !,"A date must be entered." Line Location: FM2E+1
Routine Call	DIC Line Location: ONE+6
Routine Call	DIR Line Location: %+30 1+7 2+14 3+14 STAFF+6 PAT+6
Routine Call	%ZIS Line Location: DEV+2
Routine Call	%ZIS Line Location: DEV+3

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^IBT(356.02 - [#356.02]	GET1^DIQ
^IBT(356.021 - [#356.021]	GET1^DIQ
^IBE(365.017 - [#365.017]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	DEV+6
^DPT - [#2]	PRINT+13
^IBT(356.22 - [#356.22]	PRINT+6, PRINT+7, PRINT+8, PRINT+26, PRINT+27, PRINT+28, SET+25, SET+26, SET+36, SET+46 , SET+47
^TMP($J	PRINT+4!, PR+2, PR+6, PR+7, PR+17, PR+19, PR+24, SET+15, SET+39, SET+43 , SET+45, SET+49, SET+51*

Name	Line Occurrences
$$FMDATES	1+1
1	%+33, %+34
3	1+11
4	1+10, 2+18
ASKPAT	PAT+11
ASKSTAFF	STAFF+11
DEV	4+1
END	DEV+2, DEV+3, DQ, PR1+2
FM1	FM1E+1
FM1E	FM1+1
FM2	FM2E+1
FM2E	FM2+1
FMDQ	FM1+1, FM2+1
HDR	PR+1, PR+8, SET+14
ONE	ASKSTAFF+6, ASKPAT+6
PAT	%+35
PR1	PR+2, PR+49
PRINT	DQ
SET	PRINT+29
STAFF	%+33

Name	Field # of Occurrence
^(	PR+7, PR+19, PR+24

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	FMDATES+1~, FM1+1!, FM2+1!
%DT("A"	FM1+1, FM2+1
%DT("B"	FM1+2*
%DT(0	FM1+2*
%ZIS	DEV+2*, END+4!
AUTH	PRINT+2~, PRINT+28*, SET+40, SET+41, SET+43, SET+45
AUTH1	SET+1~, SET+41*, SET+42
AUTH2	SET+1~, SET+46*, SET+47
CERT	PRINT+2~, PRINT+27, SET+29, SET+30, SET+32, SET+34
CHK	PR+36~, PR+37
COUNT	SET+1~, SET+15, SET+17, SET+19, SET+23, SET+24, SET+28, SET+32, SET+34, SET+36* , SET+38, SET+39, SET+43, SET+44, SET+45, SET+49, SET+50*, SET+51
D1	PR+4~, PR+20, PR+22, PR+25, PR+27
D2	PR+4~, PR+21, PR+22, PR+26, PR+27
DATA	PR+3~, PR+7, PR+13, PR+14, PR+15, PR+16, PR+29, PR+30, PR+31, PR+32 , PR+33, SET+1~, SET+47, SET+48, SET+49, SET+51
DATE	SET+1~
DDATA	PR+3~, PR+19, PR+22, PR+24, PR+27
DFN	END+4!
DIC	ASKSTAFF+3~, ASKSTAFF+4, ASKSTAFF+6, ONE~, ONE+5, ASKPAT+3~, ASKPAT+4, ASKPAT+6
DIC("A"	ONE+5*
DIC(0	ASKSTAFF+4, ASKPAT+4
DIR	%+14~, %+30!, 1+7!, 2+14!, 3+14!, STAFF+1~, STAFF+6!, PAT+1~, PAT+6!, ASKSTAFF+3~ , ASKPAT+3~
DIR("?"	%+25, %+26, %+27, %+28, %+29, 1+4, 1+5, 1+6, 2+10, 2+11 , 2+12, 2+13, 3+10, 3+11, 3+12, 3+13, STAFF+3, STAFF+4, PAT+3, PAT+4
DIR("A"	%+19, 1+3, 2+5, 3+5, STAFF+2, PAT+2
DIR("B"	1+3, STAFF+2, PAT+2*
DIR("L"	%+20, %+21, %+22, %+23, %+24, 2+6, 2+7, 2+8, 2+9, 3+6 , 3+7, 3+8, 3+9*
DIR(0	%+18, 1+3, 2+4, 3+4, STAFF+2, STAFF+5, PAT+2, PAT+5
DIROUT	%+14~, STAFF+1~, PAT+1~
DIRUT	%+14~, %+31, 1+8, 2+3, 2+15, 3+3, 3+15, STAFF+1~, STAFF+7, PAT+1~ , PAT+7, HDR+2, ASKSTAFF+3~, ASKPAT+3~
DIVS	ASKSTAFF+3~, ASKPAT+3~
DT	%+15, FM1+2
DT1	FMDATES+1~, FMDATES+2, FM2+2, FMDQ+1
DT2	FMDATES+1~, FM1+2*, FM2+2
DTOUT	%+14~, STAFF+1~, PAT+1~
DUOUT	%+14~, STAFF+1~, PAT+1~, ASKSTAFF+3~, ASKPAT+3~
EDT	PRINT+2~, PRINT+5, PRINT+6, HDR+8, HDR+10
FILTERS	%+14~, STAFF+11, PAT+11, ASKSTAFF~, ASKPAT~
FILTERS(0	%+32, 1+9, 1+10, 1+11, 2+1, 2+2, 2+16, 3+1, 3+2, 3+16* , STAFF+9, STAFF+11, PAT+9, PAT+11, PRINT+15, PRINT+17, PRINT+21, PRINT+22, PR+9, PR+10 , PR+11, PR+17, PR+35, HDR+6, HDR+11, HDR+12, HDR+13, HDR+14, HDR+15, SET+3 , SET+7, SET+11, SET+12, SET+13
FILTERS(2	2+2, PRINT+18, PR+36, SET+4, SET+5, ASKSTAFF+8
FILTERS(3	3+2, PRINT+23, PR+37, SET+8, SET+9, ASKPAT+8
FILTERS(4	1+2*, PRINT+5, HDR+8
GTOT1	PR+4~, PR+42*, PR+49
GTOT2	PR+4~, PR+42*
GTOT3	PR+4~, PR+43*
GTOT4	PR+4~, PR+43*
GTOT5	PR+4~, PR+44*
GTOT6	PR+4~, PR+44*
GTOT7	PR+4~, PR+45*
GTOT8	PR+4~, PR+45*
GTOT9	PR+4~, PR+46*
I	END+4!, PR+40, PR+52
IB1	FMDATES+1~, FMDATES+2, FMDATES+3, FM1+1
IB2	FMDATES+1~, FMDATES+2, FMDATES+3, FM2+1
IBBDT	END+4!
IBDT	END+4!
IBEDT	END+4!
IBHDT	END+4!, PRINT+3*, HDR+5
IBIENS	ASKSTAFF+3~, ASKPAT+3~
IBPAG	END+4!, PRINT+2~, PRINT+3, HDR+2, HDR+3, HDR+4, HDR+5
IBQUIT	%+14~, END+4!, PRINT+2~, PRINT+3, PRINT+7, PR+6, PR+7, PR+8, HDR+1, HDR+2 , HDR+19, SET+14
IBTRN	END+4!
IBTRND	END+4!
IEN	PRINT+2~, PRINT+7, PRINT+8, PRINT+26, SET+25, ASKSTAFF+3~, ASKSTAFF+5, ASKSTAFF+6, ASKSTAFF+7, ASKSTAFF+8 , ONE~, ONE+7, ASKPAT+3~, ASKPAT+5, ASKPAT+6, ASKPAT+7, ASKPAT+8
INS	SET+1~, SET+4, SET+5, SET+6, SET+8, SET+9, SET+10, SET+11*, SET+12, SET+13
INSIEN	PRINT+2~, PRINT+10*, PRINT+12, PRINT+13
IO	DEV+5
IO("Q"	DEV+3!
IOF	HDR+3
IOSL	PR+8
IOST	HDR+2, HDR+3
J	END+4!
N	ASKSTAFF+3~, ASKPAT+3~
NM	ASKSTAFF+3~, ASKPAT+3~
NODE	ASKSTAFF+3~, ASKPAT+3~
NODE0	PRINT+2~, PRINT+8*, PRINT+9, PRINT+10, PRINT+16, SET+2, SET+23, SET+38
NODE103	SET+1~, SET+26*, SET+28
OK	%+14~, 2+1, 2+2, 2+3, 3+1, 3+2, 3+3, PRINT+14, PRINT+15, PRINT+16 , PRINT+17, PRINT+18, PRINT+21, PRINT+22, PRINT+23
PATIEN	PRINT+2~, PRINT+10*, PRINT+11, PRINT+13, PRINT+23, SET+8, SET+9
PATINS	PRINT+2~, PRINT+13*
PIECE	SET+1~
>> POP	DEV+2
PROMPT	FMDATES~, FMDATES+3
RPTDATE	%+14~, 1+1*, 1+2
SDT	PRINT+2~, PRINT+5, PRINT+6, PRINT+7, HDR+8*, HDR+9, SET+11, SET+12, SET+13
ST1	SET+1~, SET+12, SET+13, SET+15, SET+39, SET+43, SET+45, SET+49, SET+51
ST2	SET+1~, SET+12, SET+13, SET+15, SET+39, SET+43, SET+45, SET+49, SET+51
STAFF	PRINT+2~, PRINT+16*, PRINT+18, SET+4, SET+5
TAB	PR+4~, PR+40, PR+52
TOT	PR+4~, PR+40, PR+52
TOT1	PR+3~, PR+29, PR+34, PR+42, PR+47
TOT2	PR+3~, PR+29, PR+42, PR+47
TOT3	PR+3~, PR+30, PR+43, PR+47
TOT4	PR+3~, PR+30, PR+43, PR+47
TOT5	PR+3~, PR+31, PR+44, PR+47
TOT6	PR+3~, PR+31, PR+44, PR+47
TOT7	PR+3~, PR+32, PR+45, PR+47
TOT8	PR+3~, PR+32, PR+45, PR+47
TOT9	PR+3~, PR+33, PR+46, PR+47
TRANST	SET+1~, SET+2*, SET+17, SET+19, SET+22, SET+38
VA	END+4!
X	%+14~, 2+1, 2+2, 3+1, 3+2, STAFF+1~, STAFF+8, PAT+1~, PAT+8, DEV+6* , END+4!, SET+1~, FMDATES+1~, FM1+1, FM2+1, ASKSTAFF+3~, ASKPAT+3~
XRESP	PRINT+2~, PRINT+26, PRINT+27, PRINT+28, SET+1~, SET+25, SET+26, SET+36, SET+46, SET+47
XX	ASKSTAFF+3~, ASKPAT+3~
Y	%+14~, %+32, %+33, %+34, %+35, 1+9, 2+16, 3+16, STAFF+1~, STAFF+9 , PAT+1~, PAT+9, END+4!, FMDATES+1~, FM1+1, FM1+2, FM2+1, FM2+2, ASKSTAFF+3~, ONE+7 , ASKPAT+3~
Z1	PR+3~, PR+5, PR+6, PR+7, PR+9, PR+11, PR+12, PR+17, PR+19, PR+24
Z2	PR+3~, PR+5, PR+7, PR+9, PR+12, PR+17, PR+19, PR+24
Z3	PR+3~, PR+19, PR+20, PR+21, PR+24, PR+25, PR+26
>> ZTDESC	DEV+3*
>> ZTQUEUED	END+2, PR1+2, HDR+19, SET+14
>> ZTREQ	END+2*
>> ZTRTN	DEV+3*
>> ZTSAVE("IB*"	DEV+3*
ZTSK	DEV+3!
>> ZTSTOP	HDR+19, SET+14

Customize PDF page

Package: Integrated Billing

Routine: IBTRHRS

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: