Routine: IBECUS2

Package	Total	Call Graph
Integrated Billing	6	$$CUS^IBACUS ITMCHG^IBCRCC $$FNDBI^IBCRU2 ^IBECUS21 (DUP,ERROR)^IBECUS22 $$FILE^IBRXUTL
Kernel	1	^%ZTLOAD
Outpatient Pharmacy	1	$$TRANS^PSOCPTRI
VA FileMan	1	DT^DICRW

Package	Total	Caller Graph
Integrated Billing	1	IBECUS3

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Attempt to bill a prescription directly to the FI. ; Input: IBKEY -- 1 ; 2, where ; 1 = Pointer to the prescription in file #52 ; 2 = Pointer to the refill in file #52.1, or ; 0 for the original fill ; IBKEYD -- 1 ^ 2 ^ 3 ^ 4 ^ 5, where ; 1 = Rx label printing device ; 2 = Pointer to the Pharmacy in file #59 ; 3 = Pointer to the Pharmacy user in file #200 ; 4 = Pointer to the billing transaction ; in file #351.5 (cancellations only) ; 5 = Product Selection Reason ; (Resubmissions only) ; IBCHSET -- Pointer to the Charge Set in file #363.1 ; IBPRESCR -- Facility Prescriber ID number
OUT	; - send transaction to the commercial pos package
ENQ
TASK(IBDESC)	; Queue off label print, charge creation and cancellation jobs ; Input: IBDESC -- 1 ; 2 , where ; 1 = routine label to execute ; 2 = task description
DATE(X)	; Set date in the format yyyymmdd, or 8 spaces.
FILL(X,LEN)	; Zero-fill, right justified.
LJUST(X,LEN)	; Space-fill, left justified.
STRIPL(X)	; Strip leading spaces.
NDC(X)	; Massage the NDC as it is stored in Pharmacy ; Input: X -- The NDC as it is stored in Pharmacy ; Output: X -- The NDC in the format 5N 1"-" 4N 1"-" 2N
NDCQ

External References

Name	Field # of Occurrence
^%ZTLOAD	TASK+8
DT^DICRW	EN+19
$$CUS^IBACUS	EN+38
ITMCHG^IBCRCC	EN+27
$$FNDBI^IBCRU2	EN+25
^IBECUS21	OUT+17
DUP^IBECUS22	OUT+14
ERROR^IBECUS22	OUT+13, OUT+23, ENQ
$$FILE^IBRXUTL	EN+33
$$TRANS^PSOCPTRI	EN+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(2) Line Location: OUT+1
Function Call: WRITE	Prompt: IBLINE(I) Line Location: OUT+2
Function Call: WRITE	Prompt: $C(3) Line Location: OUT+3
Function Call: WRITE	Prompt: ! Line Location: OUT+4
Function Call: READ	Variable: IBRESP(1)#220 Timeout: 120 Line Location: OUT+7
Function Call: READ	Variable: IBRESP(2)#220 Timeout: 60,IBRESP(3):60 Line Location: OUT+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(36 - [#36]	EN+43
^DIC(5 - [#5]	EN+84
^DPT - [#2]	EN+34, EN+42
^IBA(351.5 - [#351.5]	OUT+29!
^IBA(351.53 - [#351.53]	EN+112
^IBE(350.9 - [#350.9]	EN+110, EN+115

Label References

Name	Line Occurrences
$$DATE	EN+66, EN+68, EN+116
$$FILL	EN+56, EN+86, EN+106, EN+107, EN+108, EN+109, EN+111, EN+114, EN+117, EN+118 , NDC+12
$$LJUST	EN+57, EN+78, EN+79, EN+80, EN+81, EN+82, EN+83, EN+84, EN+85, EN+115
$$NDC	EN+24
ENQ	EN+21, EN+26, EN+28, EN+30, EN+35, EN+39, EN+44, OUT+7, OUT+8, OUT+13 , OUT+14, OUT+20, OUT+23
NDCQ	NDC+4
TASK	OUT+26

Naked Globals

Name	Field # of Occurrence
^(	EN+34
^(0	EN+112

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	EN+18~, EN+33*, EN+34, EN+38, EN+42
DIQUIET	EN+19~*
DT	EN+27, EN+38
>> I	OUT+2, TASK+7
IBAWP	EN+18~, EN+29*, EN+30, EN+114
IBAWPV	EN+17!, EN+27, EN+28
IBAWPV(	EN+29
IBAWPV(0	EN+29
>> IBBIN	EN+43*, EN+44, EN+56
>> IBCDFN	EN+38*, EN+39, EN+42
>> IBCDFND	EN+42*, EN+43, EN+57, EN+67, EN+80, EN+81
>> IBCHSET	EN+27
IBDESC	TASK~, TASK+5, TASK+6
>> IBDPT(	EN+34*, EN+82, EN+83, EN+84, EN+85, EN+86
>> IBDPT(0	EN+34*, EN+35, EN+66, EN+78, EN+79
IBDRX	EN+17!, EN+21
IBDRX("#REF"	EN+117
IBDRX("COMP"	EN+110
IBDRX("DEA"	EN+115
IBDRX("DIV"	EN+56
IBDRX("FDT"	EN+68
IBDRX("ISS"	EN+116
IBDRX("NDC"	EN+24*, EN+25, EN+111
IBDRX("QTY"	EN+108, EN+114
IBDRX("RX#"	EN+105*, EN+106
IBDRX("SUP"	EN+109
IBERR	EN+17!, EN+21, EN+26, EN+28, EN+30, EN+35, EN+39, EN+44, OUT+7, OUT+8* , ENQ
>> IBFS	EN+55*, EN+77, EN+78, EN+79, EN+80, EN+81, EN+82, EN+83, EN+84, EN+85 , EN+86, EN+121, EN+122, EN+123
>> IBGS	EN+55*, EN+106
>> IBI	OUT+26*
IBITEM	EN+18~, EN+25*, EN+26, EN+27
>> IBKEY	EN+20, OUT+29
>> IBKEYD	EN+112
>> IBLINE(	OUT+2
>> IBLINE(1	EN+56, EN+57
>> IBLINE(2	EN+66, EN+67, EN+68*
>> IBLINE(3	EN+77, EN+78, EN+79, EN+80, EN+81, EN+82, EN+83, EN+84, EN+85, EN+86
>> IBLINE(4	EN+106, EN+107, EN+108, EN+109, EN+110, EN+111, EN+112, EN+115, EN+116, EN+117 , EN+118*
>> IBLINE(5	EN+121, EN+122, EN+123*
>> IBPRESCR	EN+115
>> IBREF	EN+20*, EN+21, EN+107
IBRESP	EN+17!
IBRESP(1	OUT+7, OUT+10, OUT+13, OUT+14, OUT+20, OUT+23
IBRESP(2	OUT+8*
IBRESP(3	OUT+8*
IBRX	EN+18~, EN+20*, EN+21, EN+33
>> IBUAC	EN+114*, EN+115, EN+118
LEN	FILL~, FILL+2, FILL+3, FILL+4, LJUST~, LJUST+2, LJUST+3, LJUST+4, NDC+6~, NDC+9* , NDC+11, NDC+12
PCE	NDC+6~, NDC+9*, NDC+10, NDC+13
X	DATE~, DATE+2, FILL~, FILL+3, LJUST~, LJUST+3, STRIPL~, STRIPL+1, NDC~, NDC+4* , NDC+10, NDC+13*, NDCQ
>> XMCHAN	OUT+12*
Y	DATE+1~, DATE+2, DATE+3, FILL+1~, FILL+3, FILL+4, FILL+5, LJUST+1~, LJUST+3, LJUST+4* , LJUST+5, STRIPL+1~, STRIPL+2, STRIPL+3, NDC+6~, NDC+10, NDC+11, NDC+12*, NDC+13
Z	NDC+6~
Z(	NDC+9
Z(1	NDC+8*
Z(2	NDC+8*
Z(3	NDC+8*
ZTCPU	TASK+4!
>> ZTDESC	TASK+6*
>> ZTDTH	TASK+5*
>> ZTIO	TASK+5*
>> ZTRTN	TASK+5*
ZTSAVE	TASK+4!
ZTSAVE(	TASK+7*
ZTSK	TASK+4!

Customize PDF page

Package: Integrated Billing

Routine: IBECUS2

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: