Routine: IBCNEPY

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

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
HELP1	;This is the help text for RECEIVE IIU DATA (#365.121,5.01) ICR #: 10142

Name	Field # of Occurrence
EN^DDIOL	HELP1+11
^DIC	PAYER+10
$$FIND1^DIC	EDIT+10
^DIE	APPEDIT+8, APPEDIT+14
^DIR	EDIT+96
$$FO^IBCNEUT1	EDIT+21, EDIT+22, EDIT+23, EDIT+24, EDIT+25, EDIT+26, EDIT+87, EDIT+88, APPDSPLY+3, APPDSPLY+4 , APPDSPLY+10, APPDSPLY+14, APPDSPLY+20, APPDSPLY+24, APPDSPLY+30, APPDSPLY+34, APPDSPLY+38, APPDSPLY+40, PAYER+6
$$PYRAPP^IBCNEUT5	EDIT+91, EDIT+92
$$PYRDEACT^IBCNINSU	EDIT+85
PAYER^IBCNINSU	EDIT+100, EDIT+103
$$FMTE^XLFDT	EDIT+26, EDIT+88
$$NOW^XLFDT	APPEDIT+5

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: !!,?1,"This option displays the data in the Payer file for a given payer. You" Line Location: CLRSCRN+4
Function Call: WRITE	Prompt: !?1,"may only edit site controlled fields and most fields are not site controlled." Line Location: CLRSCRN+5
Function Call: WRITE	Prompt: !?1,"Site controlled fields cannot be edited for a deactivated payer." Line Location: CLRSCRN+6
Function Call: WRITE	Prompt: !!,$$FO^IBCNEUT1("Payer Name: ",LN,"R"),$P(IBDATA,U,1) Line Location: EDIT+21
Function Call: WRITE	Prompt: !,$$FO^IBCNEUT1("VA National ID: ",LN,"R"),$P(IBDATA,U,2) Line Location: EDIT+22
Function Call: WRITE	Prompt: !,$$FO^IBCNEUT1("CMS National ID: ",LN,"R"),$P(IBDATA,U,3) Line Location: EDIT+23
Function Call: WRITE	Prompt: !,$$FO^IBCNEUT1("Inst Electronic Bill ID: ",LN,"R"),$P(IBDATA,U,6) Line Location: EDIT+24
Function Call: WRITE	Prompt: !,$$FO^IBCNEUT1("Prof Electronic Bill ID: ",LN,"R"),$P(IBDATA,U,5) Line Location: EDIT+25
Function Call: WRITE	Prompt: !,$$FO^IBCNEUT1("Date/Time Created: ",LN,"R"),$$FMTE^XLFDT($P(IBDATA,U,4),"5Z") Line Location: EDIT+26
Function Call: WRITE	Prompt: !!,"There is no eIV payer application defined for this Payer." Line Location: EDIT+34
Function Call: WRITE	Prompt: ! Line Location: EDIT+35
Function Call: WRITE	Prompt: ! Line Location: EDIT+35
Function Call: WRITE	Prompt: !,"eIV Payer Application not found - ERROR!" Line Location: EDIT+55
Function Call: WRITE	Prompt: !,$$FO^IBCNEUT1("Deactivated: ",LN,"R"),$S(+DEACT:"YES",1:"NO") Line Location: EDIT+69
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+70
Function Call: WRITE	Prompt: !,$$FO^IBCNEUT1("Locally Enabled: ",LN,"R"),$S(+$P(IBNODE,U,3):"Enabled",1:"Not Enabled") Line Location: EDIT+72
Function Call: WRITE	Prompt: !,$$FO^IBCNEUT1("Deactivated: ",LN,"R"),$S(+DEACT:"YES",1:"NO") Line Location: EDIT+87
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+88
Function Call: WRITE	Prompt: !!,"There are no eIV or IIU payer applications defined for this Payer." Line Location: EDIT+95
Function Call: WRITE	Prompt: ! Line Location: EDIT+96
Function Call: WRITE	Prompt: ! Line Location: EDIT+96
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
Routine Call	DIC Line Location: PAYER+10
Routine Call	DIC Line Location: EDIT+10
Routine Call	DIE Line Location: APPEDIT+8 APPEDIT+14
Routine Call	DIR Line Location: EDIT+96

FileNo	Call Tags
^IBE(365.12 - [#365.12]	Classic Fileman Calls
^IBE(365.13 - [#365.13]	FIND1^DIC

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

Name	Line Occurrences
$$PAYER	EN+8
APPDSPLY	EDIT+107
APPEDIT	EDIT+109
CLRSCRN	EN+7, EDIT+20
EDIT	EN+8

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+6~, EDIT+98!, EDIT+100
ARRAYEIV(	EDIT+101, APPDSPLY+11, APPDSPLY+12, APPDSPLY+21, APPDSPLY+22, APPDSPLY+31, APPDSPLY+32, APPDSPLY+39, APPDSPLY+41
ARRAYIIU	EDIT+6~, EDIT+98!, EDIT+103
ARRAYIIU(	EDIT+104, 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+6~, EDIT+85*, EDIT+86, EDIT+87, EDIT+88, EDIT+108
DIC	PAYER+2~, PAYER+9*
DIC("A"	PAYER+6*
DIC("S"	PAYER+8*
DIC(0	PAYER+5*
DIE	APPEDIT+1~, APPEDIT+6, APPEDIT+8!, APPEDIT+12, APPEDIT+14!
DIR	EDIT+96!, APPEDIT+1~
DIR(0	EDIT+96*
DIRUT	APPEDIT+1~
DR	APPEDIT+1~, APPEDIT+4, APPEDIT+5, APPEDIT+8!, APPEDIT+11*, APPEDIT+14!
DTOUT	APPEDIT+1~, PAYER+2~, PAYER+11
DUOUT	PAYER+2~, PAYER+11
DUZ	APPEDIT+5
EIVIENS	EDIT+6~, EDIT+101*, APPDSPLY+11, APPDSPLY+12, APPDSPLY+21, APPDSPLY+22, APPDSPLY+31, APPDSPLY+32, APPDSPLY+39, APPDSPLY+41
FDA	APPEDIT+1~
IBDATA	EDIT+6~, EDIT+18*, EDIT+21, EDIT+22, EDIT+23, EDIT+24, EDIT+25, EDIT+26
IENEIV	EDIT+6~, EDIT+10, EDIT+91, EDIT+94, EDIT+99, EDIT+105, APPDSPLY+3, APPDSPLY+4, APPDSPLY+6, APPDSPLY+9 , APPDSPLY+19, APPDSPLY+29, APPDSPLY+37, APPEDIT+3, APPEDIT+7
IENIIU	EDIT+6~, EDIT+10, EDIT+92, EDIT+94, EDIT+102, APPDSPLY+4, APPDSPLY+6, APPDSPLY+13, APPDSPLY+23, APPDSPLY+33 , APPEDIT+10, APPEDIT+13
IIUIENS	EDIT+6~, EDIT+104*, APPDSPLY+15, APPDSPLY+25, APPDSPLY+35
IOF	CLRSCRN+1
LN	EDIT+6~, EDIT+11*, EDIT+21, EDIT+22, EDIT+23, EDIT+24, EDIT+25, EDIT+26, EDIT+87, EDIT+88
LNLFT	EDIT+6~, EDIT+12*, EDIT+105, APPDSPLY+3, APPDSPLY+10, APPDSPLY+20, APPDSPLY+30, APPDSPLY+38, APPDSPLY+40
LNRHT	EDIT+6~, EDIT+12, EDIT+105, 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+18, EDIT+85, EDIT+91, EDIT+92, EDIT+100, EDIT+103, APPEDIT+6, APPEDIT+7, APPEDIT+12 , APPEDIT+13
PYRIEN	EN+5~, EN+8*
U	EDIT+21, EDIT+22, EDIT+23, EDIT+24, EDIT+25, EDIT+26, EDIT+88, PAYER+13
X	APPEDIT+1~, PAYER+2~
Y	APPEDIT+1~, APPEDIT+8, APPEDIT+14, PAYER+2~, PAYER+11*, PAYER+13

Customize PDF page

Package: Integrated Billing

Routine: IBCNEPY

Information

Source Information

Call Graph

Call Graph Total: 8

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: