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 |