Routine: IBCOPR

Information

IBCOPR ;WISC/RFJ,BOISE/WRL - print dollar amts for pre-registration ;05 May 97 8:30 AM [7/22/03 11:59am]

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT
VA FileMan	3	^DIC ($$GET1,GETS)^DIQ ^DIR
Integrated Billing	2	$$FO^IBCNEUT1 (EXCEL,REPORT)^IBCOPR1
List Manager	1	PAUSE^VALM1

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

Package	Total	Caller Graph
Integrated Billing	1	IB OUTPUT PRE-REG SOURCE REPT

Entry Points

Name	Comments	DBIA/ICR reference
DATETYPE	;
DATESEL	;Select Start and End Date
ENDDATE	;
SOISEL	; Select one SOI (source of information) or ALL - File #355.12
SOISEL1
SUMMARY	; ask to print detailed or summary report
SORT	;Sort the detail report
OUT	; select Excel or Report format
DQ	;Process Report (queue entry point)
PRINT	; Print the report
EXIT	; Exit routine
BILLDATA(BILLIEN,DATA,SORT)	;Get Billing Data
BILLDATX	; Exit the Bill data gathering subroutine
CLMDATA(CLMIEN,DATA)	; Get Data from Transaction file.
CLMDATAX	; Exit the Claim data gathering subroutine
SETTMP(BILL,CLAIM)	; Set ^TMP($J,"IPCOPR") global with data for printing the report
SETTMPX	;Exit subroutine
SETLINE	; Set up data line for detail report
BCHELP	;Help for DATETYPE field

External References

Name	Field # of Occurrence
^%ZIS	OUT+15
^%ZISC	EXIT+1
^%ZTLOAD	OUT+19
^DIC	SOISEL1+5
$$GET1^DIQ	BILLDATA+20, SETTMP+65, SETTMP+66
GETS^DIQ	BILLDATA+11, BILLDATA+23, BILLDATA+27, CLMDATA+10
^DIR	DATETYPE+6, DATESEL+4, ENDDATE+4, SUMMARY+3, SORT+6, OUT+6
$$FO^IBCNEUT1	SOISEL1+3
EXCEL^IBCOPR1	PRINT+4
REPORT^IBCOPR1	PRINT+5
PAUSE^VALM1	PRINT+6
$$FMADD^XLFDT	DQ+28
$$FMTE^XLFDT	DATESEL+2, ENDDATE+2, ENDDATE+8, PRINT+2
$$NOW^XLFDT	PRINT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report will print bills and payments within the user selected" Line Location: IBCOPR+6
Function Call: WRITE	Prompt: !,"date range that are associated to an insurance policy with a source" Line Location: IBCOPR+7
Function Call: WRITE	Prompt: !,"of information equal to the user selected criteria." Line Location: IBCOPR+8
Function Call: WRITE	Prompt: !,"FUTURE DATES ARE NOT ALLOWED." Line Location: DATESEL+5
Function Call: WRITE	Prompt: !,"FUTURE DATES ARE NOT ALLOWED." Line Location: ENDDATE+5
Function Call: WRITE	Prompt: !,"END DATE MUST BE GREATER THAN OR EQUAL TO THE START DATE." Line Location: ENDDATE+6
Function Call: WRITE	Prompt: !!?5,"* Selected ",$S(DATETYPE="B":"Billed",1:"Collected")_" Date"," range from ",$$FMTE^XLFDT(DATESTRT)," to ",$$FMTE^XLFDT(DATEEND)," *",! Line Location: ENDDATE+8
Function Call: WRITE	Prompt: !,"Enter Sources of Information to include one at a time OR <RETURN> for ALL." Line Location: SOISEL+1
Function Call: WRITE	Prompt: ! Line Location: SUMMARY+3
Function Call: WRITE	Prompt: ! Line Location: SORT+6
Function Call: WRITE	Prompt: ! Line Location: OUT+2
Function Call: WRITE	Prompt: !!,"If you selected a long report period it is" Line Location: OUT+10
Function Call: WRITE	Prompt: !,"recommended that this report be queued." Line Location: OUT+11
Function Call: WRITE	Prompt: !!,"* This report is 132 characters wide *" Line Location: OUT+13
Function Call: WRITE	Prompt: ! Line Location: OUT+15
Function Call: WRITE	Prompt: !!,"<> please wait <>" Line Location: OUT+21
Function Call: WRITE	Prompt: !!,"Enter 'B' for Bill Date - The date bills were generated" Line Location: BCHELP+1
Function Call: WRITE	Prompt: !,"or 'C' for Collected Date - The date money was collected for" Line Location: BCHELP+2
Function Call: WRITE	Prompt: !," a claim (may be partial or full).",! Line Location: BCHELP+3
Routine Call	%ZIS Line Location: OUT+15
Routine Call	DIC Line Location: SOISEL1+5
Routine Call	DIR Line Location: DATETYPE+6 DATESEL+4 ENDDATE+4 SUMMARY+3 SORT+6 OUT+6

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ, GETS^DIQ
2.312	GETS^DIQ
^IBE(355.12 - [#355.12]	Classic Fileman Calls, GET1^DIQ
^DIC(36 - [#36]	GET1^DIQ
^DGCR(399 - [#399]	GET1^DIQ, GETS^DIQ
^PRCA(433 - [#433]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	DQ+12, DQ+15
^DPT - [#2]	BILLDATA+21
^PRCA(430.3 - [#430.3]	DQ+27
^PRCA(433 - [#433]	DQ+19, DQ+29, DQ+31
^TMP($J	DQ+2!, EXIT+2!, BILLDATA+33, SETTMP+21, SETTMP+24, SETTMP+26, SETTMP+27, SETTMP+30, SETTMP+31, SETTMP+36 , SETTMP+37, SETTMP+40, SETTMP+41, SETTMP+45, SETTMP+46, SETTMP+49, SETTMP+50, SETTMP+55, SETTMP+56, SETTMP+59 , SETTMP+60, SETTMP+61*, SETLINE+10

Label References

Name	Line Occurrences
BILLDATA	DQ+17, DQ+35
BILLDATX	BILLDATA+20, BILLDATA+28, BILLDATA+29, BILLDATA+33
CLMDATA	DQ+20, DQ+33
CLMDATAX	CLMDATA+11, CLMDATA+12, CLMDATA+13
DATESEL	DATESEL+5
ENDDATE	ENDDATE+5, ENDDATE+6
EXIT	DATETYPE+6, DATESEL+4, ENDDATE+4, SOISEL1+6, SUMMARY+4, SORT+9, OUT+7, OUT+15, OUT+16
PRINT	DQ+9
SETLINE	SETTMP+79, SETTMP+88
SETTMP	DQ+21, DQ+37
SETTMPX	SETTMP+19, SETTMP+21
SOISEL1	SOISEL1+9
SUMMARY	SOISEL1+8

Naked Globals

Name	Field # of Occurrence
^(	SETLINE+10*
^("BILLAMT"	SETTMP+27, SETTMP+31, SETTMP+37, SETTMP+41
^("BILLCNT"	SETTMP+26, SETTMP+30, SETTMP+36, SETTMP+40
^("CLMAMT"	SETTMP+46, SETTMP+50, SETTMP+56, SETTMP+60
^("CLMCNT"	SETTMP+45, SETTMP+49, SETTMP+55, SETTMP+59

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	OUT+1~, OUT+15*
ARRAY	BILLDATA+1~, CLMDATA+8~
ARRAY(	BILLDATA+28, BILLDATA+32
ARRAY(2	BILLDATA+31
ARRAY(399	BILLDATA+13, BILLDATA+14, BILLDATA+15, BILLDATA+16, BILLDATA+17, BILLDATA+18, BILLDATA+19
ARRAY(433	CLMDATA+11, CLMDATA+12, CLMDATA+14, CLMDATA+15
ARTRX	DQ+1~
ARTRX(	DQ+26, CLMDATA+13
ARTRX("PAYMEN	T (IN FULL)" , DQ+6, T (IN PART)" , DQ+5
BILL	SETTMP~
BILL("BILLAMT"	SETTMP+27, SETTMP+31, SETTMP+37, SETTMP+41, SETTMP+72, SETLINE+6
BILL("BILLDATE"	SETTMP+73, SETLINE+8
BILL("BILLNUM"	SETTMP+70
BILL("CANCEL"	SETTMP+23, SETTMP+69
BILL("CLASS"	SETTMP+30, SETTMP+31, SETTMP+36, SETTMP+37, SETTMP+49, SETTMP+50, SETTMP+55, SETTMP+56, SETLINE+10
BILL("INSCO"	SETTMP+65
BILL("PATIENT"	SETTMP+65
BILL("SOI"	SETTMP+36, SETTMP+37, SETTMP+40, SETTMP+41, SETTMP+55, SETTMP+56, SETTMP+59, SETTMP+60, SETTMP+66
BILL("SSN"	SETTMP+68
BILLDATA	DQ+16~, DQ+17, DQ+21, DQ+32~, DQ+35, DQ+37
BILLDATA("SOI"	DQ+18, DQ+36
BILLIEN	DQ+1~, DQ+13~, DQ+14, DQ+15, DQ+17, DQ+19, BILLDATA~, BILLDATA+3, BILLDATA+33, SETTMP+19* , SETTMP+21, SETTMP+24, SETTMP+61
BILLIENS	BILLDATA+1~, BILLDATA+3*, BILLDATA+11, BILLDATA+13, BILLDATA+14, BILLDATA+15, BILLDATA+16, BILLDATA+17, BILLDATA+18, BILLDATA+19 , BILLDATA+20
CLAIM	SETTMP~, SETTMP+21, SETTMP+43, SETTMP+77
CLAIM(	SETTMP+19, SETTMP+43, SETTMP+46, SETTMP+50, SETTMP+56, SETTMP+60, SETTMP+83, SETTMP+84, SETTMP+85, SETTMP+86 , SETLINE+7, SETLINE+8
CLAIM(""	SETTMP+19
CLMDATA	DQ+16~, DQ+20, DQ+21, DQ+32~, DQ+33, DQ+34, DQ+37
CLMDATA(	DQ+35
CLMIEN	CLMDATA~, CLMDATA+9, CLMDATA+14, CLMDATA+15, CLMDATA+16, CLMDATA+17
CLMIENS	CLMDATA+8~, CLMDATA+9*, CLMDATA+10, CLMDATA+11, CLMDATA+12, CLMDATA+14, CLMDATA+15
CNT	SETLINE+2~, SETLINE+10*
CT	IBCOPR+10~, SOISEL+1, SOISEL1+2, SOISEL1+8, SOISEL1+9
DATA	BILLDATA~, CLMDATA~
DATA(	CLMDATA+14, CLMDATA+15, CLMDATA+16, CLMDATA+17
DATA("BILLAMT"	BILLDATA+14*
DATA("BILLDATE"	BILLDATA+15*
DATA("BILLNUM"	BILLDATA+13*
DATA("CANCEL"	BILLDATA+16*, BILLDATA+34
DATA("CLASS"	BILLDATA+17*, BILLDATA+33
DATA("INSCO"	BILLDATA+32*
DATA("PATIENT"	BILLDATA+19*
DATA("SOI"	BILLDATA+30*
DATA("SSN"	BILLDATA+31*
DATE	DQ+1~, DQ+10~, DQ+11, DQ+12, DQ+15, DQ+28, DQ+29, DQ+31
DATEEND	IBCOPR+10~, ENDDATE+7*, ENDDATE+8, DQ+12, DQ+28, CLMDATA+12
DATESTRT	IBCOPR+10~, DATESEL+6*, ENDDATE+6, ENDDATE+8, DQ+11, DQ+28, CLMDATA+12
DATETYPE	IBCOPR+10~, DATETYPE+7*, DATESEL+3, ENDDATE+3, ENDDATE+8, DQ+9, PRINT+3, CLMDATA+12, SETTMP+19, SETLINE+8
DFN	BILLDATA+1~, BILLDATA+19*, BILLDATA+21, BILLDATA+23, BILLDATA+24, BILLDATA+31
DIC	SOISEL1+4*, SOISEL1+5!
DIC("A"	SOISEL1+3*
DIC(0	SOISEL1*
DIR	DATETYPE+7!, DATESEL+6!, ENDDATE+7!, SUMMARY+3!, SORT+6!, OUT+1~, OUT+6!
DIR("?"	DATETYPE+4*
DIR("??"	DATETYPE+5*
DIR("A"	DATETYPE+3, DATESEL+3, ENDDATE+3, SUMMARY+2, SORT+5, OUT+4
DIR("B"	DATETYPE+2, DATESEL+2, ENDDATE+2, SUMMARY+1, SORT+4, OUT+5
DIR(0	DATETYPE+2, DATESEL+2, ENDDATE+2, SUMMARY+1, SORT+3, OUT+3
DIROUT	DATETYPE+6, DATESEL+4, ENDDATE+4, SUMMARY+4, SORT+7, SORT+9, OUT+1~, OUT+7
DIRUT	DATETYPE+6, DATESEL+4, ENDDATE+4, SUMMARY+4, SORT+7, SORT+9, OUT+1~, OUT+7
DT	DATESEL+2, DATESEL+5, ENDDATE+2, ENDDATE+5
DTOUT	DATETYPE+6, DATESEL+4, ENDDATE+4, SOISEL1+6, SUMMARY+4, SORT+7, SORT+9, OUT+1~, OUT+7
DUOUT	DATETYPE+6, DATESEL+4, ENDDATE+4, SOISEL1+6, SUMMARY+4, SORT+7, SORT+9, OUT+1~, OUT+7
ENDDATE	IBCOPR+10~, DQ+28*, DQ+29
FLD	BILLDATA+1~, BILLDATA+18*, BILLDATA+20
FPN	SETTMP+64~, SETTMP+84*, SETTMP+87
IBCNESOI	IBCOPR+10~, SOISEL1+8, SOISEL1+9, BILLDATA+29
IBCNESOI(	SOISEL1+9*, BILLDATA+29
IBCNFSUM	IBCOPR+10~, SUMMARY+5*, SORT+2, OUT+13, PRINT+3, SETTMP+33, SETTMP+52, SETTMP+63
IBCNOUT	IBCOPR+10~, OUT+8*, OUT+21, PRINT+4, PRINT+5
IBCNSORT	IBCOPR+10~, SORT+1, SORT+8, PRINT+3, SETLINE+4, SETLINE+5, SETLINE+6, SETLINE+7, SETLINE+8
IBEX	PRINT+1~, PRINT+2*, PRINT+6
INS	BILLDATA+1~, BILLDATA+21*, BILLDATA+24
INSCO	SETTMP+64~, SETTMP+65*, SETTMP+71, SETLINE+5
INSCOIEN	BILLDATA+1~, BILLDATA+20*, BILLDATA+21
INSIENS	BILLDATA+1~, BILLDATA+24*, BILLDATA+27, BILLDATA+28, BILLDATA+32
IO("Q"	OUT+16, OUT+19!
IOST	PRINT+6
LINE	PRINT+1~
PAGE	PRINT+1~
PN	SETTMP+64~, SETTMP+65*, SETTMP+67, SETLINE+4
POP	OUT+1~, OUT+15
Q	IBCOPR+10~, SOISEL1+1, SOISEL1+2, SOISEL1+3
RDATE	PRINT+1~, PRINT+2*
SEQ	BILLDATA+1~, BILLDATA+18*
SOI	BILLDATA+1~, BILLDATA+28, BILLDATA+29, BILLDATA+30, SETTMP+64~, SETTMP+66, SETTMP+74, SETLINE+9
SORT	DQ+17, BILLDATA~, SETLINE+2~, SETLINE+3, SETLINE+4, SETLINE+5, SETLINE+6, SETLINE+7, SETLINE+8, SETLINE+9* , SETLINE+10
SORTBY	PRINT+1~, PRINT+3*
STR	SETTMP+18~, SETTMP+67, SETTMP+68, SETTMP+69, SETTMP+70, SETTMP+71, SETTMP+72, SETTMP+73, SETTMP+74, SETTMP+78* , SETTMP+85, SETTMP+86, SETTMP+87*, SETLINE+10
TAB	PRINT+1~
TOT	SETTMP+18~, SETTMP+26, SETTMP+27, SETTMP+30, SETTMP+31, SETTMP+36, SETTMP+37, SETTMP+40, SETTMP+41, SETTMP+45* , SETTMP+46, SETTMP+49, SETTMP+50, SETTMP+55, SETTMP+56, SETTMP+59, SETTMP+60*
TRX	SETTMP+18~, SETTMP+19, SETTMP+43, SETTMP+46, SETTMP+50, SETTMP+56, SETTMP+60, SETTMP+64~, SETTMP+82, SETTMP+83 , SETTMP+84, SETTMP+85, SETTMP+86, SETLINE+7, SETLINE+8
TRXDATE	CLMDATA+8~, CLMDATA+12*, CLMDATA+16
TRXIEN	DQ+1~, DQ+19, DQ+20, DQ+30, DQ+31*, DQ+33, DQ+35
TRXTYPE	CLMDATA+8~, CLMDATA+11*, CLMDATA+13, CLMDATA+17
TYPE	DQ+24~, DQ+25, DQ+26, DQ+27
TYPEIEN	DQ+24~, DQ+27*, DQ+29, DQ+31
U	SETTMP+68, SETTMP+69, SETTMP+71, SETTMP+72, SETTMP+73, SETTMP+74, SETTMP+78, SETTMP+85, SETTMP+86, SETTMP+87
WIDTH	IBCOPR+10~
X	IBCOPR+10~, OUT+1~
Y	IBCOPR+10~, DATETYPE+7!, DATESEL+5, DATESEL+6!, ENDDATE+5, ENDDATE+6, ENDDATE+7!, SOISEL1+8, SOISEL1+9, SUMMARY+5 , SORT+8, OUT+1~, OUT+8
ZTDESC	OUT+1~, OUT+17*
ZTRTN	OUT+1~, OUT+17*
ZTSAVE	OUT+1~
ZTSAVE("DATE*"	OUT+18*
ZTSAVE("IBCN*"	OUT+18*
ZTSAVE("ZTREQ"	OUT+18*
ZTSK	OUT+19!

Customize PDF page

Package: Integrated Billing