Routine: IBCEP8C

Package	Total	Call Graph
VA FileMan	5	NOW^%DTC $$FIND1^DIC FILE^DICN (FILE,UPDATE,VALS)^DIE ($$GET1,GETS)^DIQ
Kernel	1	$$UP^XLFSTR

Package	Total	Caller Graph
Fee Basis	1	FBPAID3A
Integrated Billing	1	IBCEP8

Name	Field # of Occurrence
NOW^%DTC	IBNONVA+20
$$FIND1^DIC	CHKTXY+15
FILE^DICN	IBNONVA+91
FILE^DIE	IBNONVA+44, CHKTXY+31
UPDATE^DIE	ADDFB+12, ADDNPI+12, ADDTXY+17
VALS^DIE	ADDTXY+14
$$GET1^DIQ	FBALLOW+9
GETS^DIQ	IBNONVA+33
$$UP^XLFSTR	IBNONVA+23

FileNo	Call Tags
^IBA(355.93 - [#355.93]	Classic Fileman Calls, GETS^DIQ
355.9351	GET1^DIQ
^USC(8932.1 - [#8932.1]	FIND1^DIC

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	RULES+10
^IBA(355.93 - [#355.93]	CHKTXY+20, CHKTXY+21, CHKTXY+22, CHKTXY+23, ACTVNPI+3, ACTVNPI+5, ACTVNPI+8, INACTV+3, INACTV+5, INACTV+8 , FBALLOW+7, FBALLOW+8, LOCK+6, LOCK+9, UNLOCK+2, UNLOCK+3
^VA(200 - [#200]	RULES+9

Name	Line Occurrences
$$ACTVNPI	IBNONVA+24
$$ADDFB	IBNONVA+47, IBNONVA+52, IBNONVA+97
$$ADDNPI	IBNONVA+98
$$ADDTXY	IBNONVA+101, CHKTXY+33
$$CHKTXY	IBNONVA+51
$$FBALLOW	IBNONVA+36
$$IBNONVA	EPFBAPI+8
$$INACTV	IBNONVA+59
$$LOCK	IBNONVA+39, IBNONVA+74
$$RULES	IBNONVA+66
$$STRIP	IBNONVA+22
SETIBFDA	IBNONVA+38
UNLOCK	IBNONVA+54, IBNONVA+95, IBNONVA+104

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	IBNONVA+19~, IBNONVA+21
%H	IBNONVA+19~
%I	IBNONVA+19~
DD	IBNONVA+19~
DIC	IBNONVA+76~, IBNONVA+77*
DIC("DR"	IBNONVA+80, IBNONVA+82, IBNONVA+83, IBNONVA+84, IBNONVA+85, IBNONVA+86, IBNONVA+87, IBNONVA+88
DIC(0	IBNONVA+79*
DO	IBNONVA+19~
FBPRVNAM	STRIP~, STRIP+4, STRIP+6
IBACTIV	CHKTXY+12~, CHKTXY+23*
IBALLOW	IBNONVA+6~, IBNONVA+36*, IBNONVA+37
IBDONE	IBNONVA+5~, IBNONVA+9, IBNONVA+55, IBNONVA+57, IBNONVA+64, IBNONVA+65, IBNONVA+71, IBNONVA+72, CHKTXY+12~, CHKTXY+17* , CHKTXY+20, CHKTXY+25*, CHKTXY+32
IBERR	IBNONVA+6~, ADDFB+6~, ADDNPI+5~, CHKTXY+12~, ADDTXY+8~, FBALLOW+3~
IBERR("DIERR"	IBNONVA+34, IBNONVA+45, ADDFB+13, ADDNPI+13, ADDTXY+15, ADDTXY+18, ADDTXY+21
IBERR2	IBNONVA+5~
IBFBADD	ADDFB~, ADDFB+11
IBFBDUZ	IBNONVA+16*, IBNONVA+47, IBNONVA+52, IBNONVA+97, IBNONVA+98, ADDFB~, ADDFB+10, ADDNPI~, ADDNPI+11
>> IBFBFLAG	EPTRANS+7*
IBFBINF	IBNONVA~, IBNONVA+38, SETIBFDA~
IBFBINF("FB S	UP DUZ" , IBNONVA+16
IBFBINF("FBADD1"	IBNONVA+82, SETIBFDA+9, SETIBFDA+18
IBFBINF("FBADD2"	IBNONVA+83, SETIBFDA+10, SETIBFDA+19
IBFBINF("FBCITY"	IBNONVA+84, SETIBFDA+11, SETIBFDA+20
IBFBINF("FBFACID"	IBNONVA+87, SETIBFDA+14, SETIBFDA+23
IBFBINF("FBNPI"	IBNONVA+13
IBFBINF("FBST	ATE INT" , IBNONVA+85, SETIBFDA+12, SETIBFDA+21
IBFBINF("FBSTATE"	SETIBFDA+21
IBFBINF("FBTXY"	IBNONVA+15
IBFBINF("FBZIP"	IBNONVA+86, SETIBFDA+13, SETIBFDA+22
IBFBINF("IB T	YPE" , IBNONVA+12, SETIBFDA+7, SETIBFDA+24
IBFBINF("NAME"	IBNONVA+14
IBFBMLT	IBNONVA+6~, IBNONVA+26, IBNONVA+47, IBNONVA+52*
IBFDA	IBNONVA+6~, IBNONVA+38, ADDFB+6~, ADDNPI+5~, ADDTXY+8~, SETIBFDA~
IBFDA(	IBNONVA+41, ADDFB+9, ADDFB+10, ADDFB+11, ADDNPI+8, ADDNPI+9, ADDNPI+10, ADDNPI+11, CHKTXY+28, CHKTXY+29* , ADDTXY+11, ADDTXY+12, ADDTXY+13, SETIBFDA+9, SETIBFDA+10, SETIBFDA+11, SETIBFDA+12, SETIBFDA+13, SETIBFDA+14, SETIBFDA+17 , SETIBFDA+18, SETIBFDA+19, SETIBFDA+20, SETIBFDA+21, SETIBFDA+22, SETIBFDA+23, SETIBFDA+25*
IBFDAVAL	ADDTXY+8~
IBFLDS	IBNONVA+5~, IBNONVA+32*, IBNONVA+33
IBFLGS	IBNONVA+5~
>> IBFLPFLP	IBNONVA+43, IBNONVA+90
IBIEN	IBNONVA+5~, IBNONVA+24, IBNONVA+25, IBNONVA+33, IBNONVA+36, IBNONVA+38, IBNONVA+39, IBNONVA+47, IBNONVA+51, IBNONVA+52 , IBNONVA+54, IBNONVA+58, IBNONVA+61, IBNONVA+92, IBNONVA+93, IBNONVA+97, IBNONVA+98, IBNONVA+101, IBNONVA+107, IBNONVA+108 , ADDFB~, ADDFB+9, ADDFB+10, ADDFB+11, ADDNPI~, ADDNPI+8, ADDNPI+9, ADDNPI+10, ADDNPI+11, CHKTXY~ , CHKTXY+20, CHKTXY+21, CHKTXY+22, CHKTXY+23, CHKTXY+28, CHKTXY+29, CHKTXY+33, ADDTXY~, ADDTXY+11, ADDTXY+12 , ADDTXY+13, ACTVNPI+2~, ACTVNPI+3, ACTVNPI+4, ACTVNPI+5, ACTVNPI+6, ACTVNPI+7, ACTVNPI+8, ACTVNPI+9, INACTV+2~ , INACTV+3, INACTV+4, INACTV+5, INACTV+6, INACTV+7, INACTV+8, INACTV+9, FBALLOW~, FBALLOW+7, FBALLOW+8 , FBALLOW+9, SETIBFDA~, SETIBFDA+8, SETIBFDA+9, SETIBFDA+10, SETIBFDA+11, SETIBFDA+12, SETIBFDA+13, SETIBFDA+14, SETIBFDA+15 , SETIBFDA+17, SETIBFDA+18, SETIBFDA+19, SETIBFDA+20, SETIBFDA+21, SETIBFDA+22, SETIBFDA+23, SETIBFDA+25, LOCK~, LOCK+5 , LOCK+8, LOCK+9, UNLOCK~, UNLOCK+2, UNLOCK+3
IBIEN1	RULES+5~
IBIEN2	RULES+5~
IBIENRET	ADDFB+6~, ADDTXY+8~
IBIENRET(1	ADDTXY+19
IBINDX	IBNONVA+5~
IBLKUP	IBNONVA+5~
IBLOCK	LOCK+2~, LOCK+4, LOCK+7, LOCK+10*, LOCK+11
IBNOW	IBNONVA+19~, IBNONVA+21*, IBNONVA+47, IBNONVA+52, IBNONVA+97, IBNONVA+98, ADDFB~, ADDFB+9, ADDNPI~, ADDNPI+8
IBNPI	ADDNPI~, ADDNPI+10, ACTVNPI~, ACTVNPI+3, ACTVNPI+5, INACTV~, INACTV+3, INACTV+5, RULES~, RULES+8 , RULES+9, RULES+10
IBNPICHK	IBNONVA+6~, IBNONVA+59, IBNONVA+60, IBNONVA+61, IBNONVA+66, IBNONVA+67
IBOK	IBNONVA+6~, IBNONVA+39, IBNONVA+40, IBNONVA+74, IBNONVA+75, IBNONVA+101, IBNONVA+102, IBNONVA+103, CHKTXY+12~, CHKTXY+33 , CHKTXY+34, CHKTXY+35, ADDTXY+8~, ADDTXY+19*, ADDTXY+20
IBOKFB	IBNONVA+6~, IBNONVA+97*
IBOKNPI	IBNONVA+5~, IBNONVA+11, IBNONVA+27, IBNONVA+48, IBNONVA+62, IBNONVA+69, IBNONVA+98, IBNONVA+99, IBNONVA+106, IBNONVA+108
IBOKTXY	IBNONVA+5~, IBNONVA+10, IBNONVA+28, IBNONVA+51, IBNONVA+52, IBNONVA+63, IBNONVA+70, IBNONVA+102, IBNONVA+103, IBNONVA+105 , IBNONVA+108
IBPRIM	CHKTXY+18, CHKTXY+22, CHKTXY+27, ADDTXY~, ADDTXY+12
IBPRVNAM	IBNONVA+14, IBNONVA+22, IBNONVA+23, IBNONVA+78, STRIP+2~, STRIP+4, STRIP+5, STRIP+6, STRIP+7, SETIBFDA+8 , SETIBFDA+15, SETIBFDA+17, SETIBFDA+25
IBPRVNPI	IBNONVA+6~, IBNONVA+13*, IBNONVA+18, IBNONVA+24, IBNONVA+59, IBNONVA+66, IBNONVA+88, IBNONVA+98, IBNONVA+106
IBPRVTXY	IBNONVA+15*, IBNONVA+50, IBNONVA+51, IBNONVA+100, IBNONVA+101, IBNONVA+105, CHKTXY~, CHKTXY+15, CHKTXY+33
IBPRVTYP	EPTRANS+5, EPTRANS+6, IBNONVA+6~, IBNONVA+12*, IBNONVA+38, IBNONVA+43, IBNONVA+80, IBNONVA+81, IBNONVA+90
IBQUIT	IBNONVA+5~, IBNONVA+8, IBNONVA+34, IBNONVA+35, IBNONVA+45, IBNONVA+46, IBNONVA+56, IBNONVA+94, IBNONVA+96, IBNONVA+107 , ADDFB+8, ADDFB+13, ADDFB+14, ADDNPI+5~, ADDNPI+7, ADDNPI+13, ADDNPI+14, ADDTXY+8~, ADDTXY+10, ADDTXY+15 , ADDTXY+16, ADDTXY+20, ADDTXY+21, ADDTXY+22
IBRET	EPFBAPI+6~, EPFBAPI+8*, EPFBAPI+9, EPFBAPI+10, EPFBAPI+13
IBRETARY	EPFBAPI~
IBRETARY(1	EPFBAPI+9*
IBRETARY(2	EPFBAPI+10*
IBRETARY(3	EPFBAPI+13*
IBRETRN	CHKTXY+12~, CHKTXY+26, CHKTXY+30, CHKTXY+34, CHKTXY+35, CHKTXY+36*, CHKTXY+37
IBRETURN	RULES+5~, RULES+7, RULES+8, RULES+9, RULES+10, RULES+11, FBALLOW+3~, FBALLOW+6, FBALLOW+9, FBALLOW+10* , FBALLOW+11
IBRTRN	IBNONVA+5~, IBNONVA+38, SETIBFDA~
IBRTRN(	IBNONVA+38, SETIBFDA+8, SETIBFDA+9, SETIBFDA+10, SETIBFDA+11, SETIBFDA+12, SETIBFDA+13, SETIBFDA+14, SETIBFDA+15, SETIBFDA+25
IBSCRN	IBNONVA+5~
IBSRCREC	EPFBAPI~, EPFBAPI+8
IBSUB	ACTVNPI+2~, ACTVNPI+5, ACTVNPI+6, ACTVNPI+8, INACTV+2~, INACTV+5, INACTV+6, INACTV+8, FBALLOW+3~, FBALLOW+5* , FBALLOW+8*, FBALLOW+9
IBTXY	CHKTXY+19, CHKTXY+20, CHKTXY+21, CHKTXY+22, CHKTXY+23, CHKTXY+28, CHKTXY+29, ADDTXY~, ADDTXY+11
IBTXYCOD	CHKTXY+12~, CHKTXY+21*, CHKTXY+24
IBTXYIEN	CHKTXY+12~, CHKTXY+15*, CHKTXY+16, CHKTXY+24, CHKTXY+36
>> IBTYPE	EPTRANS+5, EPTRANS+6
U	EPFBAPI+9, EPFBAPI+10, EPFBAPI+13, CHKTXY+21, CHKTXY+22, CHKTXY+23
X	IBNONVA+19~, IBNONVA+76~, IBNONVA+78*
>> XQY0	IBNONVA+42, IBNONVA+89
Y	IBNONVA+19~, IBNONVA+76~, IBNONVA+92

Name	Comments	DBIA/ICR reference
EPTRANS()
EPFBAPI(IBSRCREC,IBRETARY)		ICR #5806 Status: Active Usage: Private
IBNONVA(IBFBINF)
ADDFB(IBIEN,IBFBDUZ,IBNOW,IBFBADD)
ADDNPI(IBIEN,IBNPI,IBFBDUZ,IBNOW)	;ADD NPI multiple ; INPUTS : IBIEN: IEN OF THE IB NON/OTHER VA PROVIDER FILE being updated with NPI information ; IBNPI : NPI STRING TO BE ADDED if it passes validation rules (we already know this ; npi does not exist as an 'active' npi for a current entry in this file
CHKTXY(IBIEN,IBPRVTXY)
ADDTXY(IBIEN,IBTXY,IBPRIM)
ACTVNPI(IBNPI)	;RETURNS ien of ACTIVE NPI IN IB NON/OTHER VA BILLING PROVIDER FILE
INACTV(IBNPI)	;RETURNS ien of INACTIVE NPI IN IB NON/OTHER VA BILLING PROVIDER FILE
RULES(IBNPI)	;Verify that the NPI meets all rules for being added ; see NPIUSED^IBCEP81 where the input transform on the NPI field that is being bypassed is defined ; INPUT IBNPI - the NPI about to be added
FBALLOW(IBIEN)
STRIP(FBPRVNAM)	; Strip off leading and trailing spaces
SETIBFDA(IBRTRN,IBFBINF,IBFDA,IBIEN)
LOCK(IBIEN)	;Locks the #355.93 file or a record in it ; INPUT : IBIEN - the ien of the record to be locked NULL if a new record is being added
UNLOCK(IBIEN)

Customize PDF page

Package: Integrated Billing

Routine: IBCEP8C

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: