IBCBB ;ALB/AAS - EDIT CHECK ROUTINE TO BE INVOKED BEFORE ALL BILL APPROVAL ACTIONS ;2-NOV-89
Source file <IBCBB.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GVAR | ;set up variables for mccr
|
|
| EN | ;Entry to check for errors
|
|
| EDIT(IBIFN) | ; Run edits from within the billing edit screens
|
|
| TOB(IBND0) | ;
; IBND0 = the 0-node of the bill (file 399) |
|
| ERR(Z) | ; update IBER variable from the above insurance checks
; Z is the IB error code# for the primary insurance error |
|
| DTCK(DATE) | ; IB*2.0*623 - check for valid date
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| 2.312 | GET1^DIQ |
| ^DGCR(399 - [#399] | GET1^DIQ |
| ^HL(779.004 - [#779.004] | GET1^DIQ |
