Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
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>

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 ;

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
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call