IBCEP9 ;ALB/TMP - MASS UPDATE OF PROVIDER ID FROM FILE OR MANUAL ;08-NOV-00
Source file <IBCEP9.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Get parameters and mass input provider id by ins co
|
|
1 | ; Select INSURANCE COMPANY NAME:
|
|
2 | ; get data source
|
|
21 | ; get parameters for file type
|
|
3 | ; select external file name
|
|
4 | ; select Provider ID Type
|
|
5 | ; select Forms Type
|
|
6 | ; select Bill Care Type
|
|
7 | ; get Care Unit
|
|
P1 | ;
|
|
ENQ | ; Print report, exit
|
|
DUP(IBPRV,IBINS,IBCU,IBFT,IBCT,IBPTYP) | ; Check if provider id record already exists in file 355.9
|
|
ERREOF | ; Traps EOF error on file read for non-DSM systems
|
|
CLOSE(IBOPEN) | ; Close file
|
|
DIR(DIR,IBQUIT,IBQUIT1,X,IBW1,IBW2) | ; Standard call to ^DIR
; Inputs DIR array ; Returns IBQUIT,IBQUIT1,X if passed by reference ; AND ; FUNCTION returns the value of Y ; IBW1 = 1 if initial write ! should be done ; IBW2 = 1 if last write ! should be done |
|
ERR | ; Error list
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^IBA(355.9 - [#355.9] | Classic Fileman Calls |
^DIC(36 - [#36] | Classic Fileman Calls |