Routine: IBCNERPM

Package	Total	Call Graph
Kernel	4	^%ZISC $$S^%ZTLOAD ($$FMTE,$$NOW)^XLFDT EN^XUTMDEVQ
VA FileMan	3	^DIC $$GET1^DIQ ^DIR
Integrated Billing	1	$$FO^IBCNEUT1

Package	Total	Caller Graph
Integrated Billing	1	IBCNE EIV PAYER DOD REPORT

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Main entry point
R10
R20
R30
R40
R50
R100
EXIT	; Exit point
GENERATE(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
STOP()	; Determine if user wants to exit out of the whole option
STOPX	; STOP exit point
DTRANGE	; Determine start and end dates for date range param ; Initialize variables
DTRANG1	;
DTRANGX	; DTRANGE exit point
PYRSEL	; Get Payer(s) selection.
PYRSEL1	; Prompt for Payer Selection
TYPE	; Prompt to select to display All or Most Recent Responses for Patient/Payer combos
TYPEX	; TYPE exit point
SORT	; Prompt to allow users to sort the report by Patient(default) or Payer
SORTX	; SORT exit point
DEVICE(IBCNERTN,IBCNESPC,IBOUT)	; Device Handler and possible TaskManager calls ; Input params: ; IBCNERTN = Routine name for ^TMP($J,... ; IBCNESPC = Array passed by ref of the report params ; IBOUT = "R" for Report format or "E" for Excel format
DEVICEX	; DEVICE exit point
OUT()	; Prompt to allow users to select output format
ANOTHER()	; "Select Another" prompt ; returns 1, if response was "YES", returns 0 otherwise
COMPILE(IBCNESPC)	; Compile the data to be included on the report.
OUTPUT(IBCNERTN,INCNESPC)	; Generate the output of the report.
OUTPUTX	;
PRINT	; Get Print Info ; "Patient Name",?34,"Last 4 SSN",?44,"DOB VISTA",?56,"DOD VISTA",?68,"Payer Name",?100,"Trace #",?122,"DOD Payer"
EOL	; display "end of page" message and set exit flag
HEADER	; print header for each page
LINE(LINE)	; Print line of data
CENTER(LINE)	; return length of a centered line ; LINE - line to center

External References

Name	Field # of Occurrence
^%ZISC	GENERATE+9
$$S^%ZTLOAD	HEADER+4
^DIC	PYRSEL1+2
$$GET1^DIQ	COMPILE+16, COMPILE+19, COMPILE+22, COMPILE+23, COMPILE+24, COMPILE+25, COMPILE+31, COMPILE+33
^DIR	STOP+8, DTRANGE+9, DTRANG1+6, PYRSEL+8, TYPE+7, SORT+7, OUT+7, ANOTHER+5, EOL+3
$$FO^IBCNEUT1	OUTPUT+24, OUTPUTX+2
$$FMTE^XLFDT	COMPILE+23, COMPILE+25, COMPILE+31, OUTPUT+6, OUTPUT+11
$$NOW^XLFDT	OUTPUT+6
EN^XUTMDEVQ	DEVICE+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+4
Function Call: WRITE	Prompt: !,"eIV Payer Date of Death Report",! Line Location: EN+5
Function Call: WRITE	Prompt: !,"Electronic Insurance Verification responses are received daily." Line Location: EN+6
Function Call: WRITE	Prompt: !,"Please select a Date range in which Date of Death eIV responses were received" Line Location: EN+7
Function Call: WRITE	Prompt: !,"to determine the appropriate patient Date of Death information." Line Location: EN+8
Function Call: WRITE	Prompt: !!,"To avoid undesired wrapping, please enter '0;132;999' at the 'DEVICE:' prompt.",! Line Location: R50+1
Function Call: WRITE	Prompt: ! Line Location: STOP+2
Function Call: WRITE	Prompt: !! Line Location: DTRANGE+3
Function Call: WRITE	Prompt: !!,?3,"Future dates are not allowed. Please try again." Line Location: DTRANGE+11
Function Call: WRITE	Prompt: !!,?3,"Future dates are not allowed. Please try again." Line Location: DTRANG1+8
Function Call: WRITE	Prompt: !!,?3,"Latest date must be greated than Earliest Date. Please try again." Line Location: DTRANG1+9
Function Call: WRITE	Prompt: ! Line Location: PYRSEL+3
Function Call: WRITE	Prompt: ! Line Location: PYRSEL1+1
Function Call: WRITE	Prompt: !!,"DECEASED OR NOT DECEASED IN VISTA:" Line Location: TYPE+2
Function Call: WRITE	Prompt: ! Line Location: SORT+2
Function Call: WRITE	Prompt: ! Line Location: OUT+2
Function Call: WRITE	Prompt: ! Line Location: ANOTHER+3
Function Call: WRITE	Prompt: ! Line Location: OUTPUTX+1
Function Call: WRITE	Prompt: ! Line Location: EOL+2
Function Call: WRITE	Prompt: @IOF,!,"eIV Payer Date of Death Report" Line Location: HEADER+6
Function Call: WRITE	Prompt: ?OFFSET,HDR Line Location: HEADER+8
Function Call: WRITE	Prompt: !,HDR1,!!,HDR2 Line Location: HEADER+9
Function Call: WRITE	Prompt: !,DASHES Line Location: HEADER+10
Function Call: WRITE	Prompt: !,LINE Line Location: LINE+2
Routine Call	DIC Line Location: PYRSEL1+2
Routine Call	DIR Line Location: STOP+8 DTRANGE+9 DTRANG1+6 PYRSEL+8 TYPE+7 SORT+7 OUT+7 ANOTHER+5 EOL+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBCN(365 - [#365]	COMPILE+12, COMPILE+14, COMPILE+18, COMPILE+30
^TMP($J	GENERATE+6!, GENERATE+11!, COMPILE+34*, OUTPUT+24, OUTPUT+27, OUTPUT+28, OUTPUT+29, OUTPUT+30, OUTPUT+35, OUTPUT+36 , OUTPUT+37, PRINT+2

Label References

Name	Line Occurrences
$$ANOTHER	PYRSEL1+5
$$CENTER	OUTPUT+24, OUTPUTX+2
$$OUT	R50
$$STOP	R10, R20, R30, R40, R50, R100
COMPILE	GENERATE+7
DEVICE	R100
DTRANG1	DTRANG1+8, DTRANG1+9
DTRANGE	R10, DTRANGE+11
DTRANGX	DTRANGE+10, DTRANG1+7
EOL	OUTPUTX+3, HEADER+3
EXIT	R10, R20, R30, R40, R50, R100, R100+1
HEADER	OUTPUT+22, LINE+1
LINE	OUTPUT+24, OUTPUT+31, OUTPUTX+2, PRINT+10
OUTPUT	GENERATE+8
OUTPUTX	OUTPUT+24
PRINT	OUTPUT+37
PYRSEL	R20
PYRSEL1	PYRSEL1+5
R10	R10, R20
R20	R30
R30	R40
R40	R50
R50	R100
SORT	R40
SORTX	SORT+8
STOPX	STOP+9
TYPE	R30
TYPEX	TYPE+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BEGDT	COMPILE+1~, COMPILE+3*, COMPILE+9
CRT	OUTPUT+1~, OUTPUT+18, OUTPUT+19, OUTPUTX+3, HEADER+3
DASHES	OUTPUT+1~, OUTPUT+9*, HEADER+10
DDATA	OUTPUT+1~, PRINT+2*, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9
DEFSTAT	OUTPUT+1~
DIC	PYRSEL+2~, PYRSEL+17*
DIC("A"	PYRSEL+13*
DIC("S"	PYRSEL+16*
DIC(0	PYRSEL+12*
DIR	STOP+1~, STOP+8!, DTRANGE+9!, DTRANG1+6!, PYRSEL+2~, TYPE+1~, TYPE+7!, SORT+1~, SORT+7!, OUT+1~ , ANOTHER+2~, EOL+1~, EOL+3!
DIR("?"	STOP+6, STOP+7, DTRANGE+7, DTRANGE+8, DTRANG1+3, DTRANG1+4, DTRANG1+5, PYRSEL+6, TYPE+6, SORT+6 , OUT+6*
DIR("A"	STOP+4, DTRANGE+5, DTRANGE+6, DTRANG1+2, PYRSEL+4, PYRSEL+5, TYPE+4, SORT+4, OUT+4, ANOTHER+4
DIR("B"	STOP+5, DTRANG1+1, PYRSEL+7, TYPE+5, SORT+5, OUT+5, ANOTHER+4*
DIR(0	STOP+3, DTRANGE+4, DTRANG1+1, PYRSEL+7, TYPE+3, SORT+3, OUT+3, ANOTHER+4, EOL+3*
DIROUT	PYRSEL+2~, OUT+1~, ANOTHER+2~, EOL+1~
DIRUT	STOP+1~, STOP+9, DTRANGE+2~, DTRANGE+10, DTRANG1+7, PYRSEL+2~, PYRSEL+9, TYPE+1~, TYPE+8, SORT+1~ , SORT+8, OUT+1~, OUT+7, ANOTHER+2~, ANOTHER+5, EOL+1~
DLINE	OUTPUT+1~, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10
DOD365	COMPILE+1~, COMPILE+31*, COMPILE+32, COMPILE+34
DODEX	COMPILE+1~, COMPILE+23*, COMPILE+34
DODIN	COMPILE+1~, COMPILE+19*, COMPILE+20, COMPILE+21
DT	DTRANGE+11, DTRANG1+8
DTOUT	PYRSEL+2~, PYRSEL1+3, OUT+1~, ANOTHER+2~, EOL+1~, EOL+4
DUOUT	PYRSEL+2~, PYRSEL1+3, OUT+1~, ANOTHER+2~, EOL+1~, EOL+4
ENDDT	COMPILE+1~, COMPILE+4*, COMPILE+10
EORMSG	OUTPUT+1~, OUTPUT+5*, OUTPUTX+2
HDR	HEADER+1~, HEADER+7*, HEADER+8
HDR1	OUTPUT+1~, OUTPUT+11, OUTPUT+12, OUTPUT+13*, HEADER+9
HDR2	OUTPUT+1~, OUTPUT+14, OUTPUT+15, OUTPUT+16*, HEADER+9
IBCNERTN	EN+1~, EN+3*, R100, GENERATE~, GENERATE+6, GENERATE+8, GENERATE+11, DEVICE~, DEVICE+11, COMPILE+34 , OUTPUT~, OUTPUT+24, OUTPUT+27, OUTPUT+28, OUTPUT+29, OUTPUT+30, OUTPUT+35, OUTPUT+36, OUTPUT+37, PRINT+2
IBCNESPC	EN+1~, R100, GENERATE~, GENERATE+7, GENERATE+8, DEVICE~, COMPILE~
IBCNESPC("BEGDT"	DTRANGE+12*, DTRANG1+9, COMPILE+3, OUTPUT+11
IBCNESPC("ENDDT"	DTRANG1+10*, COMPILE+4, OUTPUT+11
IBCNESPC("IBOUT"	R50*, R50+1, OUTPUT+7
IBCNESPC("PYR"	PYRSEL+11, PYRSEL1+3!, PYRSEL1+4, COMPILE+5, COMPILE+15, OUTPUT+12
IBCNESPC("SORT"	SORT+9*, COMPILE+6
IBCNESPC("TYPE"	TYPE+9*, COMPILE+7, OUTPUT+8
IBDT	COMPILE+1~, COMPILE+9, COMPILE+12, COMPILE+14, COMPILE+18, COMPILE+30
IBOUT	EN+1~, R50, R100, GENERATE~, DEVICE~, DEVICE+10, DEVICE+11, OUTPUT+1~, OUTPUT+7, OUTPUT+15 , OUTPUT+16, OUTPUT+25, OUTPUT+33, HEADER+7, HEADER+10
IBPAT	COMPILE+1~
IBPGC	OUTPUT+1~, OUTPUT+3, OUTPUTX+3, HEADER+3, HEADER+5, HEADER+7
IBPTR	COMPILE+1~, COMPILE+29, COMPILE+30, COMPILE+31, COMPILE+33
IBPXT	OUTPUT+1~, OUTPUT+3, OUTPUT+22, OUTPUT+25, OUTPUT+27, OUTPUT+28, OUTPUT+33, OUTPUT+35, OUTPUT+36, EOL+4 , HEADER+3, HEADER+4*, LINE+1
IBPYR	COMPILE+1~
IBRIEN	COMPILE+1~
IBTOT	COMPILE+1~
IBTRNO	COMPILE+1~, COMPILE+33*, COMPILE+34
INCNESPC	OUTPUT~
IOF	EN+4, HEADER+6
IOSL	OUTPUT+18, OUTPUT+19
IOST	OUTPUT+19
LENGTH	CENTER+2~, CENTER+3*, CENTER+4
LIN	EOL+1~, EOL+2*
LINE	LINE~, LINE+2, CENTER~, CENTER+3
LOUT	OUTPUT+1~, OUTPUT+30*, OUTPUT+31
LSTDT	COMPILE+2~, COMPILE+10*, COMPILE+12
MAXCNT	OUTPUT+1~, OUTPUT+18, OUTPUT+19, EOL+2, LINE+1
NONEMSG	OUTPUT+1~, OUTPUT+4*, OUTPUT+24
OFFSET	HEADER+1~, HEADER+7, HEADER+8, CENTER+2~, CENTER+3, CENTER+4
PATDOB	COMPILE+2~, COMPILE+25*, COMPILE+34
PATIEN	COMPILE+2~, COMPILE+17, COMPILE+18, COMPILE+19, COMPILE+22, COMPILE+23, COMPILE+24, COMPILE+25, COMPILE+30
PATNAM	COMPILE+2~, COMPILE+22*, COMPILE+27, COMPILE+28, COMPILE+34, OUTPUT+2~
PATSSN	COMPILE+2~, COMPILE+24*
PATSSN4	COMPILE+2~, COMPILE+24*, COMPILE+34
POP	EN+1~, DEVICE+9~, DEVICE+17
PYR	COMPILE+2~, COMPILE+5*, COMPILE+15
PYRIEN	COMPILE+2~, COMPILE+13, COMPILE+14, COMPILE+15, COMPILE+16, COMPILE+18, COMPILE+30
PYRNAM	COMPILE+2~, COMPILE+16*, COMPILE+27, COMPILE+28, COMPILE+34, OUTPUT+2~
RECVD	OUTPUT+2~
SENT	OUTPUT+2~
SORT	COMPILE+2~, COMPILE+6*, COMPILE+27, COMPILE+28
SORT1	COMPILE+2~, COMPILE+27*, COMPILE+34
SORT2	COMPILE+2~, COMPILE+28*, COMPILE+34
SPACES	OUTPUT+2~, OUTPUT+10*, OUTPUT+16
SRT	HEADER+1~
SRT1	OUTPUT+2~, OUTPUT+21, OUTPUT+27, OUTPUT+28, OUTPUT+29, OUTPUT+30, OUTPUT+35*, OUTPUT+36, OUTPUT+37, PRINT+2
SRT2	OUTPUT+2~, OUTPUT+28, OUTPUT+29, OUTPUT+30, OUTPUT+36, OUTPUT+37, PRINT+2
SSN	OUTPUT+2~
SSNLEN	OUTPUT+2~
STOP	EN+1~, EN+2, R10, R20, R30, R40, R50, R100, STOP+9, STOP+10* , DTRANGE+10, DTRANG1+7, PYRSEL+9, PYRSEL1+3, TYPE+8, SORT+8, DEVICE+17, OUT+7, ANOTHER+5*
TRNO	OUTPUT+2~, OUTPUT+29, OUTPUT+30, OUTPUT+37, PRINT+2
TSTAMP	OUTPUT+2~, OUTPUT+6*, HEADER+7
TYPE	COMPILE+2~, COMPILE+7, COMPILE+20, COMPILE+21, OUTPUT+2~, OUTPUT+8, OUTPUT+13
U	PYRSEL1+4, COMPILE+34, OUTPUT+15, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9
VDATE	OUTPUT+2~
X	STOP+1~, DTRANGE+2~, PYRSEL+2~, TYPE+1~, SORT+1~, OUT+1~, ANOTHER+2~, OUTPUT+2~
Y	STOP+1~, STOP+9*, STOP+10, STOPX+1, DTRANGE+2~, DTRANGE+11, DTRANGE+12, DTRANG1+8, DTRANG1+9, DTRANG1+10 , PYRSEL+2~, PYRSEL+11, PYRSEL1+3, PYRSEL1+4, TYPE+1~, TYPE+9, SORT+1~, SORT+9, OUT+1~, OUT+8 , ANOTHER+2~, ANOTHER+6, OUTPUT+2~
ZTDESC	DEVICE+9~, DEVICE+12*, DEVICE+16
>> ZTQUEUED	GENERATE+13, OUTPUTX+3, HEADER+3, HEADER+4
>> ZTREQ	GENERATE+13*
ZTRTN	DEVICE+9~, DEVICE+11*, DEVICE+16
ZTSAVE	DEVICE+9~, DEVICE+16
ZTSAVE("IBCNERTN"	DEVICE+14*
ZTSAVE("IBCNESPC("	DEVICE+13*
ZTSAVE("IBOUT"	DEVICE+15*
>> ZTSTOP	GENERATE+8, COMPILE+12, COMPILE+14, COMPILE+18, OUTPUT+22, OUTPUT+25, OUTPUT+27, OUTPUT+28, OUTPUT+33, OUTPUT+35 , OUTPUT+36, HEADER+4*, LINE+1

Customize PDF page

Package: Integrated Billing

Routine: IBCNERPM

Information

Source Information

Call Graph

Call Graph Total: 8

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: