IBTRV ;ALB/AAS - CLAIMS TRACKING REVIEWS (UR) ; 27-JUN-1993
Source file <IBTRV.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; -- main entry point for IBT REVIEW EDITOR from menu's
|
|
ENQ | ||
HDR | ; -- header code
|
|
INIT | ; -- init variables and list array
|
|
BLD | ; -- Build list of Reviews
|
|
SET(X) | ; -- set arrays
|
|
HELP | ; -- help code
|
|
EXIT | ; -- exit code
|
|
TRAC | ; -- Select tracking entry
|
|
TRACQ | ||
DEFV(DFN) | ; -- compute default visit for patient
|
|
DEFVQ | ||
VNDT(X) | ; -- compute vaindt for call to inp^vadtp
; -- Input x = internal entry of review |
|
TRTP(X) | ; -- Compute Review type code
; Input x = internal entry of review ; output = code for review from 356.11 |
|
IBUR(IBTRN) | ; -- reason for review
|
|
LIST(DFN,DFLT) | ; list 1 screen of most recent CT entries
|
Name | Line Occurrences |
---|---|
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 - [#356] | Classic Fileman Calls |