IBCEP5 ;ALB/TMP - EDI UTILITIES for provider ID ;29-SEP-00
Source file <IBCEP5.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| EN | ; -- main entry point for IBCE PRV MAINT
 | 
|
| EN1 | ; Entrypoint for non-VA provider ID maintenance hook
 | 
|
| HDR | ; -- header code
 | 
|
| INIT | ; -- init variables and list array
 | 
|
| AGAIN | ||
| INITQ | ||
| BLD | ;  Build initial display
 ; Assumes IBPRV = the variable ptr for prov id file (355.9) ; IBINS = the ien of the ins co or if null, ALL is assumed ; IBSLEV = 1 to display only provider default ids ; = 2 to display all provider/insurance co ids  | 
|
| BLDQ | ||
| HELP | ; -- help code
 | 
|
| EXIT | ; -- exit code
 | 
|
| EXPND | ; -- expand code
 | 
|
| SEL(IBDA,MANY) | ; Select from provider id list
 ; IBDA is passed by reference and IBDA(1) returned containing ; ien's of the provider id records selected (file 355.9). ; If > 1 entry can be selected, MANY is set to 1  | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^ORD(101 - [#101] | FIND1^DIC | 
| ^IBA(355.93 - [#355.93] | GET1^DIQ |