Routine: IBCNERPO1

Information

IBCNERPO1 ;AITC/CKB - PATIENT POLICY AUTOLOAD REPORT COMPILE ; 20-JAN-2026

Package	Total	Call Graph
Integrated Billing	3	$$FO^IBCNEUT1 EBSUMMARY^IBCNEUT2 $$DAT2^IBOUTL
VA FileMan	3	NOW^%DTC $$GET1^DIQ ^DIR
Kernel	2	$$S^%ZTLOAD ($$FMADD,$$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	IBCNERPO

Entry Points

Name	Comments	DBIA/ICR reference
EN(IBCNERPO)	; Entry point
ENX	; Exit
GETRESP(DATE,PYR,PAT,RTYPE)	; loop through the responses and compile report
COMPILE	; Compile Detail Report
PRINT(IBCNERPO)	; Entry point
PRINTX	;
GETACTIVE	; Get the Active policies from the POLICY array ; ACTIVE(GRPNUM)=DFN_U_GRPNUM_U_EFFDT_U_SOI_U_ELIG ; Loop through list of insurance (.POLICY) and keep only ACTIVE policies ; Only add 'Active' policies to the ACTIVE array
EOL	; display "end of page" message and set exit flag
HEADER	; Print the Report header for each page
LINE(LINE,IBOUT)	; Print line of data
EHEADER	; Print the Excel header
EHEADERX	;
PAUSE	; Pause for screen output.

External References

Name	Field # of Occurrence
NOW^%DTC	HEADER+9, EHEADER+2
$$S^%ZTLOAD	GETRESP+7, HEADER+4
$$GET1^DIQ	GETRESP+9, GETRESP+11, GETRESP+12, GETRESP+13, COMPILE+4, COMPILE+5, COMPILE+10, COMPILE+11, COMPILE+12, COMPILE+13 , COMPILE+14
^DIR	PAUSE+3
$$FO^IBCNEUT1	PRINT+25, PRINT+26, PRINT+31, PRINTX+4
EBSUMMARY^IBCNEUT2	GETRESP+16
$$DAT2^IBOUTL	HEADER+10, EHEADER+3
$$FMADD^XLFDT	EN+5
$$FMTE^XLFDT	COMPILE+19, PRINT+6, HEADER+11, EHEADER+5
$$NOW^XLFDT	PRINT+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Compiling report data ..." Line Location: EN+7
Function Call: WRITE	Prompt: "." Line Location: GETRESP+6
Function Call: WRITE	Prompt: ! Line Location: PRINT+23
Function Call: WRITE	Prompt: ! Line Location: PRINT+28
Function Call: WRITE	Prompt: !! Line Location: PRINT+33
Function Call: WRITE	Prompt: !,$P(DDATA,U,1,2)_U_$E(SSN,$L(SSN)-3,$L(SSN))_U_$P(DDATA,U,4,7) Line Location: PRINT+40
Function Call: WRITE	Prompt: ! Line Location: PRINTX+2
Function Call: WRITE	Prompt: EORMSG Line Location: PRINTX+3
Function Call: WRITE	Prompt: ! Line Location: EOL+2
Function Call: WRITE	Prompt: @IOF,! Line Location: HEADER+5
Function Call: WRITE	Prompt: !,HDR,?70,"Page: "_IBPGC Line Location: HEADER+15
Function Call: WRITE	Prompt: !,"Date Range: ",HDRDTR,! Line Location: HEADER+16
Function Call: WRITE	Prompt: !,HDR,?112,"Page: "_IBPGC Line Location: HEADER+20
Function Call: WRITE	Prompt: !,"Date Range: ",HDRDTR Line Location: HEADER+21
Function Call: WRITE	Prompt: !,"Sort By: ",$S(IBCNERPO("SORT")=2:"Date Autoloaded",1:"Patient Name") Line Location: HEADER+22
Function Call: WRITE	Prompt: !!,"Patient Name",?38,"DOB",?51,"SSN",?58,"Group Name",?81,"Group Number",?102,"Eff Date",?115,"Autoload Date" Line Location: HEADER+23
Function Call: WRITE	Prompt: !,$E(DASHES,1,35),?38,$E(DASHES,1,10),?51,$E(DASHES,1,4),?58,$E(DASHES,1,10),?81,$E(DASHES,1,12) Line Location: HEADER+24
Function Call: WRITE	Prompt: ?102,$E(DASHES,1,10),?115,$E(DASHES,1,13) Line Location: HEADER+25
Function Call: WRITE	Prompt: ! Line Location: LINE+2
Function Call: WRITE	Prompt: ?1 Condition for execution: IBOUT="R" Line Location: LINE+2
Function Call: WRITE	Prompt: LINE Line Location: LINE+2
Function Call: WRITE	Prompt: !,"Patient Policy Autoload Report^",IBHDT Line Location: EHEADER+4
Function Call: WRITE	Prompt: !,"Date Range: ",HDR Line Location: EHEADER+6
Function Call: WRITE	Prompt: !,"Patient Name^DOB^SSN^Group Name^Group Number^Effective Date^Autoload Date" Line Location: EHEADER+7
Routine Call	DIR Line Location: PAUSE+3

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
2.312	GET1^DIQ
^IBCN(365 - [#365]	GET1^DIQ
^IBCN(365.1 - [#365.1]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	GETRESP+39
^IBCN(365 - [#365]	EN+16, EN+17, EN+20, EN+22, GETRESP+4
^TMP($J	EN+9!, EN+25*, PRINT+18, PRINT+24, PRINT+29, PRINT+36, PRINT+37, PRINT+38

Label References

Name	Line Occurrences
COMPILE	GETRESP+39
EHEADER	PRINT+16
ENX	EN+17
EOL	PRINTX+5, HEADER+3
GETACTIVE	GETRESP+23
GETRESP	EN+23
HEADER	PRINT+16, LINE+1
LINE	PRINT+18, PRINT+27, PRINT+32, PRINT+49, PRINTX+4
PAUSE	PRINTX+3, EOL+3
PRINTX	PRINT+18, PRINT+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	HEADER+10, EHEADER+1~, EHEADER+3
ACTIVE	GETRESP+1~
ACTIVE(	GETRESP+35, GETACTIVE+9*
ACTIVE("Medic	are Part A" , GETRESP+26, GETRESP+28, are Part B" , GETRESP+27, GETRESP+28
AUTOLOAD	GETRESP+1~, COMPILE+4*, COMPILE+7, COMPILE+18, COMPILE+19
BDATE	EN+1~, EN+3*, EN+16
COUNT	PRINT+22~, PRINT+24*, PRINT+26
CRT	PRINT+1~, PRINT+12, PRINT+13, PRINTX+5, HEADER+3
DASHES	HEADER+1~, HEADER+7*, HEADER+24, HEADER+25
DATE	EN+1~, EN+16, EN+17, EN+20, EN+22, EN+23, GETRESP~, GETRESP+4, COMPILE+7
DDATA	PRINT+1~, PRINT+38*, PRINT+39, PRINT+40, PRINT+42, PRINT+43, PRINT+45, PRINT+46, PRINT+47, PRINT+48
DELTA	HEADER+1~
DIR	EOL+1~, PAUSE+1~, PAUSE+3!
DIR(0	PAUSE+3*
DIROUT	EOL+1~
DIRUT	EOL+1~, PAUSE+1~, PAUSE+3!
DLINE	PRINT+1~, PRINT+41, PRINT+42, PRINT+43, PRINT+44, PRINT+45, PRINT+46, PRINT+47, PRINT+48, PRINT+49
DOB	GETRESP+1~, COMPILE+12*, COMPILE+19
DTOUT	EOL+1~, PAUSE+1~, PAUSE+3!
DUOUT	EOL+1~, PAUSE+1~, PAUSE+3!
EDATE	EN+1~, EN+4, EN+5, EN+17
EFFDT	GETRESP+1~, COMPILE+14*, COMPILE+19
ELIG	GETRESP+1~, GETACTIVE+7*, GETACTIVE+8
EORMSG	PRINT+1~, PRINT+5*, PRINTX+3, PRINTX+4
FOUND	GETRESP+1~, GETRESP+38, GETRESP+39, COMPILE+9
GRP	GETRESP+1~, GETRESP+36*, COMPILE+7
GRPNAME	GETRESP+1~, COMPILE+5*, COMPILE+7, COMPILE+19
GRPNUM	GETRESP+1~, COMPILE+10, COMPILE+19, GETACTIVE+5, GETACTIVE+6, GETACTIVE+7, GETACTIVE+9
HDR	HEADER+1~, HEADER+14, HEADER+15, HEADER+19, HEADER+20, EHEADER+1~, EHEADER+5*, EHEADER+6
HDRDATE	HEADER+1~, HEADER+10*, HEADER+14, HEADER+19
HDRDTR	HEADER+1~, HEADER+11*, HEADER+16, HEADER+21
HDRPG	HEADER+1~
I	EN+12~, HEADER+7, HEADER+8*
IBCNERPO	EN~, PRINT~
IBCNERPO("BEGDT"	EN+3, HEADER+11, EHEADER+5
IBCNERPO("ENDDT"	EN+4, HEADER+11, EHEADER+5
IBCNERPO("IBOUT"	COMPILE+18, PRINT+8
IBCNERPO("SORT"	COMPILE+18, HEADER+22
IBCNERPO("TYPE"	EN+6, PRINT+7
IBHDT	EHEADER+1~, EHEADER+3*, EHEADER+4
IBOUT	EN+7, GETRESP+1~, PRINT+8, PRINT+11, PRINT+16, PRINT+18, PRINT+27, PRINT+32, PRINT+40, PRINT+49 , PRINTX+3, PRINTX+4, LINE~, LINE+1, LINE+2
IBPGC	PRINT+1~, PRINT+3, PRINTX+5, HEADER+3, HEADER+6, HEADER+15, HEADER+20
IBPXT	PRINT+1~, PRINT+3, PRINT+36, PRINTX+1, HEADER+3, HEADER+4, LINE+1, PAUSE+3*
ICT	PRINT+1~, PRINT+37*, PRINT+38
IENS2	GETRESP+1~, COMPILE+2*, COMPILE+3, COMPILE+11, COMPILE+12, COMPILE+13
IENS312	GETRESP+1~, COMPILE+3*, COMPILE+4, COMPILE+5, COMPILE+10, COMPILE+14
IENS3651	GETRESP+1~, GETRESP+12*, GETRESP+13
IIEN	GETRESP+2~, GETRESP+11, GETRESP+39, COMPILE+3
INS	GETRESP+2~
IOF	HEADER+5
IOSL	PRINT+12, PRINT+13
IOST	EN+7, PRINT+13, PAUSE+2
LIN	EOL+1~, EOL+2*
LINE	LINE~, LINE+2
MAXCNT	PRINT+1~, PRINT+12, PRINT+13, EOL+2, LINE+1
NONEMSG	PRINT+1~, PRINT+4*, PRINT+18
NPROC	PRINT+1~
OFFSET	HEADER+1~
PAT	EN+18~, EN+22*, EN+23, GETRESP~, GETRESP+4, GETRESP+16, GETRESP+39, COMPILE+2
PATNAME	GETRESP+2~, COMPILE+11*, COMPILE+17, COMPILE+18, COMPILE+19
POL	GETRESP+2~, GETRESP+35*, GETRESP+36
POLCT	GETRESP+2~, GETACTIVE+4*, GETACTIVE+5, GETACTIVE+7, GETACTIVE+9
POLICY	GETRESP+2~, GETRESP+16
POLICY(	GETACTIVE+4, GETACTIVE+5, GETACTIVE+7, GETACTIVE+9
POLICY("MISSING_EFFDT"	GETRESP+21
POLICY("OHI"	GETRESP+19
POLICY(0	GETRESP+17
POLICY(1	GETRESP+18
PTYPE	EN+1~, GETRESP+26, GETRESP+27, GETRESP+28*, GETRESP+31
PYR	EN+18~, EN+20*, EN+22, EN+23, GETRESP~, GETRESP+4
REC	COMPILE+1~, COMPILE+19*, COMPILE+20
RIEN	GETRESP+2~, GETRESP+4*, GETRESP+9, GETRESP+11, GETRESP+12, GETRESP+16
RPCTR	EN+1~, EN+15, COMPILE+16, COMPILE+20
RPDATA	EN+10!, EN+25, GETRESP+30*
RPDATA(	EN+12, GETRESP+31, COMPILE+20*
RTYPE	EN+1~, EN+6*, EN+12, EN+23, GETRESP~, GETRESP+29
SLINE	PRINT+22~, PRINT+25, PRINT+26, PRINT+27
SOI	EN+1~, GETRESP+2~, GETRESP+13*, GETRESP+16
SOIBA	EN+1~
SORT	EN+1~
SORT1	GETRESP+2~, COMPILE+17, COMPILE+18, COMPILE+20
SORT2	GETRESP+2~
SPACES	HEADER+1~, HEADER+8*, HEADER+19
SRT1	PRINT+1~, PRINT+15, PRINT+23, PRINT+24, PRINT+25, PRINT+36*, PRINT+37, PRINT+38
SSN	COMPILE+13, COMPILE+19, PRINT+1~, PRINT+39, PRINT+40, PRINT+44
SSNLEN	PRINT+1~, PRINT+44*
TLINE	PRINT+22~, PRINT+30, PRINT+31, PRINT+32
TOTAL	PRINT+22~, PRINT+29*, PRINT+31
TOTMES	EN+1~, EN+15, GETRESP+5, GETRESP+6, GETRESP+7
TSTAMP	PRINT+1~, PRINT+6*
TYPE	GETRESP+2~, PRINT+7*, PRINT+9, PRINT+18, PRINT+21, HEADER+13, HEADER+18
U	COMPILE+19, PRINT+11, PRINT+39, PRINT+40, PRINT+42, PRINT+43, PRINT+45, PRINT+46, PRINT+47, PRINT+48 , GETACTIVE+7
WIDTH	PRINT+1~, PRINT+9*
X	PRINT+1~
Y	PRINT+1~
>> ZTQUEUED	EN+7, GETRESP+6, GETRESP+7, PRINTX+5, HEADER+3, HEADER+4
>> ZTSTOP	EN+17, EN+22, GETRESP+4, GETRESP+7, PRINT+36, HEADER+4, LINE+1

Customize PDF page

Package: Integrated Billing