Routine: IBCNERP1

Package	Total	Call Graph
Integrated Billing	6	EN^IBCNERP2 EN^IBCNERP5 EN^IBCNERP8 EN^IBCNERP9 (EN3,EN6)^IBCNERPA $$FO^IBCNEUT1
Kernel	2	^%ZISC EN^XUTMDEVQ
VA FileMan	2	(,IX)^DIC ^DIR

Package	Total	Caller Graph
Integrated Billing	8	IBCNBLA1 IBCNE IIV AMBIGUOUS POLICY RPT IBCNE IIV INACTIVE POLICY RPT IBCNE IIV RESPONSE REPORT IBCNERP4 IBCNERP7 IBCNERPD IBCNERPJ

Entry Points

Name	Comments	DBIA/ICR reference
EN(IPRF)	; Main entry pt ; Init vars
R05
R10	;D DTRANGE I STOP G:$$STOP EXIT G R05
R20
R30
R40
R45	; I $G(IPRF)=1 D DTEXP I STOP G:$$STOP EXIT G R40
R50	;D SORT I STOP G:$$STOP EXIT G R45
R60
R100	;D DEVICE(IBCNERTN,.IBCNESPC,IBOUT) I STOP Q:+$G(IBFRB)&($G(IBOUT)="E") G:$$STOP EXIT G:$G(IBCNESPC("TRCN"))'="" R05 G R50
EXIT	; Exit pt
COMPILE(IBCNERTN,IBCNESPC,IBOUT)	; ; Entry point called from EN^XUTMDEVQ in either direct or queued mode. ; Input params: ; IBCNERTN = Routine name for ^TMP($J,... ; IBCNESPC = Array passed by ref of the report params
COMPILX	; COMPILE exit pt
STOP()	; Determine if user wants to exit out of the whole option ; Init vars
STOPX	; STOP exit pt
DTRANGE	; Determine start and end dates for date range param ; Init vars
DTRANG1
DTRANGX	; DTRANGE exit pt
PYRSEL	; Select one payer or ALL - File #365.12 ; Init vars
PYRSELX	; PYRSEL exit pt
PTSEL	; Select one patient or ALL - File #2 ; Init vars
PTSELX	; PTSEL exit pt
TYPE	; Prompt to select to display All or Most Recent Responses for ; Patient/Payer combos ; Init vars
TYPEX	; TYPE exit pt
DTEXP	; Prompt for oldest expiration date to pull for. ; Init Vars
DTEXPX	; DTEXP Exit
SORT	; Prompt to allow users to sort the report by Payer(default) or ; Patient ; Init vars
SORTX	; SORT exit pt
RTYPE	; Prompt to allow users to report by date range or Trace # ; Init vars
RTYPEX	; RTYPE exit pt
DEVICE(IBCNERTN,IBCNESPC,IBOUT)	; Device Handler and possible TaskManager calls
DEVICEX	; DEVICE exit pt
OUT()	; Prompt to allow users to select output format

External References

Name	Field # of Occurrence
^%ZISC	COMPILE+18
^DIC	PYRSEL+11, PTSEL+8
IX^DIC	RTYPE+23
^DIR	STOP+10, DTRANGE+10, DTRANG1+5, TYPE+14, DTEXP+11, SORT+11, RTYPE+12, OUT+6
EN^IBCNERP2	COMPILE+9
EN^IBCNERP5	COMPILE+10
EN^IBCNERP8	COMPILE+11
EN^IBCNERP9	COMPILE+16
EN3^IBCNERPA	COMPILE+14
EN6^IBCNERPA	COMPILE+15
$$FO^IBCNEUT1	PYRSEL+6, PTSEL+6
EN^XUTMDEVQ	DEVICE+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+9
Function Call: WRITE	Prompt: !,"eIV ",$S(IPRF=1:"Inactive Policy",IPRF=2:"Ambiguous Policy",1:"Response")," Report",! Line Location: EN+10
Function Call: WRITE	Prompt: !,"Please select a date range in which ",$S(IPRF=1:"inactive",1:"ambiguous")," responses were received to view" Line Location: EN+18
Function Call: WRITE	Prompt: !,"the associated response detail. Date range selection is based on the date" Line Location: EN+19
Function Call: WRITE	Prompt: !,"that eIV receives the response from the payer." Line Location: EN+20
Function Call: WRITE	Prompt: !,"Insurance verification responses are received daily." Line Location: EN+24
Function Call: WRITE	Prompt: !,"Please select a date range in which responses were received to view the" Line Location: EN+25
Function Call: WRITE	Prompt: !,"associated response detail. Otherwise, select a Trace # to view specific" Line Location: EN+26
Function Call: WRITE	Prompt: !,"response detail." Line Location: EN+27
Function Call: WRITE	Prompt: !!,"To avoid undesired wrapping, please enter '0;256;999' at the 'DEVICE:' prompt.",! Line Location: R60+1
Function Call: WRITE	Prompt: ! Line Location: STOP+4
Function Call: WRITE	Prompt: ! Line Location: DTRANGE+4
Function Call: WRITE	Prompt: ! Line Location: PYRSEL+4
Function Call: WRITE	Prompt: ! Line Location: PTSEL+4
Function Call: WRITE	Prompt: ! Line Location: DTEXP+4
Function Call: WRITE	Prompt: ! Line Location: RTYPE+17
Function Call: WRITE	Prompt: ! Line Location: OUT+2
Routine Call	DIC Line Location: PYRSEL+11 PTSEL+8
Routine Call	DIC Line Location: RTYPE+23
Routine Call	DIR Line Location: STOP+10 DTRANGE+10 DTRANG1+5 TYPE+14 DTEXP+11 SORT+11 RTYPE+12 OUT+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^IBCN(365 - [#365]	Classic Fileman Calls
^IBE(365.12 - [#365.12]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	COMPILE+7!, COMPILE+20!

Label References

Name	Line Occurrences
$$OUT	R60
$$STOP	R10+3, R20, R30, R40, R50+1, R60
DEVICE	R100+1
DTEXPX	DTEXP+12
DTRANGE	R10+1
DTRANGX	DTRANGE+13, DTRANG1+6
EXIT	R05, R10+2, R10+3, R20, R30, R40, R50+1, R60, R100+4
PTSEL	R30
PTSELX	PTSEL+9
PYRSEL	R20
PYRSELX	PYRSEL+12
R05	R10+3
R10	R20
R20	R30
R30	R40
R40	R50+1
R50	R60
R60	R05+2
RTYPE	R05
RTYPEX	RTYPE+13, RTYPE+14, RTYPE+24, RTYPE+25
SORT	R50+1
SORTX	SORT+12
STOPX	STOP+11
TYPE	R40
TYPEX	TYPE+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
D	RTYPE+2~, RTYPE+19*
DIC	PYRSEL+2~, PYRSEL+10, PTSEL+2~, PTSEL+7, RTYPE+2~, RTYPE+19*, RTYPE+23!
DIC("A"	PYRSEL+6, PTSEL+6, RTYPE+19*
DIC("S"	PYRSEL+9, RTYPE+21
DIC("W"	RTYPE+22*
DIC(0	PYRSEL+5, PTSEL+5, RTYPE+18*
DIR	STOP+2~, STOP+10!, DTRANGE+10!, DTRANG1+5!, TYPE+3~, TYPE+14!, DTEXP+11!, SORT+3~, SORT+11!, RTYPE+2~ , RTYPE+12!, OUT+1~
DIR("?"	STOP+8, STOP+9, DTRANGE+8, DTRANGE+9, DTRANG1+2, DTRANG1+3, DTRANG1+4, TYPE+8, TYPE+9, TYPE+10 , TYPE+11, TYPE+12, TYPE+13, DTEXP+9, DTEXP+10, SORT+8, SORT+9, SORT+10, RTYPE+7, RTYPE+8 , RTYPE+9, RTYPE+10, RTYPE+11*
DIR("A"	STOP+6, DTRANGE+7, DTRANG1+1, TYPE+6, DTEXP+7, SORT+6, RTYPE+5, OUT+4
DIR("B"	STOP+7, TYPE+7, DTEXP+8, SORT+7, RTYPE+6, OUT+5
DIR(0	STOP+5, DTRANGE+6, DTRANG1, TYPE+5, DTEXP+6, SORT+5, RTYPE+4, OUT+3
DIROUT	OUT+1~
DIRUT	STOP+2~, STOP+11, DTRANGE+2~, DTRANGE+13, DTRANG1+6, TYPE+3~, TYPE+15, DTEXP+2~, DTEXP+12, SORT+3~ , SORT+12, RTYPE+2~, RTYPE+13, OUT+1~, OUT+6
DTOUT	PYRSEL+2~, PYRSEL+12, PTSEL+2~, PTSEL+9, RTYPE+2~, RTYPE+24, OUT+1~
DUOUT	PYRSEL+2~, PYRSEL+12, PTSEL+2~, PTSEL+9, RTYPE+2~, RTYPE+24, OUT+1~
IBCNERTN	EN+2~, EN+8*, R100+1, COMPILE~, COMPILE+7, COMPILE+9, COMPILE+10, COMPILE+11, COMPILE+14, COMPILE+15 , COMPILE+16, COMPILE+20, DEVICE~, DEVICE+13, DEVICE+14, DEVICE+16
IBCNESPC	EN+2~, R100+1, COMPILE~, COMPILE+9, COMPILE+10, COMPILE+11, COMPILE+14, COMPILE+15, COMPILE+16, DEVICE~
IBCNESPC("BEGDT"	DTRANGE+17*
IBCNESPC("DTEXP"	R45+1, DTEXP+13
IBCNESPC("ENDDT"	DTRANG1+7*
IBCNESPC("PAT"	PTSEL+11*
IBCNESPC("PYR"	PYRSEL+14*
IBCNESPC("RFLAG"	EN+5*
IBCNESPC("SORT"	SORT+13*
IBCNESPC("TRCN"	R05+2, RTYPE+14, RTYPE+26
IBCNESPC("TYPE"	TYPE+16*, DEVICE+13
IBOUT	EN+2~, R60*, R60+1, R100+1, COMPILE~, COMPILE+9, COMPILE+14, COMPILE+15, COMPILE+16, DEVICE~ , DEVICE+13, DEVICE+14
IBSTOP	EN+3~, R10+1, R10+2, DTRANGE+14
IOF	EN+9
IPRF	EN~, EN+4*, EN+5, EN+10, EN+11, EN+18, EN+23, R05, R10+2, DTRANGE+14
POP	EN+2~, DEVICE+11~, DEVICE+21
STOP	EN+2~, EN+7, R05, R10+3, R20, R30, R40, R50+1, R60, R100+4 , STOP+11, STOP+12, DTRANGE+15, DTRANG1+6, PYRSEL+12, PTSEL+9, TYPE+15, DTEXP+12, SORT+12, RTYPE+13* , RTYPE+24, RTYPE+25, DEVICE+21, OUT+6
TODAY	DTEXP+2~
U	PYRSEL+14, PTSEL+11, RTYPE+26
X	STOP+2~, DTRANGE+2~, PYRSEL+2~, PTSEL+2~, TYPE+3~, SORT+3~, RTYPE+2~, OUT+1~
Y	STOP+2~, STOP+11*, STOP+12, STOPX+1, DTRANGE+2~, DTRANGE+17, DTRANG1, DTRANG1+7, PYRSEL+2~, PYRSEL+14 , PTSEL+2~, PTSEL+11, TYPE+3~, TYPE+16, DTEXP+2~, DTEXP+13, SORT+3~, SORT+13, RTYPE+2~, RTYPE+14 , RTYPE+25, RTYPE+26, OUT+1~, OUT+7
Y(0	RTYPE+26
ZTDESC	DEVICE+11~, DEVICE+16*, DEVICE+20
>> ZTQUEUED	COMPILE+22
>> ZTREQ	COMPILE+22*
ZTRTN	DEVICE+11~, DEVICE+14*, DEVICE+20
ZTSAVE	DEVICE+11~, DEVICE+20
ZTSAVE("IBCNERTN"	DEVICE+18*
ZTSAVE("IBCNESPC("	DEVICE+17*
ZTSAVE("IBOUT"	DEVICE+19*
>> ZTSTOP	COMPILE+13

Customize PDF page

Package: Integrated Billing

Routine: IBCNERP1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: