IBCU72 ;ALB/CPM - ADD/EDIT/DELETE PROCEDURE DIAGNOSES ;18-JUN-96
Source file <IBCU72.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DX(IBIFN,IBPROC) | ; Add/edit/delete procedure diagnoses.
; Input: IBIFN -- Pointer to the claim in file #399 ; IBPROC -- Pointer to the claim procedure in file #399.0304 |
|
DXQ | ||
DISP(X) | ; Display of existing dx's for a bill.
|
|
ASKEM | ; Allow entry of the procedure diagnoses.
|
|
ASKEMQ | ||
UPD(IBVALUE,IBFIELD) | ; Update an associated diagnosis.
|
|
REPACK(IBPROC,IBIFN) | ||
HELP1 | ; Help for entering associated diagnoses.
|
|
NEXT() | ; Advance to the next prompt?
|
|
NEXTQ | ||
ORAL | ; JWS;IB*2.0*592;dental produce line level dental fields
|
|
ORAL2 | ;check for conditional required field
|
|
ORAL1 | ; check for conditional required field
|
|
T1 | ;
|
|
T2 | ;
|
|
TEXIT | ;abort out
|
|
SELTOO(IBIFN,IBPIEN) | ;
; Provides the user with a quick view of currently entered Service Line Tooth ; Information multiples and allows them to select one to edit or enter a new ; one. ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; SIEN - Service Line Multiple IEN ; Returns: Value of the .01 field of the multiple to edit ; "" if creating a new multiple, -2 to exit multiple ; IBNEW=1 when creating a new entry |
|
DELSTI(IBIFN,IBPIEN,IEN) | ; Checks to see if the user entered 'NEW' to create a new
; Tooth Information Line and didn't enter any data for it OR selected a line ; to be deleted. If so, the Additional Tooth Information line with no data ; (or selected) is deleted ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; SIEN - IEN of the Service Line being edited ; Output: Empty (or selected) Tooth Information line is deleted (Potentially) |
|
TTYPE(IBIFN,IBPIEN) | ; Prompts the user to enter the .01 (Tooth) field of the
; Tooth Information multiple ; Input: IBIFN - IEN of the 356.22 entry being edited ; IBPIEN - IEN of the Service Line ; Returns: IEN of the selected Tooth Type or "" of not entered |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^IBT(356.022 - [#356.022] | GET1^DIQ |
^DGCR(399 - [#399] | Classic Fileman Calls |
399.0304 | GET1^DIQ |
399.30491 | GET1^DIQ |