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 |