Routine: IBCEXTRP

Package	Total	Call Graph
Integrated Billing	6	SETUP^IBCE837 ($$FT,$$INPAT)^IBCEF $$LAST364^IBCEF4 (FORMPRE,ROUT)^IBCFP1 $$FO^IBCNEUT1 $$WRAP^IBCSC10H
Kernel	4	(,HOME)^%ZIS ^%ZTLOAD $$FMTE^XLFDT ($$REPLACE,$$TRIM,$$UP)^XLFSTR
VA FileMan	4	^DIC CLEAN^DILF $$GET1^DIQ ^DIR

Package	Total	Caller Graph
Integrated Billing	1	IBCE EDI VIEW/PRINT EXTRACT

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
INIT	;
DEV	; - Select device
LIST	; - set up array and print data
HDR	; - Report header
EXITQ	; - clean up and exit
EXTRACT(IBIFN,IBBATCH,IBFORM,IBLOCAL,IBXPOSTWA)	; ; ***************** ; this label is called by 2 routines outside IB ; VEJDIBPI ; VEJDIBPZ ; ; Extracts transmitted form data into global ; ^TMP("IBXDATA",$J). Errors are in ^TMP("IBXERR",$J,err_num)=text. ; IBBATCH = Batch # of bill (if known), otherwise, set to 1. This ; variable must be > 0 to prevent a new batch from being added ; IBFORM = the ien of the form in file 353 ; IBLOCAL = 1 if OK to use local form, 0 if not ; IBXPOSTWA = 1 if executing FSC post processing workarounds ;WCJ;IB718v22;
INCLUDE(IBSEQ)	; Function to determine if segment should be included or not
INCLX	;

External References

Name	Field # of Occurrence
^%ZIS	DEV+3
HOME^%ZIS	DEV+9
^%ZTLOAD	DEV+7
^DIC	INIT+5
CLEAN^DILF	EXITQ+3
$$GET1^DIQ	INIT+12, EXTRACT+24
^DIR	INIT+16, INIT+26, INIT+38, HDR+3, EXITQ+1
SETUP^IBCE837	EXTRACT+20
$$FT^IBCEF	LIST+8, LIST+51
$$INPAT^IBCEF	LIST+11, LIST+54
$$LAST364^IBCEF4	INIT+8, EXTRACT+22
FORMPRE^IBCFP1	EXTRACT+15
ROUT^IBCFP1	EXTRACT+26
$$FO^IBCNEUT1	LIST+43
$$WRAP^IBCSC10H	LIST+63
$$FMTE^XLFDT	HDR+7
$$REPLACE^XLFSTR	LIST+44
$$TRIM^XLFSTR	INIT+40, INCLUDE+7
$$UP^XLFSTR	INIT+40

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will display the EDI extract data for a bill.",! Line Location: INIT+1
Function Call: WRITE	Prompt: !,"There is no entry in the EDI Transmit Bill file for this bill number." Line Location: INIT+9
Function Call: WRITE	Prompt: !!,"There is no batch # for this bill. It has not been transmitted." Line Location: INIT+13
Function Call: WRITE	Prompt: ! Line Location: INIT+16
Function Call: WRITE	Prompt: ! Line Location: INIT+22
Function Call: WRITE	Prompt: ! Line Location: INIT+30
Function Call: WRITE	Prompt: ! Line Location: DEV+2
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Your task number "_ZTSK_" has been queued.",1:"Unable to queue this job.") Line Location: DEV+8
Function Call: WRITE	Prompt: !,$G(^TMP("IBXERR",$J,IBERR)) Line Location: LIST+14
Function Call: WRITE	Prompt: !,IBDATA(1) Line Location: LIST+64
Function Call: WRITE	Prompt: ?47,IBNOTE(X) Line Location: LIST+65
Function Call: WRITE	Prompt: !,^TMP($J,"IBLINES",Z,Z0,Z1) Line Location: LIST+66
Function Call: WRITE	Prompt: ! Line Location: LIST+71
Function Call: WRITE	Prompt: @IOF Line Location: HDR+4
Function Call: WRITE	Prompt: !,?25,"EDI Transmitted Bill Extract Data",!,"Bill #",?11,"Type",?27,"Patient Name",?52,"SSN",?57,$$FMTE^XLFDT(DT),?71,"Page: "_IBPG Line Location: HDR+7
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","=") Line Location: HDR+8
Function Call: WRITE	Prompt: !,$P(IBREC1,U)_" "_"("_IBILL_")",?27,$P($G(^DPT(+$P(IBREC1,U,2),0)),U),?52,$P($G(^DPT($P(IBREC1,U,2),0)),U,9),! Line Location: HDR+9
Function Call: WRITE	Prompt: ! Line Location: EXITQ+1
Routine Call	%ZIS Line Location: DEV+3
Routine Call	%ZIS Line Location: DEV+9
Routine Call	DIC Line Location: INIT+5
Routine Call	DIR Line Location: INIT+16 INIT+26 INIT+38 HDR+3 EXITQ+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBE(350.9 - [#350.9]	GET1^DIQ
^DGCR(399 - [#399]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	INIT+7
^DPT - [#2]	HDR+9
^IBA(364 - [#364]	INIT+10, EXTRACT+24
^IBA(364.1 - [#364.1]	INIT+14
^IBA(364.6 - [#364.6]	LIST+17, LIST+19
^IBE(353 - [#353]	EXTRACT+19
^TMP("IBHDR"	EXTRACT+24*
^TMP("IBXDATA"	LIST+25, LIST+27, LIST+30*, LIST+34, LIST+37, LIST+42, EXITQ+2!, INCLUDE+4, INCLUDE+5, INCLUDE+6
^TMP("IBXERR"	LIST+13, LIST+14, EXITQ+2!
^TMP($J	LIST+6!, LIST+45*, LIST+56, LIST+61, LIST+66, LIST+71, LIST+74!

Label References

Name	Line Occurrences
$$INCLUDE	LIST+17
DEV	INIT+28
EXITQ	INIT+6, INIT+8, INIT+12, INIT+17, INIT+27, INIT+44, DEV+3, DEV+4, LIST+13, LIST+75
EXTRACT	LIST+4
HDR	LIST+55, LIST+57, LIST+65, LIST+68
INCLX	INCLUDE+3, INCLUDE+4

Naked Globals

Name	Field # of Occurrence
^(	LIST+25
^(2	EXTRACT+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+1~, DEV+3*
DIC	INIT+2~, INIT+5*
DIC("S"	INIT+5*
DIC(0	INIT+5*
DIR	INIT+2~, INIT+16!, INIT+26!, INIT+38!, HDR+1~, HDR+3!, EXITQ+1!
DIR("?"	INIT+37*
DIR("A"	INIT+15, INIT+24, INIT+35, INIT+36
DIR("B"	INIT+15, INIT+25
DIR(0	INIT+15, INIT+23, INIT+34, HDR+3, EXITQ+1*
DPTNOFZY	INIT+4~*
DSP	LIST+18~, LIST+41, LIST+43, LIST+44*, LIST+45
DT	HDR+7
DTOUT	INIT+2~, INIT+17, INIT+27, INIT+39, INIT+44
DUOUT	INIT+2~, INIT+17, INIT+27, INIT+39, INIT+44
IB364IEN	INIT+2~, INIT+8, INIT+10, EXTRACT+22, EXTRACT+24
IBBATCH	EXTRACT~, EXTRACT+16
IBDA	LIST+1~, LIST+5, LIST+17, LIST+19
IBDATA	LIST+18~, LIST+42, LIST+43, LIST+60~, LIST+61, LIST+62
IBDATA(1	LIST+62*, LIST+64
IBDATA(2	LIST+62*, LIST+63
IBERR	LIST+1~, LIST+14*
IBFMTYP	LIST+8~, LIST+10, LIST+11, LIST+51~, LIST+53, LIST+54
IBFORM	EXTRACT~, EXTRACT+17, EXTRACT+19, EXTRACT+26
IBIEN	INIT+2~, INIT+7*, INIT+8, LIST+4, LIST+8, LIST+11, LIST+51, LIST+54
IBIFN	EXTRACT~, EXTRACT+22, EXTRACT+26
IBILL	LIST+1~, LIST+11, LIST+54, HDR+9
IBINC	INIT+2~, INIT+18*, LIST+37, EXTRACT+14~
IBL	EXTRACT+14~, EXTRACT+17, EXTRACT+19, EXTRACT+26
IBLINE	LIST+1~, LIST+5, LIST+57, LIST+65, LIST+67, LIST+68, LIST+71, HDR+10*
IBLOCAL	EXTRACT~, EXTRACT+17
IBMULT	LIST+18~, LIST+34*, LIST+37, LIST+42, LIST+45
IBNOTE	LIST+60~, LIST+63*
IBNOTE(	LIST+65
IBOK	LIST+18~, LIST+24, LIST+25, LIST+26
IBPC	LIST+1~, LIST+5, LIST+17, LIST+24, LIST+37, LIST+40, LIST+42, LIST+45
IBPG	LIST+1~, LIST+5, HDR+2, HDR+6, HDR+7
IBQUIT	LIST+1~, LIST+5, LIST+49, LIST+56, LIST+57, LIST+59, LIST+65, LIST+68, HDR+2, HDR+3* , EXITQ+1
IBREC	LIST+1~, LIST+19*, LIST+20, LIST+28, LIST+41
IBREC1	INIT+2~, INIT+7*, HDR+9
IBSEG	INIT+2~, INIT+31!, INIT+36, EXTRACT+14~, INCLUDE+3
IBSEG(	INIT+42*, INCLUDE+8
IBSEQ	LIST+1~, LIST+5, LIST+17, LIST+25, LIST+27, LIST+30, LIST+34, LIST+37, LIST+42, LIST+45 , INCLUDE~, INCLUDE+4, INCLUDE+5, INCLUDE+6
IBVNUM	INIT+2~, INIT+10, INIT+12, INIT+14, LIST+4, EXTRACT+14~, EXTRACT+16*
IBXDATA	LIST+1~
IBXERR	LIST+1~, EXITQ+2!
IBXPOSTWA	EXTRACT~, EXTRACT+26
IO	DEV+10
IO("Q"	DEV+4, DEV+9!
IOF	LIST+50, HDR+4
IOM	HDR+8
IOSL	LIST+57, LIST+65, LIST+68
IOST	LIST+50, HDR+3, EXITQ+1
LZ	INCLUDE+1~, INCLUDE+5*, INCLUDE+6
OK	INCLUDE+1~, INCLUDE+2, INCLUDE+4, INCLUDE+8*, INCLX+1
PCD	LIST+18~, LIST+40*, LIST+43
POP	INIT+2~, DEV+3
REP	LIST+2~, LIST+44
REP("Dollars"	LIST+44*
SEGNAME	INCLUDE+1~, INCLUDE+6, INCLUDE+7, INCLUDE+8
SN	LIST+18~, LIST+27, LIST+28, LIST+29*, LIST+30
STOP	INIT+2~, INIT+32, INIT+33, INIT+39, INIT+41*
U	INIT+10, INIT+14, LIST+20, LIST+27, LIST+28, LIST+30, LIST+37, LIST+41, LIST+42, HDR+9 , EXTRACT+19, INCLUDE+6
X	INIT+2~, LIST+60~, LIST+65*
Y	INIT+2~, INIT+6, INIT+7, INIT+18, INIT+28, INIT+40*, INIT+41, INIT+42, HDR+1~, HDR+3
Z	LIST+1~, LIST+18~, LIST+25, LIST+56, LIST+59, LIST+61, LIST+66, LIST+71
Z0	LIST+1~, LIST+56*, LIST+61, LIST+66, LIST+71
Z1	LIST+1~, LIST+56*, LIST+59, LIST+61, LIST+66, LIST+71
ZTDESC	DEV+1~, DEV+5*
ZTRTN	DEV+1~, DEV+5*
ZTSAVE	DEV+1~
ZTSAVE("IB*"	DEV+6*
ZTSK	DEV+8, DEV+9!

Customize PDF page

Package: Integrated Billing

Routine: IBCEXTRP

Information

Source Information

Call Graph

Call Graph Total: 14

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: