IBCEQ1 ;BSL,ALB/TMK - PROVIDER ID QUERY ;25-AUG-03
Source file <IBCEQ1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;
|
|
EN1Q | ||
ENT(IBREBLD,IBTO) | ; Queued job enter here
|
|
LP | ; Loop through ids
|
|
SET(Z) | ;SET VALUES INTO SAVE GLOBAL
; Z=REASON WHY WE'RE SETTING IT ; 1. PAYER-ins co name (36) ; 2. PLAN-grp name (355.3) ; 3. GROUP-grp # (355.3) ; 4. FTA-form typ (355.9) ; 5. EPLAN-"BL" (355.3) ; 6. IEPLAN-elec ins typ (36) ; 7. IPROV-hosp prov# (36) ; 8. PPROV-prof prov# (36) ; 9. EDII-inst edi id# (36) |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|