Routine: IBCEP8

Package	Total	Call Graph
VA FileMan	6	EN^DDIOL (,$$FIND1,FIND)^DIC YN^DICN ^DIE $$GET1^DIQ ^DIR
Integrated Billing	5	$$STATE^IBCEFG1 $$IDFIND^IBCEP2 $$VALFAC^IBCEP8 BLD^IBCEP8B EPTRANS^IBCEP8C
List Manager	3	EN^VALM (CLEAR,FULL)^VALM1 CLEAN^VALM10
Kernel	1	STDNAME^XLFNAME

Package	Total	Caller Graph
Integrated Billing	24	IBCBB0 IBCE PRVNVA DEMOG IBCE PRVNVA FAC EDIT IBCE PRVNVA MAINT IBCE PRVNVA NF LI IBCE PRVNVA NF LO IBCE PRVNVA NP PI IBCE PRVNVA NP PO IBCE PRVNVA PROVINFO IBCEF71 IBCEF72 IBCEF74A IBCEF79 IBCEP2B IBCEP5 IBCEP6 IBCEP8 IBCEP8A IBCSC102 IBJPS3 IBXSC8H3 ^IBA(355.93 ^IBA(364.5 ^IBA(364.7
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- main entry point
HDR	; -- header code
INIT	; Initialization
INIT1	;
INITQ
EXPND	;
HELP	;
EXIT	;
EDIT1(IBNPRV,IBNOLM)	; Edit non-VA provider/facility demographics ; IBNPRV = ien of entry in file 355.93 ; IBNOLM = 1 if not called from list manager
EDITID(IBNPRV,IBSLEV)	; Link from this list template to maintain provider-specific ids ; This entry point is called by 4 action protocols. ; IBNPRV = ien of entry in file 355.93 (can be either an individual or a facility) (required) ; IBSLEV = 1 for facility/provider own ID's ; IBSLEV = 2 for facility/provider ID's furnished by an insurance company
NVAFAC	; Enter/edit Non-VA facility information ; This entry point is called by the menu system for option IBCE PRVNVA FAC EDIT
NVAFACQ
GETFAC(IB,IBFILE,IBELE,CSZLEN)	; Returns facility name, address lines or city-state-zip ; IB = ien of entry in file ; IBFILE = 0 for retrieval from file 4, 1 for retrieval from file 355.93 ; If IBELE = 0, returns name ; = 1, returns address line 1 ; = 2, returns address line 2 ; = 12, returns address lines 1 and 2 together ; = 3, returns city, state zip ; = "3C", returns city = "3S", state = "3Z", zip ; CSZLEN = max length allowed for city,st,zip string - Only applies when IBELE=3
GETFACX	;
CSZ(IC,IS,IZ,CSZLEN)	; build city, state, zip string ; IC - city ; IS - state abbreviation ; IZ - zip ; CSZLEN - max length allowed for city, st zip string
CSZX	;
ALLID(IBPRV,IBPTYP,IBZ)	; Returns array IBZ for all ids for provider IBPRV ; for all provider id types or for id type in IBPTYP ; IBPRV = vp ien of provider ; IBPTYP = ien of provider id type to return or "" for all ; IBZ = array returned with internal data: ; IBZ(file 355.9 ien)=ID type^ID#^ins co^form type^bill care type^care un^X12 code for id type
ALLIDQ
CLIA()	; Returns ien of CLIA # provider id type
STLIC()	; Returns ien of STLIC# provider id type
TAXID()	; Returns ien of Fed tax id provider id type
CLIANVA(IBIFN)	; Returns CLIA # for a non-VA facility on bill ien IBIFN
VALFAC(X)	; Function returns 1 if format is valid for X12 facility name ; Alpha/numeric/certain punctuation valid. Must start with an Alpha
VALFMT(X,VAL)	; Returns 1 if format of X is valid, 0 if not ; X = data to be examined ; VAL = a 'string' of valid characters AND/OR (passed by reference) ; if VAL("A") defined ==> Alpha ; if VAL("A") defined ==> Numeric valid ; if VAL("A") defined ==> Punctuation valid ; any other character included in the string is checked individually
PS(IBXSAVE)	; Returns 1 if IBXSAVE("PSVC") indicates the svc was non-lab ;
PRIMID(IEN35593)	; Return External Primary ID and ID Quailier
PRVFMT	; called only by the INPUT TRANSFORM of #355.93,.01 ; no other calls are allowed to this tag
PRVINIT	; initialization
PRVMANT	; is the user flipping the provider type (for existing records only)
SCREEN(IBNPRV)	;
INPUT	;

Name	Field # of Occurrence
EN^DDIOL	PRVMANT+18, PRVMANT+19, SCREEN+3, SCREEN+4, SCREEN+5, SCREEN+6, SCREEN+7
^DIC	INIT1+15, NVAFAC+5
$$FIND1^DIC	INIT1+43
FIND^DIC	PRIMID+4
YN^DICN	PRVMANT+21
^DIE	EDIT1+16, EDIT1+18, EDIT1+20, EDIT1+23, EDIT1+26, INPUT+20
$$GET1^DIQ	EDITID+14, PRIMID+8
^DIR	INIT+7, INPUT+10
$$STATE^IBCEFG1	GETFAC+20, GETFAC+21
$$IDFIND^IBCEP2	CLIANVA+5
$$VALFAC^IBCEP8	PRVMANT+28
BLD^IBCEP8B	INIT1+45, EDIT1+28
EPTRANS^IBCEP8C	PRVFMT+50
EN^VALM	EN+4, EDITID+15
CLEAR^VALM1	EDIT1+7, EDITID+10
FULL^VALM1	EN+3, EDIT1+5, EDITID+9
CLEAN^VALM10	EXIT+2
STDNAME^XLFNAME	PRVMANT+27

FileNo	Call Tags
^ORD(101 - [#101]	FIND1^DIC
^IBA(355.9 - [#355.9]	FIND^DIC
^IBA(355.93 - [#355.93]	Classic Fileman Calls, GET1^DIQ
^IBE(355.97 - [#355.97]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	CLIANVA+4
^DIC(4 - [#4]	GETFAC+14, GETFAC+15, GETFAC+20
^IBA(355.9 - [#355.9]	ALLID+10
^IBA(355.93 - [#355.93]	EDIT1+8, EDIT1+21, GETFAC+14, GETFAC+15, PRVINIT+8, PRVINIT+19, SCREEN+11
^IBE(355.97 - [#355.97]	ALLID+11, CLIA+2, STLIC+2, TAXID+2
^TMP("IBCE_PRVNVA_MAINT"	INIT+2!, EXIT+1!

Name	Line Occurrences
$$CLIA	CLIANVA+2
$$CSZ	GETFAC+27
$$VALFMT	VALFAC+5
ALLIDQ	ALLID+8
CSZX	CSZ+11, CSZ+12, CSZ+15
EDIT1	NVAFAC+8
INIT1	INIT+5
INITQ	INIT+8, INIT1+16, INIT1+35
INPUT	INPUT+13
NVAFACQ	NVAFAC+6
PRVINIT	PRVFMT+47, PRVFMT+48
PRVMANT	PRVFMT+47, PRVFMT+48
SCREEN	INIT1+34

Name	Field # of Occurrence
^(	CLIA+2, STLIC+2, TAXID+2
^(0	CLIA+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PRVMANT+1~, PRVMANT+13*, PRVMANT+23
CSZLEN	GETFAC~, GETFAC+27, CSZ~, CSZ+11, CSZ+12, CSZ+15, CSZ+18
DA	INIT+1~, INIT1+24~, EDIT1+4~, EDIT1+8, NVAFAC+2~, PRVFMT+42, SCREEN+1~, INPUT+18
DIC	INIT+1~, INIT1+12, INIT1+15!, NVAFAC+2~, NVAFAC+3, NVAFAC+5!
DIC("A"	INIT1+14, NVAFAC+4
DIC("DR"	INIT1+12, NVAFAC+3
DIC("S"	INIT1+13, NVAFAC+3
DIC(0	INIT1+14, NVAFAC+4
DIE	INIT1+24~, EDIT1+4~, EDIT1+8, INPUT+17
DIFF	GETFAC+11~, CSZ+6~, CSZ+18*, CSZ+19
DIR	INIT+1~, INIT+7!, SCREEN+1~
DIR("?"	INPUT+4, INPUT+5, INPUT+6*
DIR("??"	INPUT+8*
DIR("A"	INIT+7, INPUT+2
DIR(0	INIT+7, INPUT+1
DIRUT	SCREEN+1~, INPUT+14
DLAYGO	INIT+1~, INIT1+14, INIT1+15!, NVAFAC+2~, NVAFAC+4, NVAFAC+5!
DR	INIT1+24~, EDIT1+4~, EDIT1+15, EDIT1+18, EDIT1+20, EDIT1+23, EDIT1+25, SCREEN+1~, INPUT+19
DTOUT	INIT+1~, INIT+8, SCREEN+1~, INPUT+12
DUOUT	INIT+1~, INIT+8, SCREEN+1~, INPUT+12
IB	GETFAC~, GETFAC+14, GETFAC+15, GETFAC+20
>> IBCEP6FL	PRVINIT+8
IBCEPDA	PRVFMT+41~, PRVFMT+42, PRVINIT+8, PRVINIT+15, PRVINIT+19, PRVMANT+11
IBCLIA	CLIANVA+1~, CLIANVA+2, CLIANVA+5, CLIANVA+6
>> IBDR20	PRVINIT+8
IBELE	GETFAC~, GETFAC+15, GETFAC+16, GETFAC+17, GETFAC+19, GETFAC+23, GETFAC+24, GETFAC+25
IBFASTXT	EN+2!, EXIT+3!, EDITID+13!, EDITID+18
IBFILE	GETFAC~, GETFAC+14, GETFAC+15, GETFAC+16, GETFAC+17, GETFAC+20, GETFAC+21
>> IBFLPFLP	INIT1+22, INIT1+36, PRVFMT+42, PRVMANT+25*
IBIF	INIT+1~, INIT+5, INIT+9, INIT1+12, INIT1+13, INIT1+14, INIT1+36, INIT1+40, EDITID+8~, EDITID+14
IBIFN	CLIANVA~, CLIANVA+4, CLIANVA+5
IBNAM	PRVFMT+41~, PRVFMT+42*, PRVINIT+8, PRVMANT+27, PRVMANT+28
IBNAME	SCREEN+1~, SCREEN+11*, INPUT+2
IBNOLM	EDIT1~, EDIT1+5, EDIT1+7, EDIT1+27, EDIT1+29
IBNPRV	EN+1~, INIT1+17, INIT1+22, INIT1+34, INIT1+45, EDIT1~, EDIT1+6, EDIT1+8, EDIT1+21, EDIT1+28 , EDITID~, EDITID+6, EDITID+11, NVAFAC+2~, NVAFAC+7*, NVAFAC+8, SCREEN~, SCREEN+11, INPUT+18
IBNPRVN	SCREEN+1~, SCREEN+2, INPUT+14, INPUT+19
IBNVA	CLIANVA+1~, CLIANVA+4*, CLIANVA+5
>> IBNVPMIF	INIT+5, PRVINIT+15
IBP	EDIT1+4~, EDIT1+8*, EDIT1+15, EDIT1+17
IBPRV	EDITID+8~, EDITID+11*, EDITID+14, ALLID~, ALLID+8, ALLID+10
IBPTYP	ALLID~, ALLID+9*, ALLID+11
IBSLEV	EDITID~, EDITID+7
IBTYPE	PRVFMT+41~, PRVINIT+8, PRVINIT+15, PRVINIT+19, PRVMANT+6, PRVMANT+11, PRVMANT+15, PRVMANT+16, PRVMANT+25, PRVMANT+27 , PRVMANT+28
IBX	GETFAC+11~, GETFAC+12, GETFAC+15, GETFAC+16, GETFAC+17, GETFAC+23, GETFAC+24, GETFAC+25, GETFAC+27, GETFACX+1 , CSZ+6~, CSZ+9, CSZ+12, CSZ+15, CSZ+18, CSZ+20*, CSZX+1
IBXSAVE	PS~
IBXSAVE("PSVC"	PS+2
IBZ	ALLID~, ALLID+7!, CLIA+1~, CLIA+2, CLIA+3, STLIC+1~, STLIC+2, STLIC+3, TAXID+1~, TAXID+2* , TAXID+3, CLIANVA+1~, CLIANVA+2*, CLIANVA+3, CLIANVA+5
IBZ(	ALLID+11*
IC	GETFAC+11~, GETFAC+20, GETFAC+21, GETFAC+23, GETFAC+27, CSZ~, CSZ+9, CSZ+15, CSZ+19*, CSZ+20
IDCODE	PRIMID+1~, PRIMID+8*, PRIMID+9
IEN35593	PRIMID~, PRIMID+2
INDXVAL	PRIMID+1~, PRIMID+2*, PRIMID+4
IS	GETFAC+11~, GETFAC+20, GETFAC+21, GETFAC+24, GETFAC+27, CSZ~, CSZ+9, CSZ+15, CSZ+20
IZ	GETFAC+11~, GETFAC+20, GETFAC+21, GETFAC+25, GETFAC+27, CSZ~, CSZ+9, CSZ+15*, CSZ+20
LIST	PRIMID+1~
LIST("DILIST"	PRIMID+5, PRIMID+6, PRIMID+8, PRIMID+9
MSG	PRIMID+1~
NEWENTRY	INIT1+21~, INIT1+22*, INIT1+23
NPIDEF	EDIT1+21~*
OK	VALFAC+2~, VALFAC+3, VALFAC+5, VALFAC+6
OKRTN	PRVFMT+41~, PRVFMT+42, PRVFMT+47, PRVFMT+48, PRVFMT+50, PRVFMT+52
SCREEN	PRIMID+3~*, PRIMID+4
TXT	PRVMANT+1~, PRVMANT+15, PRVMANT+16, PRVMANT+18
TXT2	PRVMANT+1~, PRVMANT+15, PRVMANT+16, PRVMANT+19
U	INIT1+22, EDIT1+8, EDIT1+21, GETFAC+15, GETFAC+16, GETFAC+17, GETFAC+20, GETFAC+21, ALLID+11, CLIA+2 , STLIC+2, TAXID+2, CLIANVA+4, PRIMID+9, PRVFMT+47, PRVFMT+48, PRVFMT+50, PRVINIT+19, SCREEN+11
VAL	VALFAC+2~, VALFAC+4*, VALFAC+5, VALFMT~, VALFMT+20
VAL("A"	VALFAC+4*, VALFMT+8
VAL("N"	VALFAC+4*, VALFMT+12
VAL("P"	VALFMT+16
>> VALM("PROTOCOL"	INIT1+42!, INIT1+44*
>> VALM("TITLE"	INIT1+41*
VALMBCK	EDIT1+29!, EDITID+18
VALMHDR	HDR+1!
VALMQUIT	INIT+8, INIT1+16, INIT1+35, EDITID+17!, NVAFAC+6
X	INIT+1~, INIT1+24~, EDIT1+4~, EDIT1+19, EDIT1+22, NVAFAC+2~, VALFAC~, VALFAC+5, VALFMT~, VALFMT+10 , VALFMT+11, VALFMT+14, VALFMT+15, VALFMT+18, VALFMT+19, VALFMT+20, VALFMT+21, PRVFMT+42, PRVFMT+52!, PRVMANT+27* , PRVMANT+28!, SCREEN+1~, INPUT+13, INPUT+14
>> XQY0	PRVFMT+47, PRVFMT+48, PRVFMT+50
Y	INIT+1~, INIT+9, INIT1+16, INIT1+17, INIT1+22, INIT1+24~, INIT1+35, INIT1+43*, INIT1+44, EDIT1+4~ , NVAFAC+2~, NVAFAC+6, NVAFAC+7
Z	GETFAC+11~, GETFAC+14, GETFAC+16, GETFAC+17, GETFAC+20, GETFAC+21, ALLID+6~, ALLID+10, ALLID+11, CLIA+1~ , CLIA+2, STLIC+1~, STLIC+2, TAXID+1~, TAXID+2, CLIANVA+1~, VALFMT+7~, VALFMT+10, VALFMT+14, VALFMT+18
Z0	ALLID+6~, ALLID+10, ALLID+11, VALFMT+9~, VALFMT+11, VALFMT+13~, VALFMT+15, VALFMT+17~, VALFMT+19
Z0(	VALFMT+10, VALFMT+11, VALFMT+14, VALFMT+15, VALFMT+18*, VALFMT+19

Customize PDF page

Package: Integrated Billing

Routine: IBCEP8

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 25

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: