Routine: IBCNERPI

Information

IBCNERPI ;ALB/EJK - IBCNE EIV SECONDARY INSURANCE REPORT PRINT;08-APR-2013

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA FileMan	3	$$GET1^DIQ ^DIR ^DIWP
Integrated Billing	2	WRAP^IBCNESI2 $$FO^IBCNEUT1
Kernel	2	$$S^%ZTLOAD ($$FMTE,$$NOW)^XLFDT

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	IBCNESI1

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Entry point
EXIT	;
EOL	; display "end of page" message and set exit flag
HEADER	; print header for each page
PTHDR	;HEADER FOR EACH PATIENT ENTRY
PTDTL	;PRINT PATIENT DETAIL LINES
PTCMT	; print comments ; print comments
LINE(LINE)	; Print line of data
CENTER(LINE)	; return length of a centered line ; LINE - line to center

External References

Name	Field # of Occurrence
$$S^%ZTLOAD	HEADER+5
$$GET1^DIQ	PTCMT+12
^DIR	EOL+3
^DIWP	PTCMT+15
WRAP^IBCNESI2	PTDTL+13
$$FO^IBCNEUT1	EN+17, EXIT+1
$$FMTE^XLFDT	EN+7, EN+10, HEADER+4, PTDTL+1, PTCMT+12
$$NOW^XLFDT	EN+7, HEADER+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EOL+2
Function Call: WRITE	Prompt: @IOF,!,"Pt. Secondary Insurance Report" Line Location: HEADER+7
Function Call: WRITE	Prompt: ?OFFSET,HDR,! Line Location: HEADER+9
Function Call: WRITE	Prompt: "Sort: Chronological Order" Line Location: HEADER+10
Function Call: WRITE	Prompt: "Sort: Reverse Chronological Order" Line Location: HEADER+11
Function Call: WRITE	Prompt: ?OFFSET,HDR,! Line Location: HEADER+14
Function Call: WRITE	Prompt: "Includes: " Line Location: HEADER+15
Function Call: WRITE	Prompt: $S(IBCOMP=3!(IBCOMP=4):"non-",1:""),"Completed Entries" Line Location: HEADER+16
Function Call: WRITE	Prompt: $S(IBCOMP=1!(IBCOMP=3):" without",1:" with")," associated comments" Line Location: HEADER+17
Function Call: WRITE	Prompt: ! Line Location: HEADER+18
Function Call: WRITE	Prompt: !,$G(^TMP($J,"IBCNESI1",IBDT*IBSORT,IBDFN,IBRIEN,"PATIENT NAME")) Line Location: PTHDR+2
Function Call: WRITE	Prompt: " "_IBDOB Line Location: PTHDR+5
Function Call: WRITE	Prompt: " Review Status: "_$S(REVSTAT=0:"Not Reviewed",REVSTAT=1:"In Process",REVSTAT=2:"Complete",1:"") Line Location: PTHDR+7
Function Call: WRITE	Prompt: !,?1,LINE Line Location: LINE+2
Routine Call	DIR Line Location: EOL+3

FileNo	Call Tags
365.21	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBCN(365.2 - [#365.2]	PTCMT+8, PTCMT+9, PTCMT+10, PTCMT+15, PTCMT+19
^TMP($J	EN+17, EN+18, EN+19, EN+20, EN+22, PTHDR+2, PTHDR+3, PTHDR+6, PTDTL+2, PTDTL+3 , PTDTL+4, PTDTL+5, PTDTL+7, PTDTL+8, PTDTL+9, PTDTL+12, PTDTL+13, PTCMT+3, PTCMT+7
^UTILITY($J	PTCMT+14!, PTCMT+16, PTCMT+17, PTCMT+23!

Label References

Name	Line Occurrences
$$CENTER	EN+17, EXIT+1
EOL	EXIT+2, HEADER+3
EXIT	EN+17
HEADER	EN+15, LINE+1
LINE	EN+17, EXIT+1, PTHDR+8, PTDTL+1, PTDTL+2, PTDTL+3, PTDTL+4, PTDTL+5, PTDTL+10, PTDTL+14 , PTDTL+16, PTCMT+4, PTCMT+5, PTCMT+6, PTCMT+8, PTCMT+13, PTCMT+17, PTCMT+19, PTCMT+21
PTCMT	EN+24
PTDTL	EN+22
PTHDR	EN+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CRT	EN+1~, EN+12, EN+13, EXIT+2, HEADER+3
DASHES	HEADER+1~, PTHDR+8*
DFN	EN+1~
DIR	EOL+1~, EOL+3!
DIR(0	EOL+3*
DIROUT	EOL+1~
DIRUT	EOL+1~
DIWF	PTCMT+2~, PTCMT+15*
DIWL	PTCMT+2~, PTCMT+15*
DIWR	PTCMT+2~, PTCMT+15*
DLINE	EN+1~, PTDTL+1, PTDTL+2, PTDTL+3, PTDTL+4, PTDTL+5, PTDTL+6, PTDTL+7, PTDTL+8, PTDTL+9* , PTDTL+10, PTDTL+14, PTCMT+12, PTCMT+13, PTCMT+17*
DTOUT	EOL+1~, EOL+4
DUOUT	EOL+1~, EOL+4
EORMSG	EN+1~, EN+5*, EXIT+1
HDR	HEADER+1~, HEADER+8, HEADER+9, HEADER+12, HEADER+13, HEADER+14
IBCMDT	PTCMT+2~, PTCMT+9*, PTCMT+10, PTCMT+19
IBCMIEN	PTCMT+2~, PTCMT+10*, PTCMT+11, PTCMT+15
>> IBCNESPC("TYPE"	EN+8, EXIT+3!
IBCNT	EN+1~, PTDTL+14*
IBCOMP	EXIT+3!, HEADER+16, HEADER+17
IBDFN	EN+1~, EN+2, EN+19, EN+20, EN+22, PTHDR+2, PTHDR+3, PTHDR+6, PTDTL+2, PTDTL+3 , PTDTL+4, PTDTL+5, PTDTL+7, PTDTL+8, PTDTL+9, PTDTL+13, PTCMT+3, PTCMT+7
IBDOB	EN+1~, PTHDR+3, PTHDR+4, PTHDR+5
IBDT	EN+1~, EN+2, EN+18, EN+19, EN+20, EN+22, PTHDR+2, PTHDR+3, PTHDR+6, PTDTL+1 , PTDTL+2, PTDTL+3, PTDTL+4, PTDTL+5, PTDTL+7, PTDTL+8, PTDTL+9, PTDTL+13, PTCMT+3, PTCMT+7
IBEDT	EN+10*, EXIT+3!, HEADER+12
IBEIEN	EN+1~, EN+2, EN+22, PTDTL+2, PTDTL+3, PTDTL+4, PTDTL+5, PTDTL+7, PTDTL+8, PTDTL+9 , PTDTL+12, PTDTL+13
IBELG	EN+2*, EXIT+3!
IBLN	PTCMT+2~, PTCMT+15, PTCMT+16, PTCMT+17
IBPGC	EN+3, EXIT+2, EXIT+3!, HEADER+3, HEADER+6, HEADER+8
IBPXT	EN+3, EN+15, EN+18, EN+19, EN+20, EN+21, EN+22, EN+23, EN+28, EXIT+3! , EOL+4, HEADER+3, HEADER+5*, PTDTL+2, PTDTL+3, PTDTL+4, PTDTL+5, PTDTL+10, PTDTL+11, PTDTL+14 , PTDTL+16, PTCMT+4, PTCMT+5, PTCMT+6, PTCMT+9, PTCMT+13, PTCMT+16, PTCMT+19, LINE+1
IBPYR	EN+2*, EXIT+3!
IBRIEN	EN+2, EN+20, EN+22, EXIT+3!, PTHDR+2, PTHDR+3, PTHDR+6, PTDTL+2, PTDTL+3, PTDTL+4 , PTDTL+5, PTDTL+7, PTDTL+8, PTDTL+9, PTDTL+12, PTDTL+13, PTCMT+3, PTCMT+7
IBRVIEN	PTCMT+2~, PTCMT+7*, PTCMT+8, PTCMT+9, PTCMT+10, PTCMT+11, PTCMT+15, PTCMT+19
IBSDT	EN+10*, EXIT+3!, HEADER+12
IBSEQ	EN+1~, PTDTL+12*, PTDTL+13
IBSORT	EXIT+3!, HEADER+10, HEADER+11, PTHDR+2, PTHDR+3, PTHDR+6, PTDTL+1, PTDTL+2, PTDTL+3, PTDTL+4 , PTDTL+5, PTDTL+7, PTDTL+8, PTDTL+9, PTDTL+13, PTCMT+3, PTCMT+7
IBSTR1	EN+1~, PTDTL+13*
IBSTR1(	PTDTL+14
IBSTR1(""	PTDTL+14
IBURTE	EN+1~, PTDTL+11*, PTDTL+12, PTDTL+13
IENS	PTCMT+2~, PTCMT+11*, PTCMT+12
IOF	HEADER+7
IOM	CENTER+3
IOSL	EN+12, EN+13
IOST	EN+13
LENGTH	CENTER+2~, CENTER+3*, CENTER+4
LIN	EOL+1~, EOL+2*
LINE	LINE~, LINE+2, CENTER~, CENTER+3
MAXCNT	EN+12, EN+13, EXIT+3!, EOL+2, LINE+1
NONEMSG	EN+4*, EN+17, EXIT+3!
OFFSET	HEADER+1~, HEADER+8, HEADER+9, HEADER+13, HEADER+14, CENTER+2~, CENTER+3*, CENTER+4
REVSTAT	PTHDR+1~, PTHDR+6*, PTHDR+7
RIEN	EN+2*, EXIT+3!
SRT	HEADER+1~
TSTAMP	EN+7, EXIT+3!, HEADER+4, HEADER+8
TYPE	EN+8*, EN+9, EXIT+3!
U	PTHDR+6, PTCMT+15
WIDTH	EN+9*, EXIT+3!, HEADER+8, HEADER+13, PTHDR+8
X	PTCMT+2~, PTCMT+15*
>> ZTQUEUED	EXIT+2, HEADER+3, HEADER+5
>> ZTSTOP	EN+15, EN+18, EN+19, EN+20, EN+21, EN+22, EN+23, EN+28, HEADER+5*, PTDTL+2 , PTDTL+3, PTDTL+4, PTDTL+5, PTDTL+10, PTDTL+11, PTDTL+14, PTDTL+16, PTCMT+4, PTCMT+5, PTCMT+6 , PTCMT+9, PTCMT+13, PTCMT+16, PTCMT+19, LINE+1

Customize PDF page

Package: Integrated Billing