Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBCEP8

Package: Integrated Billing

Routine: IBCEP8


Information

IBCEP8 ;ALB/TMP/OIFO-BP/RBN - Functions for NON-VA PROVIDER ;11-07-00

Source Information

Source file <IBCEP8.m>

Call Graph

Call Graph

Call Graph Total: 15

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 21

Package Total Caller Graph
Integrated Billing 21 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  

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 ;

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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!

Label References

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

Naked Globals

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All