IBCEP8 ;ALB/TMP/OIFO-BP/RBN - Functions for NON-VA PROVIDER ;11-07-00
Source file <IBCEP8.m>
| 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 | ;
|
| 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 |
