Routine: IBCNIUR1

Information

IBCNIUR1 ;AITC/VAD - Interfacility Ins. Update Report;3-FEB-2021

Package	Total	Call Graph
Integrated Billing	3	INST^IBCNINSL $$STOP^IBCNINSU PRINT^IBCNIUR2
Kernel	2	($$FMTE,$$NOW)^XLFDT EN^XUTMDEVQ
VA FileMan	2	$$GET1^DIQ ^DIR

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	IBCNIU INTERFACILITY INS UPDT

Entry Points

Name	Comments	DBIA/ICR reference
EN	;entry point
P10	;Summary or Detail
P20	;Received or Sent
P25	;Include or exclude Processing Status
P30	;Get Default date
P35	;Begin Date
P36	;End date
P40	;Facility Selection
P50	;Report or Excel
P60	;Sort by Date, Patient or Facility
P70	; Proceed to compile the data and generate the output of the rpt
DEVICE(IBCNIRTN,IBCNIUR,IBCNFAC)	; Device Handler and possible TaskManager calls ; Input params: ; IBCNIRTN = Routine name for ^TMP($J,... ; IBCNIUR = Array passed by ref of the report params ; IBOUT = "R" for Report format or "E" for Excel format
HELPDS	;Help for Summary/Detail
HELPPS	;Help for (W)ith or With(O)ut Processing Status
HELPSR	;Help for (S)ent or (R)eceived Report
EXIT	;
COMPILE(IBCNFAC,IBCNIUR,IBCNIRTN)	; Compile the data.
GETRECV	;Get RECEIVED Data
GETSENT	;Get SENT Data

External References

Name	Field # of Occurrence
$$GET1^DIQ	GETRECV+10, GETRECV+12, GETRECV+15, GETRECV+16, GETRECV+20, GETRECV+22, GETRECV+23, GETRECV+35, GETRECV+38, GETRECV+40 , GETSENT+13, GETSENT+15, GETSENT+18, GETSENT+19, GETSENT+21, GETSENT+23, GETSENT+28, GETSENT+29, GETSENT+31, GETSENT+32 , GETSENT+34
^DIR	P10+6, P20+7, P25+6, P35+6, P36+3, P50+6, P60+12
INST^IBCNINSL	P40+2
$$STOP^IBCNINSU	P20+8, P25+7, P35+7, P36+3, P40+3, P50+6, P60+12, P70+7, P70+8, P70+9
PRINT^IBCNIUR2	COMPILE+14
$$FMTE^XLFDT	P35+5, P35+10, P36+7, GETRECV+42, GETSENT+44
$$NOW^XLFDT	P30+3
EN^XUTMDEVQ	DEVICE+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Interfacility Ins. Update Report",! Line Location: EN+6
Function Call: WRITE	Prompt: ! Line Location: P10+2
Function Call: WRITE	Prompt: !!,"To view what your facility sent to other VAMCs choose SENT." Line Location: P20+2
Function Call: WRITE	Prompt: !,"To view what your facility received from other VAMCs choose RECEIVED.",! Line Location: P20+3
Function Call: WRITE	Prompt: ! Line Location: P20+10
Function Call: WRITE	Prompt: !,"To know which records filed to buffer and which did not," Line Location: P25+2
Function Call: WRITE	Prompt: !,"select ""YES"" to include processing status.",! Line Location: P25+3
Function Call: WRITE	Prompt: ! Line Location: P25+9
Function Call: WRITE	Prompt: !,"Invalid date entered." Line Location: P35+9
Function Call: WRITE	Prompt: !,"Date must be within the range of ",$$FMTE^XLFDT(IBDFLTDT,5)," and ",$$FMTE^XLFDT(DT,5),"...please re-enter.",! Line Location: P35+10
Function Call: WRITE	Prompt: !," Latest Date must not precede the Earliest Date." Line Location: P36+4
Function Call: WRITE	Prompt: !,"Invalid date entered." Line Location: P36+6
Function Call: WRITE	Prompt: !,"Date must be within the range of ",$$FMTE^XLFDT(IBCNIUR("BEGDT"),5)," and ",$$FMTE^XLFDT(DT,5),"...please re-enter.",! Line Location: P36+7
Function Call: WRITE	Prompt: ! Line Location: P40+1
Function Call: WRITE	Prompt: ! Line Location: P50+2
Function Call: WRITE	Prompt: ! Line Location: P60+3
Function Call: WRITE	Prompt: !,"* This report is 132 characters wide *",! Line Location: P70+4
Function Call: WRITE	Prompt: !,"* To avoid wrapping, enter '0;256;999' at the 'DEVICE' prompt. *",! Line Location: P70+5
Function Call: WRITE	Prompt: !,"Please enter 'S' for 'Summary' or 'D' for a Detailed Report." Line Location: HELPDS+1
Function Call: WRITE	Prompt: !,"Enter 'YES' to include the processing status for the records received." Line Location: HELPPS+1
Function Call: WRITE	Prompt: !,"This identifies which records filed to the buffer and which did not." Line Location: HELPPS+2
Function Call: WRITE	Prompt: !,"Enter 'NO' to exclude the processing status on the report." Line Location: HELPPS+3
Function Call: WRITE	Prompt: !,"Please enter 'R' for 'Received' or 'S' for 'Sent'." Line Location: HELPSR+1
Routine Call	DIR Line Location: P10+6 P20+7 P25+6 P35+6 P36+3 P50+6 P60+12

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
2.312	GET1^DIQ
^IBCN(365.19 - [#365.19]	GET1^DIQ
365.191	GET1^DIQ
365.192	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBCN(365.19 - [#365.19]	P30+2, GETRECV+5, GETRECV+8, GETSENT+7, GETSENT+9, GETSENT+26
^TMP($J	EN+5!, EXIT+1!, COMPILE+10, GETRECV+28, GETRECV+29, GETRECV+30, GETRECV+31, GETRECV+44, GETRECV+45, GETRECV+46* , GETSENT+37, GETSENT+38, GETSENT+39, GETSENT+40, GETSENT+45, GETSENT+46, GETSENT+47

Label References

Name	Line Occurrences
DEVICE	P70+6
EXIT	P10+7, P20+8, P25+7, P35+7, P36+3, P40+3, P50+6, P60+12, P70+7, P70+8 , P70+9, P70+10
GETRECV	COMPILE+12
GETSENT	COMPILE+13
P10	P20+8
P20	P25+7, P35+7
P25	P35+7
P30	P20+12
P35	P35+8, P36+3, P40+3, P50+6
P36	P36+4, P36+5
P40	P50+6
P50	P60+12, P70+7, P70+8
P60	P70+9
P70	P50+8, P60+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EN+1~
COB	GETRECV+1~, GETRECV+40, GETRECV+42, GETSENT+1~, GETSENT+23, GETSENT+44
DATAREC	GETRECV+1~, GETRECV+42, GETRECV+43, GETRECV+44, GETRECV+45, GETRECV+46, GETSENT+1~, GETSENT+44*, GETSENT+45, GETSENT+46 , GETSENT+47
DIR	P10+1~, P20+1~, P25+1~, P25+8!, P35+1~, P50+1~, P60+2~
DIR("??"	P10+5, P20+6, P25+5*
DIR("A"	P10+4, P20+5, P25+4, P35+3, P35+4, P36+1!, P36+2, P50+4, P60+5, P60+6* , P60+7, P60+8, P60+9, P60+10, P60+11*
DIR("B"	P25+5, P35+5, P36+2, P50+5
DIR(0	P10+3, P20+4, P25+4, P35+2, P50+3, P60+4
DIROUT	P10+1~, P20+1~, P25+1~, P35+1~, P50+1~, P60+2~
DIRUT	P10+1~, P20+1~, P25+1~, P35+1~, P50+1~, P50+6, P60+2~, P60+12
DSENT	COMPILE+1~
DT	P35+8, P35+10, P36+5, P36+7
DTOUT	P10+1~, P10+7, P20+1~, P20+8, P25+1~, P25+7, P35+1~, P35+7, P36+3, P40+3 , P50+1~, P60+2~
DUOUT	P10+1~, P10+7, P20+1~, P20+8, P25+1~, P25+7, P35+1~, P35+7, P36+3, P40+3 , P50+1~, P60+2~
DVAMC	GETSENT+1~, GETSENT+33*, GETSENT+38, GETSENT+40, GETSENT+44, GETSENT+45, GETSENT+46, GETSENT+47
DVAMCIEN	GETSENT+1~, GETSENT+29*, GETSENT+30, GETSENT+32
DVAMCNAM	GETSENT+1~, GETSENT+31*, GETSENT+33
DVAMCSTA	GETSENT+1~, GETSENT+32*, GETSENT+33
FNAME	COMPILE+1~
FSENT	COMPILE+1~
I	EN+1~
IBBDT	COMPILE+1~, COMPILE+3*, GETRECV+4, GETSENT+4
IBCNFAC	EN+1~, P10+9*, P40+2, P70+6, DEVICE~, COMPILE~, GETRECV+21, GETSENT+30
IBCNFAC(	GETRECV+21, GETSENT+30
IBCNIRTN	EN+1~, EN+4*, EN+5, P70+6, DEVICE~, DEVICE+8, EXIT+1!, COMPILE~, COMPILE+10, GETRECV+28 , GETRECV+29, GETRECV+30, GETRECV+31, GETRECV+44, GETRECV+45, GETRECV+46, GETSENT+37, GETSENT+38, GETSENT+39, GETSENT+40 , GETSENT+45, GETSENT+46, GETSENT+47
IBCNIUR	EN+1~, P70+6, DEVICE~, EXIT+1!, COMPILE~
IBCNIUR("BEGDT"	P35+11*, P36+4, P36+5, P36+7, COMPILE+3
IBCNIUR("ENDDT"	P36+8*, COMPILE+4
IBCNIUR("IBOUT"	P50+7*, P50+8, P70+3, P70+7, COMPILE+5
IBCNIUR("PS"	P25+8*, COMPILE+6
IBCNIUR("SD"	P10+8*, P10+9, P20+12, P35+7, P40+2, P50+6, P60+1, P70+4, P70+8, P70+9 , COMPILE+7
IBCNIUR("SORT"	P10+9, P50+8, P60+13*, COMPILE+9
IBCNIUR("SR"	P20+9*, P20+12, P35+7, P40+2, P60+4, P60+7, P60+9, COMPILE+8
IBDFLTDT	EN+1~, P30+2, P30+3, P30+4*, P35+5, P35+8, P35+10
IBEDT	COMPILE+1~, COMPILE+4*, GETRECV+5, GETSENT+7
IBOUT	EN+1~, P50+7, COMPILE+1~, COMPILE+5, GETRECV+11, GETRECV+17, GETRECV+25, GETRECV+37, GETRECV+39, GETSENT+14 , GETSENT+20, GETSENT+22, GETSENT+33
IBRPTPS	EN+1~, P25+8, COMPILE+1~, COMPILE+6, GETRECV+24, GETRECV+36, GETRECV+43
IBRPTSD	EN+1~, P10+8, COMPILE+1~, COMPILE+7, GETRECV+32, GETSENT+41
IBRPTSR	EN+1~, P20+9, P30+1, P30+2, P35+3, P35+4, P36+2, COMPILE+1~, COMPILE+8, COMPILE+12 , COMPILE+13
IBRPTSRX	EN+2~, P30+1*, P30+2
IBSORT	COMPILE+1~, COMPILE+9*, GETRECV+44, GETRECV+45, GETRECV+46, GETSENT+45, GETSENT+46, GETSENT+47
IIUIENS	GETRECV+1~, GETRECV+9, GETRECV+10, GETRECV+15, GETRECV+16, GETRECV+19, GETSENT+1~, GETSENT+11, GETSENT+13, GETSENT+18 , GETSENT+21, GETSENT+23, GETSENT+27
IIURCV	GETRECV+1~, GETRECV+6, GETRECV+8, GETRECV+9, GETRECV+44, GETRECV+45, GETRECV+46
IIUSNT	GETSENT+1~, GETSENT+8, GETSENT+9, GETSENT+11, GETSENT+26, GETSENT+45, GETSENT+46, GETSENT+47
IIUVAMC	GETRECV+1~, GETRECV+19, GETRECV+20, GETRECV+22, GETRECV+35, GETRECV+38, GETRECV+40, GETSENT+1~, GETSENT+27, GETSENT+28 , GETSENT+29, GETSENT+31, GETSENT+34
IIUVIENS	GETSENT+1~, GETSENT+25, GETSENT+26, GETSENT+27
INSIEN	GETSENT+1~, GETSENT+18*, GETSENT+19
INSNAM	GETRECV+1~, GETRECV+36, GETRECV+37, GETRECV+42, GETSENT+1~, GETSENT+19, GETSENT+20, GETSENT+44
INSNAME	GETRECV+1~, GETRECV+35*, GETRECV+36, GETRECV+37
IOF	EN+6
OVAMC	GETRECV+1~, GETRECV+24, GETRECV+25, GETRECV+29, GETRECV+31, GETRECV+42, GETRECV+44, GETRECV+45, GETRECV+46
OVAMCIEN	GETRECV+1~, GETRECV+20*, GETRECV+21, GETRECV+23
OVAMCNAM	GETRECV+1~, GETRECV+22*, GETRECV+24, GETRECV+25
OVAMCSTA	GETRECV+1~, GETRECV+23*, GETRECV+24, GETRECV+25
PATIEN	GETRECV+2~, GETRECV+10, GETRECV+12, GETRECV+44, GETRECV+45, GETRECV+46, GETSENT+2~, GETSENT+13, GETSENT+15, GETSENT+19 , GETSENT+45, GETSENT+46, GETSENT+47
PATSSN	GETRECV+2~, GETRECV+12, GETRECV+14, GETSENT+2~, GETSENT+15, GETSENT+17
PATSSN4	GETRECV+2~, GETRECV+14, GETRECV+42, GETRECV+44, GETRECV+45, GETRECV+46, GETSENT+2~, GETSENT+17, GETSENT+44, GETSENT+45 , GETSENT+46, GETSENT+47
PNAME	COMPILE+2~, GETRECV+2~, GETRECV+10, GETRECV+11, GETRECV+42, GETRECV+44, GETRECV+45, GETRECV+46, GETSENT+2~, GETSENT+13* , GETSENT+14*, GETSENT+44, GETSENT+45, GETSENT+46, GETSENT+47
POP	EN+2~, DEVICE+6~, DEVICE+16
PSENT	COMPILE+2~
RCVDTTM	GETRECV+2~, GETRECV+4, GETRECV+5, GETRECV+8
RDATE	GETRECV+2~, GETRECV+15*, GETRECV+42, GETRECV+44, GETRECV+45, GETRECV+46
RDTTM	GETRECV+2~, GETRECV+15*
RPROCSTAT	GETRECV+2~, GETRECV+16, GETRECV+17, GETRECV+43
SDATE	COMPILE+2~, GETSENT+2~, GETSENT+34*, GETSENT+44, GETSENT+45, GETSENT+46, GETSENT+47
SDTTM	GETSENT+2~, GETSENT+34*
SITENO	COMPILE+2~
SNTDTTM	GETSENT+2~, GETSENT+4, GETSENT+7, GETSENT+9, GETSENT+26
STOP	EN+2~, EN+4, P70+1, P70+7, P70+8, P70+9, DEVICE+16*
SUBID	COMPILE+2~, GETRECV+2~, GETRECV+38, GETRECV+39, GETRECV+42, GETSENT+2~, GETSENT+21, GETSENT+22, GETSENT+44
U	GETRECV+28, GETRECV+30, GETRECV+42, GETRECV+43, GETRECV+44, GETRECV+45, GETRECV+46, GETSENT+37, GETSENT+39, GETSENT+44 , GETSENT+45, GETSENT+46, GETSENT+47
VAMCSQ	GETRECV+2~, GETSENT+2~
X	P10+1~, P20+1~, P25+1~, P35+1~, P50+1~, P60+2~
Y	P10+1~, P10+7, P10+8, P20+1~, P20+8, P20+9, P25+1~, P25+7, P25+8, P35+1~ , P35+7, P35+8, P35+11, P36+3, P36+4, P36+5, P36+8, P50+1~, P50+7, P60+2~ , P60+13
ZTDESC	EN+3~, DEVICE+6~, DEVICE+9*, DEVICE+15
ZTQUEUED	EN+3~, P70+2
ZTREQ	EN+3~
ZTRTN	EN+3~, DEVICE+6~, DEVICE+8*, DEVICE+15
ZTSAVE	EN+3~, DEVICE+6~, DEVICE+15
ZTSAVE("IBCNFAC"	DEVICE+10*
ZTSAVE("IBCNFAC("	DEVICE+11*
ZTSAVE("IBCNIRTN"	DEVICE+13*
ZTSAVE("IBCNIUR("	DEVICE+12*
ZTSAVE("IBOUT"	DEVICE+14*

Customize PDF page

Package: Integrated Billing

Routine: IBCNIUR1

Information

Source Information

Call Graph

Call Graph Total: 7

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

Local Variables

Legend: