Routine: IBNCPRR

Package	Total	Call Graph
Integrated Billing	5	$$BILL^IBNCPBB $$ECMEBIL^IBNCPDPU ($$BILLINS,$$COPAY,$$DAT,$$DATTIM,$$ECMENO,$$NXTREFDT,$$RXINS,$$SSN4)^IBNCPRR1 $$DAT3^IBOUTL ($$FILE,$$RXZERO,$$SUBFILE,ZERO)^IBRXUTL
Outpatient Pharmacy	4	RX^PSO52API EXTRACT^PSO52EX PSS^PSO59 (DIC,DIQ)^PSODI
VA FileMan	4	^%DT ^DIC $$EXTERNAL^DILFD ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Package	Total	Caller Graph
Integrated Billing	2	IBNCPDP1 IBNCPEV

Name	Comments	DBIA/ICR reference
EN	;
DIV
WMC
ENB
DATE	;
INS
SDE
DEVICE	;
RUN	;
REPORT	;
WRLINE	; Write the summary report line
WRLINE2	; Write the detailed report line
WRLINE3	; Write the Excel report line
HDR	;
COLLECT	;
RXWMC(IBRX)	;WMC
CHKP	;Check for EOP
PAUSE	;
PAUSE2	;
ULINE(X)	;line
RXSTAT(IBDFN,IBRX)	;
RXSTATUS(IBDFN,IBRX)	;

Name	Field # of Occurrence
^%DT	DATE+5, DATE+10
^%ZIS	DEVICE+3
HOME^%ZIS	DEVICE+14
^%ZISC	RUN+9
^%ZTLOAD	DEVICE+12
^DIC	INS+7
$$EXTERNAL^DILFD	WRLINE2+57, RXSTAT+4
^DIR	WMC+2, ENB+2, INS+2, SDE+3
$$BILL^IBNCPBB	COLLECT+18
$$ECMEBIL^IBNCPDPU	COLLECT+21
$$BILLINS^IBNCPRR1	COLLECT+19
$$COPAY^IBNCPRR1	WRLINE2+14
$$DAT^IBNCPRR1	WRLINE2+3, WRLINE2+7, WRLINE3+1, WRLINE3+3
$$DATTIM^IBNCPRR1	WRLINE2+58
$$ECMENO^IBNCPRR1	COLLECT+28
$$NXTREFDT^IBNCPRR1	WRLINE2+44
$$RXINS^IBNCPRR1	COLLECT+20
$$SSN4^IBNCPRR1	WRLINE2+4
$$DAT3^IBOUTL	WRLINE+2, HDR+10
$$FILE^IBRXUTL	WRLINE+3, WRLINE2+5, WRLINE2+9, WRLINE2+14, WRLINE2+25, WRLINE2+46, WRLINE3+2, COLLECT+10, COLLECT+12, COLLECT+13 , COLLECT+15, RXWMC+2, RXWMC+5
$$RXZERO^IBRXUTL	COLLECT+11, RXWMC+5
$$SUBFILE^IBRXUTL	COLLECT+16
ZERO^IBRXUTL	WRLINE2+9
RX^PSO52API	WRLINE2+26, WRLINE2+47, RXWMC+3, RXSTATUS+3
EXTRACT^PSO52EX	COLLECT+5
PSS^PSO59	HDR+4
DIC^PSODI	DIV+1
DIQ^PSODI	WRLINE2+35

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DIV+1
Function Call: WRITE	Prompt: ! Line Location: WMC+1
Function Call: WRITE	Prompt: ! Line Location: ENB+1
Function Call: WRITE	Prompt: ! Line Location: DATE+5
Function Call: WRITE	Prompt: ! Line Location: INS+1
Function Call: WRITE	Prompt: ! Line Location: INS+7
Function Call: WRITE	Prompt: ! Line Location: SDE+3
Function Call: WRITE	Prompt: ! Line Location: DEVICE+3
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED") Line Location: DEVICE+13
Function Call: WRITE	Prompt: !,@IOF Line Location: RUN+8
Function Call: WRITE	Prompt: !,"No data meet the criteria." Line Location: REPORT+3
Function Call: WRITE	Prompt: !,$$DAT3^IBOUTL(IBDT)," ",?12,$E(IBPN,1,23)," " Line Location: WRLINE+2
Function Call: WRITE	Prompt: ?36,$E($$FILE^IBRXUTL(IBRX,.01),1,11)," ",?48,IBFL Line Location: WRLINE+3
Function Call: WRITE	Prompt: ?51,$P(IBD,U,3)," " Line Location: WRLINE+4
Function Call: WRITE	Prompt: ?59,$P($G(^DGCR(399,+$P(IBD,U,4),0)),U)," " Line Location: WRLINE+5
Function Call: WRITE	Prompt: ?67,$E($P($G(^DIC(36,+$P(IBD,U,5),0)),U),1,13) Line Location: WRLINE+6
Function Call: WRITE	Prompt: !,$$DAT^IBNCPRR1(IBDT)," ",?10,$E(IBPN,1,18)," " Line Location: WRLINE2+3
Function Call: WRITE	Prompt: ?29,$$SSN4^IBNCPRR1(+IBD) Line Location: WRLINE2+4
Function Call: WRITE	Prompt: ?34,$E($$FILE^IBRXUTL(IBRX,.01),1,10)," " Line Location: WRLINE2+5
Function Call: WRITE	Prompt: ?45,IBFL," " Line Location: WRLINE2+6
Function Call: WRITE	Prompt: ?49,$$DAT^IBNCPRR1($P(IBD,U,2))," " Line Location: WRLINE2+7
Function Call: WRITE	Prompt: ?60,$E(DRUGNM,1,20) Line Location: WRLINE2+11
Function Call: WRITE	Prompt: !?5,"ECME#: ",$P(IBD,U,3),", Rx Status: ",$$FILE^IBRXUTL(IBRX,100,"E"),", Rx Copay: ",$$COPAY^IBNCPRR1(IBRX,IBFL) Line Location: WRLINE2+14
Function Call: WRITE	Prompt: !?5,"Bill#: ",$P($G(^DGCR(399,+$P(IBD,U,4),0)),U) Line Location: WRLINE2+17
Function Call: WRITE	Prompt: ", Insurance: ",$E($P($G(^DIC(36,+$P(IBD,U,5),0)),U),1,20) Line Location: WRLINE2+18
Function Call: WRITE	Prompt: !?5,"CMOP SEQUENCE# ",SEQNUM Line Location: WRLINE2+36
Function Call: WRITE	Prompt: ", STATUS: ",$P(^TMP($J,"IBRX",DFN,IBRX,"C",IBCMOP,3),"^",2) Line Location: WRLINE2+37
Function Call: WRITE	Prompt: ", NDC: ",$P(^TMP($J,"IBRX",DFN,IBRX,"C",IBCMOP,4),"^",1) Line Location: WRLINE2+38
Function Call: WRITE	Prompt: !?5,"NO CMOP TRANSACTIONS FOUND" Line Location: WRLINE2+40
Function Call: WRITE	Prompt: !?5,$$DATTIM^IBNCPRR1(+IBZ),?21,$E(IBTXT,1,59) Line Location: WRLINE2+58
Function Call: WRITE	Prompt: !?5,"-------------------------------" Line Location: WRLINE2+61
Function Call: WRITE	Prompt: !,$$DAT^IBNCPRR1(IBDT),U,$E(IBPN,1,23),U Line Location: WRLINE3+1
Function Call: WRITE	Prompt: $E($$FILE^IBRXUTL(IBRX,.01),1,11),U,IBFL,U Line Location: WRLINE3+2
Function Call: WRITE	Prompt: $$DAT^IBNCPRR1($P(IBD,U,2)),U Line Location: WRLINE3+3
Function Call: WRITE	Prompt: $P(IBD,U,3),U Line Location: WRLINE3+4
Function Call: WRITE	Prompt: $P($G(^DGCR(399,+$P(IBD,U,4),0)),U),U Line Location: WRLINE3+5
Function Call: WRITE	Prompt: $E($P($G(^DIC(36,+$P(IBD,U,5),0)),U),1,13) Line Location: WRLINE3+6
Function Call: WRITE	Prompt: @IOF,?10,"IB THIRD PARTY BILLING PHARMACY CROSS-CHECK REPORT for "_IBSNAME,! Line Location: HDR+8
Function Call: WRITE	Prompt: ?10,$S(IBWMC="C":"CMOP",IBWMC="M":"MAIL",1:"WINDOW")," PRESCRIPTIONS" Line Location: HDR+9
Function Call: WRITE	Prompt: ", ",$S(IBSDE="S":"SUMMARY",1:"DETAILED") Line Location: HDR+9
Function Call: WRITE	Prompt: !?10,"Released ",$$DAT3^IBOUTL(IBBDT)_" to "_$$DAT3^IBOUTL(IBEDT),?70,"Page: "_IBPAGE Line Location: HDR+10
Function Call: WRITE	Prompt: !!,"Rel.Date Patient Name Rx No Fill# ECME# Bill Insurance" Line Location: HDR+12
Function Call: WRITE	Prompt: !!,"Rel.Date Patient Name SSN Rx No Fill# Fil.Date Drug" Line Location: HDR+14
Function Call: WRITE	Prompt: !!,"Rel.Date^Patient Name^SSN^Rx No^Fill#^Fil.Date^ECME#^Bill" Line Location: HDR+16
Function Call: READ	Variable: X Timeout: DTIME Line Location: PAUSE+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: PAUSE2+1
Function Call: WRITE	Prompt: ! Line Location: ULINE+2
Function Call: WRITE	Prompt: $G(X,"-") Line Location: ULINE+2
Routine Call	DIC Line Location: INS+7
Routine Call	DIR Line Location: WMC+2 ENB+2 INS+2 SDE+3
Routine Call	%ZIS Line Location: DEVICE+3
Routine Call	%ZIS Line Location: DEVICE+14

FileNo	Call Tags
^PSRX - [#52]	EXTERNAL^DILFD
52.3	EXTERNAL^DILFD

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	WRLINE+5, WRLINE2+17, WRLINE3+5
^DIC(36 - [#36]	WRLINE+6, WRLINE2+18, WRLINE3+6
^TMP($J	RUN+2, WRLINE2+9, WRLINE2+10!, WRLINE2+27, WRLINE2+28, WRLINE2+29, WRLINE2+37, WRLINE2+38, WRLINE2+39!, WRLINE2+47 , WRLINE2+49, WRLINE2+51, WRLINE2+52, WRLINE2+56, WRLINE2+59!, HDR+5, HDR+6!, COLLECT+7, COLLECT+8, COLLECT+9 , COLLECT+30!, RXWMC+4, RXWMC+8!, RXSTATUS+2!, RXSTATUS+4, RXSTATUS+5!

Name	Line Occurrences
$$RXSTATUS	RXSTAT+3
$$RXWMC	COLLECT+27
CHKP	WRLINE+1, WRLINE2+2, WRLINE2+13, WRLINE2+16, WRLINE2+30, WRLINE2+40, WRLINE2+55, WRLINE2+60, ULINE+1
COLLECT	RUN+5
DATE	EN+7
DEVICE	EN+10
DIV	EN+4
ENB	EN+6
HDR	REPORT+2, CHKP+1
INS	EN+8
PAUSE	CHKP+1
PAUSE2	EN+12
REPORT	RUN+7
RUN	EN+11
SDE	EN+9
ULINE	HDR+17
WMC	EN+5
WRLINE	REPORT+9
WRLINE2	REPORT+10
WRLINE3	REPORT+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE+1~, DATE+3, DATE+5!, DATE+8, DATE+10!
%DT("A"	DATE+4, DATE+9
%DT("B"	DATE+4, DATE+9
%ZIS	DEVICE+1~, DEVICE+2*
CNT	COLLECT+1~, COLLECT+6*
DA	WRLINE2+31~, WRLINE2+33*, WRLINE2+35
DA(	WRLINE2+33*, WRLINE2+35
DFN	REPORT+1~, WRLINE2+25, WRLINE2+26, WRLINE2+27, WRLINE2+28, WRLINE2+29, WRLINE2+37, WRLINE2+38, WRLINE2+46, WRLINE2+47 , WRLINE2+49, WRLINE2+51, WRLINE2+52, WRLINE2+56, COLLECT+1~, COLLECT+10, COLLECT+11, COLLECT+21, COLLECT+29, RXWMC+1~ , RXWMC+2, RXWMC+3, RXWMC+4
DIC	DIV~, DIV+1, INS~, INS+6, WRLINE2+31~
DIC("A"	DIV+1*
DIC(0	DIV+1, INS+6
DIQ	WRLINE2+31~, WRLINE2+34*, WRLINE2+35
DIQ(0	WRLINE2+34*, WRLINE2+35
DIR	WMC~, ENB~, INS~, SDE~
DIR("A"	WMC+1, ENB+1, INS+1, SDE+1
DIR("B"	WMC+1, ENB+1, INS+1, SDE+1
DIR(0	WMC+2, ENB+2, INS+2, SDE+2
DIRUT	DIV~, DIV+2, WMC~, WMC+3, ENB~, ENB+3, INS~, INS+3, INS+8, SDE~ , SDE+4
DR	WRLINE2+31~, WRLINE2+32*, WRLINE2+35
DR(	WRLINE2+32*, WRLINE2+35
DRGIFN	WRLINE2+8~, WRLINE2+9*
DRUGNM	WRLINE2+8~, WRLINE2+9*, WRLINE2+11
DT	DATE+2
>> DTE	COLLECT+6, COLLECT+7, COLLECT+8, COLLECT+9
DTIME	PAUSE+1, PAUSE2+1
I	ULINE+2~*
IBACT	WRLINE2+43~
IBANY	WRLINE2+22~, WRLINE2+23, WRLINE2+38, WRLINE2+40
IBBDT	EN+1~, DATE+2, DATE+7, HDR+10, COLLECT+2, COLLECT+5
IBBIL	COLLECT+1~, COLLECT+18*, COLLECT+19, COLLECT+29
IBCMOP	WRLINE2+22~, WRLINE2+24, WRLINE2+27, WRLINE2+28, WRLINE2+29, WRLINE2+33, WRLINE2+37, WRLINE2+38
IBD	REPORT+1~, REPORT+8*, WRLINE+4, WRLINE+5, WRLINE+6, WRLINE2+4, WRLINE2+7, WRLINE2+14, WRLINE2+16, WRLINE2+17 , WRLINE2+18, WRLINE3+3, WRLINE3+4, WRLINE3+5, WRLINE3+6
IBDFN	RXSTAT~, RXSTAT+3, RXSTATUS~, RXSTATUS+3, RXSTATUS+4
IBDT	REPORT+1~, REPORT+4, REPORT+5, REPORT+6, REPORT+7, REPORT+8, WRLINE+2, WRLINE2+3, WRLINE2+44, WRLINE3+1 , COLLECT+1~, COLLECT+2, COLLECT+17, COLLECT+29
IBECMBIL	COLLECT+1~, COLLECT+21*, COLLECT+23, COLLECT+24, COLLECT+28
IBECN	COLLECT+1~, COLLECT+28*, COLLECT+29
IBEDT	EN+1~, DATE+2, DATE+12, HDR+10, COLLECT+5
IBENB	EN+1~, ENB+4*, COLLECT+23, COLLECT+24
>> IBFIL	COLLECT+9*, COLLECT+15, COLLECT+16
IBFILD	COLLECT+1~
IBFL	REPORT+1~, REPORT+7*, REPORT+8, WRLINE+3, WRLINE2+6, WRLINE2+14, WRLINE2+29, WRLINE2+44, WRLINE3+2, COLLECT+1~ , COLLECT+16, COLLECT+20, COLLECT+29
IBFLDT	COLLECT+1~, COLLECT+15, COLLECT+16, COLLECT+17*, COLLECT+18, COLLECT+21, COLLECT+29
IBFROM	WRLINE2+43~, WRLINE2+44*, WRLINE2+45, WRLINE2+53
IBINS	EN+1~, INS+4, INS+10, COLLECT+25
IBP	COLLECT+1~
IBPAGE	RUN+1~, RUN+4, HDR+7, HDR+10
IBPN	REPORT+1~, REPORT+5, REPORT+6, REPORT+7, REPORT+8, WRLINE+2, WRLINE2+3, WRLINE3+1, COLLECT+1~, COLLECT+12 , COLLECT+29
IBQ	EN+1~, EN+2, EN+4, EN+5, EN+6, EN+7, EN+8, EN+9, EN+10, EN+12 , DIV+2, DIV+3, WMC+3, ENB+3, DATE+6, DATE+11, INS+3, INS+8, INS+9, SDE+4* , DEVICE+4, DEVICE+7, REPORT+4, REPORT+5, REPORT+6, REPORT+7, WRLINE+1, WRLINE2+2, WRLINE2+13, WRLINE2+16 , WRLINE2+21, WRLINE2+27, WRLINE2+30, WRLINE2+40, WRLINE2+49, WRLINE2+55, WRLINE2+60, CHKP+1, PAUSE+1, PAUSE2+1 , ULINE+1
IBRX	REPORT+1~, REPORT+6, REPORT+7, REPORT+8, WRLINE+3, WRLINE2+5, WRLINE2+9, WRLINE2+14, WRLINE2+25, WRLINE2+26 , WRLINE2+27, WRLINE2+28, WRLINE2+29, WRLINE2+33, WRLINE2+37, WRLINE2+38, WRLINE2+44, WRLINE2+46, WRLINE2+47, WRLINE2+49 , WRLINE2+51, WRLINE2+52, WRLINE2+56, WRLINE3+2, COLLECT+1~, COLLECT+8, COLLECT+9, COLLECT+10, COLLECT+11, COLLECT+12 , COLLECT+13, COLLECT+15, COLLECT+16, COLLECT+20, COLLECT+27, COLLECT+28, COLLECT+29, RXWMC~, RXWMC+2, RXWMC+3 , RXWMC+4, RXWMC+5, RXSTAT~, RXSTAT+3, RXSTATUS~, RXSTATUS+3, RXSTATUS+4
IBRXARR	WRLINE2+1~
IBRXARR(	WRLINE2+35
IBRXINS	COLLECT+1~, COLLECT+19, COLLECT+20, COLLECT+25, COLLECT+29
IBRXN	COLLECT+1~, COLLECT+18
IBRXSITE	COLLECT+1~, COLLECT+13*, COLLECT+14
IBS	RXSTAT+1~, RXSTAT+3*, RXSTAT+4
IBSCR	EN+1~, DEVICE+5*, RUN+8, CHKP+1
IBSDE	EN+1~, SDE+5*, REPORT+9, REPORT+10, REPORT+11, HDR+9, HDR+11, HDR+13, HDR+15, HDR+17
IBSITE	EN+1~, DIV+1*, DIV+3, HDR+4, HDR+5, COLLECT+14
IBSNAME	HDR+1~, HDR+3, HDR+5, HDR+8
IBTMP	WRLINE2+43~, WRLINE2+48, WRLINE2+49, WRLINE2+51, WRLINE2+52, WRLINE2+56
IBTO	WRLINE2+43~, WRLINE2+44, WRLINE2+45, WRLINE2+54
IBTXT	WRLINE2+50~, WRLINE2+56, WRLINE2+57, WRLINE2+58
IBWM	RXWMC+1~, RXWMC+6, RXWMC+7, RXWMC+9
IBWMC	EN+1~, WMC+4*, WRLINE2+21, HDR+9, COLLECT+27
IBZ	WRLINE2+22~, WRLINE2+28, WRLINE2+50~, WRLINE2+52, WRLINE2+53, WRLINE2+54, WRLINE2+57, WRLINE2+58, COLLECT+1~, COLLECT+11* , RXWMC+1~, RXWMC+5*, RXWMC+6
IO	DEVICE+15, RUN+6, PAUSE+2, PAUSE2+2
IO("Q"	DEVICE+7
IO(0	PAUSE+1, PAUSE2+1
IOF	RUN+8, HDR+8
ION	DEVICE+9
IOSL	CHKP+1
IOST	DEVICE+5
LIST	WRLINE2+46, WRLINE2+47, WRLINE2+49, WRLINE2+51, WRLINE2+52, WRLINE2+56, WRLINE2+59, HDR+1~, HDR+2, HDR+4 , HDR+5, HDR+6, COLLECT+1~, COLLECT+4, COLLECT+5, COLLECT+7, COLLECT+8, COLLECT+9, COLLECT+30, RXWMC+2 , RXWMC+3, RXWMC+4, RXWMC+8
>> NODE	WRLINE2+46, WRLINE2+47, RXWMC+2, RXWMC+3
POP	DEVICE+1~, DEVICE+4
PSODIY	DIV+4!
REF	RUN+1~, RUN+2*, RUN+3, RUN+10, REPORT+3, REPORT+4, REPORT+5, REPORT+6, REPORT+7, REPORT+8 , COLLECT+29
SEQNUM	WRLINE2+8~, WRLINE2+35*, WRLINE2+36
U	WRLINE+4, WRLINE+5, WRLINE+6, WRLINE2+7, WRLINE2+14, WRLINE2+16, WRLINE2+17, WRLINE2+18, WRLINE2+57, WRLINE3+1 , WRLINE3+2, WRLINE3+3, WRLINE3+4, WRLINE3+5, WRLINE3+6, COLLECT+29, RXWMC+6
X	PAUSE+1~, PAUSE2+1~, ULINE~, ULINE+2, RXSTATUS+1~, RXSTATUS+4*, RXSTATUS+6
Y	DIV+1!, WMC~, WMC+4, ENB~, ENB+4, DATE+1~, DATE+6, DATE+7, DATE+11, DATE+12 , INS~, INS+4, INS+9, INS+10, SDE+5
ZTDESC	DEVICE+1~, DEVICE+11*
ZTIO	DEVICE+1~, DEVICE+9*
ZTRTN	DEVICE+1~, DEVICE+8*
ZTSAVE	DEVICE+1~
ZTSAVE("IB*"	DEVICE+10*
ZTSK	DEVICE+1~, DEVICE+13

Customize PDF page

Package: Integrated Billing

Routine: IBNCPRR

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: