Routine: IBCNEPY

Package	Total	Call Graph
VA FileMan	4	EN^DDIOL $$FIND1^DIC ^DIE ^DIR
Integrated Billing	3	$$FO^IBCNEUT1 $$PYRAPP^IBCNEUT5 ($$FILTER,$$PYRDEACT,PAYER)^IBCNINSU
Kernel	2	($$FMTE,$$NOW)^XLFDT $$UP^XLFSTR

Package	Total	Caller Graph
Integrated Billing	2	APPLICATION IBCNE PAYER EDIT

Name	Comments	DBIA/ICR reference
EN	; Main entry point ; Input: n/a ; Output: Modifies entries in the Payer File (#365.12)
ENX	; EN exit point
CLRSCRN	;
EDIT(PIEN)	; Modify Payer application settings -/vd-IB2687 - Changed the variable IEN to PIEN ; Input: IEN - key to Payer File (#365.12) ; Output: Modifies entries in the Payer File
APPDSPLY	; Display Application Data
APPEDIT	; Edit the Payer Application fields that are editable.
PAYER()	; Select Payer - File #365.12 ; Init vars
PAYST	; start of payer questions
PAYNAM	;ask name
PAYX	; payer lookup exit point
PSET	;set name into tmp array
PAYD(IBARY,IBO,IBLM)	; display up to 5 payer's for selection at a time. ; IBARY - 5 items to display ; IBO - are there more to display
HLPBEG	; display help message
HLPPN	; display help message for payer name
PAYLST	; list out payers in payer 'BB' index in groups of 20
HELP1	;This is the help text for RECEIVE IIU DATA (#365.121,5.01) ICR #: 10142

Name	Field # of Occurrence
EN^DDIOL	HELP1+11
$$FIND1^DIC	EDIT+11
^DIE	APPEDIT+8, APPEDIT+14
^DIR	EDIT+105, PAYST+11, PAYNAM+7, PAYD+17, PAYLST+11
$$FO^IBCNEUT1	EDIT+27, EDIT+28, EDIT+32, EDIT+33, EDIT+34, EDIT+35, EDIT+96, EDIT+97, APPDSPLY+3, APPDSPLY+4 , APPDSPLY+10, APPDSPLY+14, APPDSPLY+20, APPDSPLY+24, APPDSPLY+30, APPDSPLY+34, APPDSPLY+38, APPDSPLY+40
$$PYRAPP^IBCNEUT5	EDIT+100, EDIT+101
$$FILTER^IBCNINSU	PAYNAM+22
$$PYRDEACT^IBCNINSU	EDIT+94
PAYER^IBCNINSU	EDIT+109, EDIT+112
$$FMTE^XLFDT	EDIT+35, EDIT+97
$$NOW^XLFDT	APPEDIT+5
$$UP^XLFSTR	PAYST+12, PAYNAM+11, PAYNAM+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: CLRSCRN+1
Function Call: WRITE	Prompt: !?35,"Payer Edit" Line Location: CLRSCRN+2
Function Call: WRITE	Prompt: !!,"This option displays the data in the Payer file for a given payer. You" Line Location: CLRSCRN+4
Function Call: WRITE	Prompt: !,"may only edit site controlled fields and most fields are not site controlled." Line Location: CLRSCRN+5
Function Call: WRITE	Prompt: !,"Site controlled fields cannot be edited for a deactivated payer." Line Location: CLRSCRN+6
Function Call: WRITE	Prompt: !!,"Payer: "_$P(IBDATA,U,1) Line Location: EDIT+25
Function Call: WRITE	Prompt: !!,?PNCTR,"Payer: ",$P(IBDATA,U,1),! Line Location: EDIT+26
Function Call: WRITE	Prompt: !,$$FO^IBCNEUT1("VA National ID: ",LN,"R"),$P(IBDATA,U,2) Line Location: EDIT+27
Function Call: WRITE	Prompt: !,$$FO^IBCNEUT1("CMS National ID: ",LN,"R"),$P(IBDATA,U,3) Line Location: EDIT+28
Function Call: WRITE	Prompt: !,$$FO^IBCNEUT1("Blue Payer: ",LN,"R"),$S(+ISBLUE:"YES",1:"NO") Line Location: EDIT+32
Function Call: WRITE	Prompt: !,$$FO^IBCNEUT1("Inst Electronic Bill ID: ",LN,"R"),$P(IBDATA,U,6) Line Location: EDIT+33
Function Call: WRITE	Prompt: !,$$FO^IBCNEUT1("Prof Electronic Bill ID: ",LN,"R"),$P(IBDATA,U,5) Line Location: EDIT+34
Function Call: WRITE	Prompt: !,$$FO^IBCNEUT1("Date/Time Created: ",LN,"R"),$$FMTE^XLFDT($P(IBDATA,U,4),"5Z") Line Location: EDIT+35
Function Call: WRITE	Prompt: !!,"There is no eIV payer application defined for this Payer." Line Location: EDIT+43
Function Call: WRITE	Prompt: ! Line Location: EDIT+44
Function Call: WRITE	Prompt: ! Line Location: EDIT+44
Function Call: WRITE	Prompt: !,"eIV Payer Application not found - ERROR!" Line Location: EDIT+64
Function Call: WRITE	Prompt: !,$$FO^IBCNEUT1("Deactivated: ",LN,"R"),$S(+DEACT:"YES",1:"NO") Line Location: EDIT+78
Function Call: WRITE	Prompt: !,$$FO^IBCNEUT1("Deactivation Date/Time: ",LN,"R"),$S(+$P(DEACT,U,2):$$FMTE^XLFDT($P(DEACT,U,2),"5Z"),1:"") Line Location: EDIT+79
Function Call: WRITE	Prompt: !,$$FO^IBCNEUT1("Locally Enabled: ",LN,"R"),$S(+$P(IBNODE,U,3):"Enabled",1:"Not Enabled") Line Location: EDIT+81
Function Call: WRITE	Prompt: !,$$FO^IBCNEUT1("Deactivated: ",LN,"R"),$S(+DEACT:"YES",1:"NO") Line Location: EDIT+96
Function Call: WRITE	Prompt: !,$$FO^IBCNEUT1("Deactivation Date/Time: ",LN,"R"),$S(+$P(DEACT,U,2):$$FMTE^XLFDT($P(DEACT,U,2),"5Z"),1:"") Line Location: EDIT+97
Function Call: WRITE	Prompt: !!,"There are no eIV or IIU payer applications defined for this Payer." Line Location: EDIT+104
Function Call: WRITE	Prompt: ! Line Location: EDIT+105
Function Call: WRITE	Prompt: ! Line Location: EDIT+105
Function Call: WRITE	Prompt: !!,$$FO^IBCNEUT1("Payer Application: ",LNLFT,"R"),$S(+IENEIV:"eIV",1:"IIU") Line Location: APPDSPLY+3
Function Call: WRITE	Prompt: $$FO^IBCNEUT1("Payer Application: ",(LNRHT-OFFSET),"R"),"IIU" Line Location: APPDSPLY+4
Function Call: WRITE	Prompt: !,$E(DASHES,1,38) Line Location: APPDSPLY+6
Function Call: WRITE	Prompt: ?40,$E(DASHES,1,35) Line Location: APPDSPLY+6
Function Call: WRITE	Prompt: ! Line Location: APPDSPLY+7
Function Call: WRITE	Prompt: $$FO^IBCNEUT1("Nationally Enabled: ",LNLFT,"R") Line Location: APPDSPLY+10
Function Call: WRITE	Prompt: $G(ARRAYEIV(365.121,EIVIENS,.02,"E")) Line Location: APPDSPLY+11
Function Call: WRITE	Prompt: $$FO^IBCNEUT1("Nationally Enabled: ",(LNRHT-OFFSET),"R") Line Location: APPDSPLY+14
Function Call: WRITE	Prompt: $G(ARRAYIIU(365.121,IIUIENS,.02,"E")) Line Location: APPDSPLY+15
Function Call: WRITE	Prompt: ! Line Location: APPDSPLY+17
Function Call: WRITE	Prompt: $$FO^IBCNEUT1("Future Service Days: ",LNLFT,"R") Line Location: APPDSPLY+20
Function Call: WRITE	Prompt: $G(ARRAYEIV(365.121,EIVIENS,4.03,"E")) Line Location: APPDSPLY+21
Function Call: WRITE	Prompt: $$FO^IBCNEUT1("IIU Locally Enabled: ",(LNRHT-OFFSET),"R") Line Location: APPDSPLY+24
Function Call: WRITE	Prompt: $G(ARRAYIIU(365.121,IIUIENS,.03,"E")) Line Location: APPDSPLY+25
Function Call: WRITE	Prompt: ! Line Location: APPDSPLY+27
Function Call: WRITE	Prompt: $$FO^IBCNEUT1("Past Service Days: ",LNLFT,"R") Line Location: APPDSPLY+30
Function Call: WRITE	Prompt: $G(ARRAYEIV(365.121,EIVIENS,4.04,"E")) Line Location: APPDSPLY+31
Function Call: WRITE	Prompt: $$FO^IBCNEUT1("Receive IIU Data: ",(LNRHT-OFFSET),"R") Line Location: APPDSPLY+34
Function Call: WRITE	Prompt: $G(ARRAYIIU(365.121,IIUIENS,5.01,"E")) Line Location: APPDSPLY+35
Function Call: WRITE	Prompt: !,$$FO^IBCNEUT1("Auto-update Pt. Insurance: ",LNLFT,"R") Line Location: APPDSPLY+38
Function Call: WRITE	Prompt: $G(ARRAYEIV(365.121,EIVIENS,4.01,"E")) Line Location: APPDSPLY+39
Function Call: WRITE	Prompt: !,$$FO^IBCNEUT1("eIV Locally Enabled: ",LNLFT,"R") Line Location: APPDSPLY+40
Function Call: WRITE	Prompt: $G(ARRAYEIV(365.121,EIVIENS,.03,"E")) Line Location: APPDSPLY+41
Function Call: WRITE	Prompt: ! Line Location: APPDSPLY+43
Function Call: WRITE	Prompt: !! Line Location: PAYER+4
Function Call: WRITE	Prompt: " ??" Line Location: PAYST+14
Function Call: WRITE	Prompt: ! Line Location: PAYNAM+2
Function Call: WRITE	Prompt: " No payer names matching criteria found" Line Location: PAYNAM+26
Function Call: WRITE	Prompt: !,?6,IBA,?13,IBM Line Location: PAYD+12
Function Call: WRITE	Prompt: !,"Select the type of filter to narrow down your list of available Payers:" Line Location: HLPBEG+1
Function Call: WRITE	Prompt: !," Begins with - Displays Payer(s) that begin with the specified text" Line Location: HLPBEG+2
Function Call: WRITE	Prompt: !," Contains - Displays Payer(s) that contain the specified text" Line Location: HLPBEG+3
Function Call: WRITE	Prompt: !," List - Displays listing of all Payers" Line Location: HLPBEG+4
Function Call: WRITE	Prompt: !,"Enter the Payer's name that you want to Begin With." Line Location: HLPPN+1
Function Call: WRITE	Prompt: !,"Enter the string that you want the Payer's name to Contain." Line Location: HLPPN+2
Function Call: WRITE	Prompt: !,"Enter Payer Name" Line Location: HLPPN+3
Function Call: WRITE	Prompt: !,"CHOOSE FROM:" Line Location: PAYLST+3
Function Call: WRITE	Prompt: !,IBA Line Location: PAYLST+9
Function Call: WRITE	Prompt: !! Line Location: PAYLST+13
Routine Call	DIC Line Location: EDIT+11
Routine Call	DIE Line Location: APPEDIT+8 APPEDIT+14
Routine Call	DIR Line Location: EDIT+105 PAYST+11 PAYNAM+7 PAYD+17 PAYLST+11

FileNo	Call Tags
^IBE(365.13 - [#365.13]	FIND1^DIC

Name	Line Occurrences (* Changed, ! Killed)
^IBE(365.12 - [#365.12]	EDIT+19, PAYNAM+18, PAYNAM+19, PAYLST+7, PAYLST+8

Name	Line Occurrences
$$PAYD	PAYNAM+32, PAYNAM+38
$$PAYER	EN+8
APPDSPLY	EDIT+116
APPEDIT	EDIT+118
CLRSCRN	EN+7, EDIT+21
EDIT	EN+8
PAYLST	PAYST+16
PAYNAM	PAYNAM+25, PAYNAM+31, PAYNAM+40
PAYST	PAYST+14, PAYST+16, PAYNAM+9, PAYNAM+31, PAYNAM+39
PAYX	PAYST+15, PAYNAM+30, PAYNAM+31, PAYNAM+41
PSET	PAYNAM+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARR	HELP1+1~, HELP1+11
ARR(1	HELP1+2, HELP1+3
ARR(2	HELP1+4, HELP1+5
ARR(3	HELP1+6, HELP1+7
ARR(4	HELP1+8, HELP1+9
ARR(5	HELP1+10*
ARRAYEIV	EDIT+7~, EDIT+107!, EDIT+109
ARRAYEIV(	EDIT+110, APPDSPLY+11, APPDSPLY+12, APPDSPLY+21, APPDSPLY+22, APPDSPLY+31, APPDSPLY+32, APPDSPLY+39, APPDSPLY+41
ARRAYIIU	EDIT+7~, EDIT+107!, EDIT+112
ARRAYIIU(	EDIT+113, APPDSPLY+15, APPDSPLY+25, APPDSPLY+35
DA	APPEDIT+1~, APPEDIT+7, APPEDIT+8!, APPEDIT+13, APPEDIT+14!
DA(1	APPEDIT+7, APPEDIT+13
DASHES	APPDSPLY+1~, APPDSPLY+2*, APPDSPLY+6
DEACT	EDIT+7~, EDIT+94*, EDIT+95, EDIT+96, EDIT+97, EDIT+117
DIC	PAYER+2~
DIE	APPEDIT+1~, APPEDIT+6, APPEDIT+8!, APPEDIT+12, APPEDIT+14!
DIR	EDIT+105!, APPEDIT+1~, PAYER+15~, PAYST+1!, PAYNAM+1!, PAYD+5~, PAYLST+2~, PAYLST+11!
DIR("?"	PAYST+10, PAYNAM+5, PAYNAM+6, PAYD+13*
DIR("??"	PAYST+10, PAYNAM+6
DIR("A"	PAYST+4, PAYST+5, PAYST+6, PAYST+7, PAYST+8, PAYNAM+4, PAYD+14, PAYD+16
DIR("B"	PAYST+9*
DIR(0	EDIT+105, PAYST+3, PAYNAM+3, PAYD+7, PAYLST+11*
DIROUT	PAYER+15~, PAYST+1!, PAYNAM+1!, PAYD+5~
DIRUT	APPEDIT+1~, PAYER+15~, PAYST+1!, PAYNAM+1!, PAYD+5~
DR	APPEDIT+1~, APPEDIT+4, APPEDIT+5, APPEDIT+8!, APPEDIT+11*, APPEDIT+14!
DTOUT	APPEDIT+1~, PAYER+2~, PAYER+15~, PAYST+1!, PAYNAM+1!, PAYLST+2~, PAYLST+12
DUOUT	PAYER+2~, PAYER+15~, PAYST+1!, PAYNAM+1!, PAYLST+2~, PAYLST+12
DUZ	APPEDIT+5
EIVIENS	EDIT+7~, EDIT+110*, APPDSPLY+11, APPDSPLY+12, APPDSPLY+21, APPDSPLY+22, APPDSPLY+31, APPDSPLY+32, APPDSPLY+39, APPDSPLY+41
FDA	APPEDIT+1~
FILTER	PAYER+15~, PAYST+2, PAYST+13, PAYST+14, PAYST+15, PAYST+16, PAYNAM+22, HLPPN+1, HLPPN+2
IBA	PAYER+15~, PAYNAM+21, PSET+3, PAYD+5~, PAYD+7, PAYD+8, PAYD+12, PAYLST+2~, PAYLST+4, PAYLST+7 , PAYLST+8, PAYLST+9
IBARY	PAYD~
IBARY(	PAYD+7, PAYD+8
IBARY(0	PAYD+4
IBB	PAYER+15~, PAYNAM+21, PAYNAM+22, PAYD+5~, PAYLST+2~, PAYLST+8
IBC	PSET+1~, PSET+2, PSET+3, PAYLST+2~, PAYLST+4, PAYLST+8*, PAYLST+10
IBCT	PAYER+15~, PAYNAM+27*, PAYNAM+29, PAYNAM+31, PAYNAM+32, PAYNAM+34, PAYNAM+36, PAYNAM+37
IBD	PAYER+15~, PAYNAM+35, PAYNAM+36, PSET+1~, PAYD+5~, PAYD+8, PAYD+11
IBDATA	EDIT+7~, EDIT+19*, EDIT+24, EDIT+25, EDIT+26, EDIT+27, EDIT+28, EDIT+31, EDIT+33, EDIT+34 , EDIT+35
IBFND	PAYER+15~, PAYST+15, PAYNAM+8, PAYNAM+17, PAYNAM+25, PAYNAM+27, PAYNAM+29, PAYNAM+30, PAYNAM+31, PAYNAM+32* , PAYNAM+34, PAYNAM+35, PAYNAM+38, PAYNAM+39, PAYNAM+40, PAYX+3, PAYX+4, PAYD+18, PAYD+19*, PAYD+20
IBI	PAYER+15~, PAYNAM+34*
IBJ	PAYER+15~, PAYNAM+34*, PAYNAM+36
IBK	PAYER+15~, PAYNAM+32, PAYNAM+33, PAYNAM+34*, PAYNAM+35, PAYNAM+36, PAYNAM+37
IBL	PAYER+15~, PAYNAM+36*, PAYNAM+37, PAYNAM+38
IBLKNM	PAYER+15~, PAYNAM+11*
IBLKUNM	PAYER+15~, PAYNAM+11*, PAYNAM+22
IBLM	PAYNAM+37*, PAYNAM+38, PAYD~, PAYD+7
IBM	PAYD+5~, PAYD+11*, PAYD+12
IBN	PAYER+15~, PAYNAM+21*, PSET+3
IBNMA	PAYER+15~, PAYNAM+17, PAYNAM+18, PAYNAM+19, PAYNAM+21
IBNML	PAYER+16~, PAYNAM+11*
IBNMR	PAYER+16~, PAYNAM+17, PAYNAM+19, PAYNAM+21
IBO	PAYD~, PAYD+15, PAYD+16
IBOK	PAYNAM+15, PAYNAM+22, PAYNAM+23, PAYLST+2~, PAYLST+7, PAYLST+8, PAYLST+12
IBR	PAYER+16~, PAYNAM+27, PAYNAM+28, PAYNAM+34
IBTMPA	PAYER+16~, PAYNAM+28!, PAYNAM+31*, PAYNAM+32, PAYNAM+34!, PAYNAM+38
IBTMPA(	PAYNAM+35*
IBTMPA(0	PAYNAM+31!
IBTMPFIL	PAYER+16~, PAYER+17*, PAYNAM+13, PAYNAM+15, PAYNAM+25, PAYNAM+27, PAYNAM+29, PAYNAM+31, PAYNAM+35, PAYX+1 , PSET+2, PSET+3, PAYD+19
IBTN	PAYER+16~, PAYNAM+27, PAYNAM+28, PAYNAM+31
IENEIV	EDIT+7~, EDIT+11, EDIT+100, EDIT+103, EDIT+108, EDIT+114, APPDSPLY+3, APPDSPLY+4, APPDSPLY+6, APPDSPLY+9 , APPDSPLY+19, APPDSPLY+29, APPDSPLY+37, APPEDIT+3, APPEDIT+7
IENIIU	EDIT+7~, EDIT+11, EDIT+101, EDIT+103, EDIT+111, APPDSPLY+4, APPDSPLY+6, APPDSPLY+13, APPDSPLY+23, APPDSPLY+33 , APPEDIT+10, APPEDIT+13
IIUIENS	EDIT+7~, EDIT+113*, APPDSPLY+15, APPDSPLY+25, APPDSPLY+35
IOF	CLRSCRN+1
ISBLUE	EDIT+7~, EDIT+31*, EDIT+32
LN	EDIT+7~, EDIT+12*, EDIT+27, EDIT+28, EDIT+32, EDIT+33, EDIT+34, EDIT+35, EDIT+96, EDIT+97
LNLFT	EDIT+7~, EDIT+13*, EDIT+114, APPDSPLY+3, APPDSPLY+10, APPDSPLY+20, APPDSPLY+30, APPDSPLY+38, APPDSPLY+40
LNRHT	EDIT+7~, EDIT+13, EDIT+114, APPDSPLY+4, APPDSPLY+14, APPDSPLY+24, APPDSPLY+34
OFFSET	APPDSPLY+1~, APPDSPLY+4, APPDSPLY+8, APPDSPLY+12, APPDSPLY+14, APPDSPLY+18, APPDSPLY+22, APPDSPLY+24, APPDSPLY+28, APPDSPLY+32* , APPDSPLY+34
OPTOUT	APPEDIT+1~, APPEDIT+2, APPEDIT+3, APPEDIT+8, APPEDIT+14*
PIEN	EDIT~, EDIT+19, EDIT+94, EDIT+100, EDIT+101, EDIT+109, EDIT+112, APPEDIT+6, APPEDIT+7, APPEDIT+12 , APPEDIT+13
PNCTR	EDIT+23~, EDIT+26*
PNLEN	EDIT+23~, EDIT+24*, EDIT+25, EDIT+26
PYRIEN	EN+5~, EN+8*
U	EDIT+24, EDIT+25, EDIT+26, EDIT+27, EDIT+28, EDIT+31, EDIT+33, EDIT+34, EDIT+35, EDIT+97 , PAYST+14, PAYNAM+9, PAYNAM+22, PAYNAM+29, PAYNAM+31, PAYNAM+34, PAYNAM+39, PAYX+3, PSET+3, PAYD+11 , PAYD+18, PAYD+19
X	APPEDIT+1~, PAYER+2~, PAYD+5~, PAYLST+2~
Y	APPEDIT+1~, APPEDIT+8, APPEDIT+14, PAYER+2~, PAYST+12*, PAYST+13, PAYST+14, PAYNAM+9, PAYNAM+11, PAYD+5~ , PAYD+18, PAYD+19, PAYLST+2~

Customize PDF page

Package: Integrated Billing

Routine: IBCNEPY

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: