Routine: IBECUSO

Package	Total	Call Graph
Integrated Billing	3	$$ERRTXT^IBECUS22 $$DAT1^IBOUTL ($$FILE,$$RX3,$$RXSEC,$$RXZERO,$$SUBFILE,ZERO)^IBRXUTL
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	2	YMD^%DTC ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
REJ	; Generate the Pharmacy Billing Reject report.
REJDQ	; Tasked entry point.
REJQ
REJHDR	; Print the Reject report header.
REJERR	; Write the prescription and name.
DASH()	; Return a dashed line.
PAUSE	; Page break
TRN	; Generate the Pharmacy Billing Transmission Report
TRNDQ	; Tasked entry point.
TRNQ
TRNHDR	; Print the Transmission Report header.
TRNDAT	; Display basic description information.
FDT(X)	; Find the Fill Date for the prescription. ; Input: X -- 1;2 where 1 :> pointer to the rx in file #52, and ; 2 :> pointer to the re-fill in #52.1, or ; 0 if this is the original fill.
FDTQ
AWP	;
REM	; Delete rejects.

External References

Name	Field # of Occurrence
YMD^%DTC	AWP+5
^%ZIS	REJ+6, TRN+8
HOME^%ZIS	REJ+10, TRN+13
^%ZISC	REJQ, TRNQ
^%ZTLOAD	REJ+9, TRN+12
^DIR	PAUSE+4, TRN+3, TRN+4
$$ERRTXT^IBECUS22	REJDQ+20, TRNDQ+26, TRNDQ+36
$$DAT1^IBOUTL	REJHDR+3, REJERR+1, TRNHDR+3, TRNDAT+1
$$FILE^IBRXUTL	REJDQ+9, TRNDQ+8, FDT+8
$$RX3^IBRXUTL	FDT+8
$$RXSEC^IBRXUTL	FDT+8
$$RXZERO^IBRXUTL	REJDQ+9, TRNDQ+12
$$SUBFILE^IBRXUTL	FDT+7
ZERO^IBRXUTL	TRNDQ+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There are no rejects to be printed." Line Location: REJ+3
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"This job has been queued. The task number is "_ZTSK_".",1:"Unable to queue this job.") Line Location: REJ+9
Function Call: WRITE	Prompt: !?4,IBTXT Line Location: REJDQ+21
Function Call: WRITE	Prompt: @IOF,*13 Line Location: REJHDR+1
Function Call: WRITE	Prompt: !,$$DASH(),!,"Date: ",$$DAT1^IBOUTL(DT),?(IOM/2)-14,"IPS Unresolved Reject Report" Line Location: REJHDR+3
Function Call: WRITE	Prompt: ?(IOM-10),"Page: ",IBPAG,!,$$DASH() Line Location: REJHDR+4
Function Call: WRITE	Prompt: !!,"RX# ",$P(IBRXD,"^"),", filled on ",$$DAT1^IBOUTL(IBFDT) Line Location: REJERR+1
Function Call: WRITE	Prompt: " (",$E($P($G(^DPT(DFN,0)),"^"),1,17)," ",$P($G(^(0)),"^",9),")" Line Location: REJERR+2
Function Call: WRITE	Prompt: " rejected because:" Line Location: REJERR+3
Function Call: WRITE	Prompt: ! Line Location: PAUSE+3
Function Call: WRITE	Prompt: !,"Beginning data must be before ending date.",! Line Location: TRN+5
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"This job has been queued. The task number is "_ZTSK_".",1:"Unable to queue this job.") Line Location: TRN+12
Function Call: WRITE	Prompt: !?4,IBTXT Line Location: TRNDQ+27
Function Call: WRITE	Prompt: !?4,IBTXT Line Location: TRNDQ+37
Function Call: WRITE	Prompt: @IOF,*13 Line Location: TRNHDR+1
Function Call: WRITE	Prompt: !,$$DASH(),!,"Date: ",$$DAT1^IBOUTL(DT),?(IOM/2)-16,"IPS Prescription Status Report" Line Location: TRNHDR+3
Function Call: WRITE	Prompt: ?(IOM-10),"Page: ",IBPAG Line Location: TRNHDR+4
Function Call: WRITE	Prompt: !?(IOM/2)-17 Line Location: TRNHDR+5
Function Call: WRITE	Prompt: Y," through " Line Location: TRNHDR+5
Function Call: WRITE	Prompt: Y," through " Line Location: TRNHDR+5
Function Call: WRITE	Prompt: !,"RX#",?15,"Fill Date",?27,"Patient Name",?62,"Patient SSN" Line Location: TRNHDR+6
Function Call: WRITE	Prompt: !,"NDC",?15,"AWP",?25,"Copay",?35,"Ing Cost",?45,"Fee Paid",?55,"Total PD" Line Location: TRNHDR+7
Function Call: WRITE	Prompt: !?15,"Auth. #",?39,"Message" Line Location: TRNHDR+8
Function Call: WRITE	Prompt: !,"Reject Failure Codes" Line Location: TRNHDR+9
Function Call: WRITE	Prompt: !,$$DASH(),! Line Location: TRNHDR+10
Function Call: WRITE	Prompt: !!,$P(IBRXD,"^"),?15,$$DAT1^IBOUTL(IBFDT) Line Location: TRNDAT+1
Function Call: WRITE	Prompt: ?27,$P(IBDPT(0),"^"),?62,$P(IBDPT(0),"^",9) Line Location: TRNDAT+2
Function Call: WRITE	Prompt: !,"No updates on file" Line Location: AWP+1
Function Call: WRITE	Prompt: !,"Date Quantity" Line Location: AWP+2
Function Call: WRITE	Prompt: !!,"Delete entry from IPS error file" Line Location: REM+1
Function Call: READ	Variable: JADTA Timeout: DTIME Line Location: REM+2
Function Call: WRITE	Prompt: !,"Delete RX#: " Line Location: REM+2
Function Call: WRITE	Prompt: !,JADTA," is not in the error file." Line Location: REM+3
Function Call: WRITE	Prompt: !,JADTA," has been deleted." Line Location: REM+4
Routine Call	DIR Line Location: PAUSE+4 TRN+3 TRN+4
Routine Call	%ZIS Line Location: REJ+6 TRN+8
Routine Call	%ZIS Line Location: REJ+10 TRN+13

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	TRNHDR+5, AWP+5
^DPT - [#2]	REJERR+2, TRNDQ+12
^IBA(351.5 - [#351.5]	TRNDQ+5, TRNDQ+6
^IBA(351.52 - [#351.52]	REJ+3, REJDQ+5, REJDQ+6
^JADREJ(	REM+3, REM+4!
^JADUTIL("AWP UPDATE"	AWP+1, AWP+3, AWP+4!, AWP+6
^TMP($J	TRNDQ+18, TRNDQ+19!
^VA(200 - [#200]	TRNDQ+41

Label References

Name	Line Occurrences
$$DASH	REJHDR+3, REJHDR+4, TRNHDR+3, TRNHDR+10
$$FDT	REJDQ+11, TRNDQ+13
FDTQ	FDT+5, FDT+7
PAUSE	REJDQ+14, REJDQ+19, REJDQ+24, TRNDQ+15, TRNDQ+25, TRNDQ+30, TRNDQ+35, TRNDQ+40, TRNDQ+44
REJERR	REJDQ+15, REJDQ+19
REJHDR	REJDQ+2, REJDQ+14, REJDQ+19
REJQ	REJ+3, REJ+6, REJ+7
REM	REM+3, REM+4
TRN	TRN+5
TRNDAT	TRNDQ+16, TRNDQ+25, TRNDQ+30, TRNDQ+35, TRNDQ+40
TRNHDR	TRNDQ+2, TRNDQ+15, TRNDQ+25, TRNDQ+30, TRNDQ+35, TRNDQ+40
TRNQ	TRN+3, TRN+4, TRN+8, TRN+9

Naked Globals

Name	Field # of Occurrence
^(0	REJERR+2
^(1	REJDQ+6
^(2	TRNDQ+6
^(5	TRNDQ+6
^(6	TRNDQ+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %H	AWP+5*
>> %ZIS	REJ+6, TRN+8
>> A	AWP+3*, AWP+4, AWP+5, AWP+6
DFN	REJDQ+9, REJQ+1!, REJERR+2, TRNQ+1!, FDT+4~, FDT+8
DIR	PAUSE+2~, TRN+3!, TRN+4!
DIR("A"	TRN+3, TRN+4
DIR(0	PAUSE+4, TRN+3, TRN+4*
DIROUT	PAUSE+2~
DIRUT	PAUSE+2~, PAUSE+4, TRN+3, TRN+4
DT	REJHDR+3, TRN+3, TRN+4, TRNHDR+3
DTIME	REM+2
DTOUT	PAUSE+2~
DUOUT	PAUSE+2~, PAUSE+4
>> I	REJDQ+18, TRN+11, TRNDQ+24, TRNDQ+34
IBBEG	TRN+3*, TRN+4, TRN+5, TRNDQ+9, TRNQ+1!, TRNHDR+5
IBC	TRNDQ+5*, TRNDQ+6, TRNQ+2!
IBCD	TRNDQ+6*, TRNDQ+7, TRNDQ+8, TRNDQ+12, TRNDQ+13, TRNDQ+31, TRNQ+2!
IBCD2	TRNDQ+6*, TRNDQ+31, TRNDQ+32, TRNQ+2!
IBCD5	TRNDQ+6*, TRNDQ+21, TRNDQ+24, TRNDQ+28, TRNQ+2!
IBCD6	TRNDQ+6*, TRNDQ+21, TRNDQ+34, TRNDQ+39, TRNDQ+41, TRNQ+2!
IBD	TRNDQ+8*, TRNDQ+9, TRNDQ+10, TRNQ+2!
IBDPT	TRNQ+2!
IBDPT(0	TRNDQ+12*, TRNDAT+2
IBEND	TRN+4*, TRN+5, TRNDQ+10, TRNQ+1!, TRNHDR+5
IBERRP	REJDQ+18, REJDQ+20, REJQ+1!, TRNDQ+24, TRNDQ+26, TRNDQ+34*, TRNDQ+36, TRNQ+1!
IBFDT	REJDQ+11, REJQ+1!, REJERR+1, TRNDQ+13, TRNQ+2!, TRNDAT+1
IBPAG	REJDQ+2, REJQ+1!, REJHDR+1, REJHDR+2, REJHDR+4, TRNDQ+2, TRNQ+1!, TRNHDR+1, TRNHDR+2, TRNHDR+4
IBQ	REJDQ+2, REJDQ+5, REJDQ+14, REJDQ+18, REJDQ+19, REJDQ+24, REJQ+1!, PAUSE+4, TRNDQ+2*, TRNDQ+5 , TRNDQ+15, TRNDQ+24, TRNDQ+25, TRNDQ+30, TRNDQ+34, TRNDQ+35, TRNDQ+40, TRNDQ+44, TRNQ+1!
IBR	REJDQ+5*, REJDQ+6, REJQ+1!, TRNQ+1!
IBR0	REJDQ+6*, REJDQ+7, REJDQ+9, REJDQ+11, REJQ+1!, TRNQ+1!
IBR1	REJDQ+6*, REJDQ+18, REJQ+1!, TRNQ+1!
IBRXD	REJDQ+9, REJDQ+10, REJQ+1!, REJERR+1, TRNDQ+12, TRNDQ+17, TRNDQ+18, TRNQ+1!, TRNDAT+1
IBRXN	FDT+4~, FDT+6*, FDT+7, FDT+8
IBTXT	REJDQ+20, REJDQ+21, REJQ+1!, TRNDQ+26, TRNDQ+27, TRNDQ+36*, TRNDQ+37, TRNQ+1!
IBX	PAUSE+2~, PAUSE+3*
IO	REJ+12, TRN+15
IO("Q"	REJ+7, REJ+10!, TRN+9, TRN+13!
IOF	REJHDR+1, TRNHDR+1
IOM	REJHDR+3, REJHDR+4, DASH+1, TRNHDR+3, TRNHDR+4, TRNHDR+5
IOSL	REJDQ+14, REJDQ+19, PAUSE+3, TRNDQ+15, TRNDQ+25, TRNDQ+30, TRNDQ+35, TRNDQ+40
IOST	REJHDR+1, PAUSE+1, TRNHDR+1
>> JADTA	REM+2*, REM+3, REM+4
>> POP	REJ+6, TRN+8
X	PAUSE+2~, FDT~, FDT+5, FDT+6, FDT+7, AWP+5
Y	PAUSE+2~, TRN+3, TRN+4, TRNHDR+5, FDT+4~, FDT+7, FDT+9, FDTQ, AWP+5*, AWP+6
>> Z2	FDT+8*, FDT+9
>> Z3	FDT+8*, FDT+9
>> ZTDESC	REJ+8, TRN+10
>> ZTQUEUED	REJQ, TRNQ
>> ZTRTN	REJ+8, TRN+10
>> ZTSAVE(	TRN+11*
ZTSK	REJ+9, REJ+10!, TRN+12, TRN+13!

Customize PDF page

Package: Integrated Billing

Routine: IBECUSO

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: