IBTUTL4 ;ALB/AAS - CLAIMS TRACKING UTILITY ROUTINE ; 21-JUN-93
Source file <IBTUTL4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| AEA(IBTRC,X) | ; -- dd input call for authorize entire admission (field 1.08)
|
|
| AEAQ | ||
| DEA(IBTRC,X) | ; -- dd input call for deny entry admission (field 1.07)
|
|
| DEAQ | ||
| AFDT(IBTRC,X) | ; -- dd input call for check to approved from date (field .12)
; -- returns 1 if date okay, 0 if not, let input transform kill x |
|
| AFDTQ | ||
| ATDT(IBTRC,X) | ; -- dd input call for check to approved to date (field .13)
; -- returns 1 if date okay, 0 if not, let input transform kill x |
|
| ATDTQ | ||
| DFDT(IBTRC,X) | ; -- dd input call for check to denied from date (field .15)
; -- returns 1 if date okay, 0 if not, let input transform kill x |
|
| DFDTQ | ||
| DTDT(IBTRC,X) | ; -- dd input call for check to denied to date (field .16)
; -- returns 1 if date okay, 0 if not, let input transform kill x |
|
| DTDTQ | ||
| CHK | ; -- generic check functions
|
|
| CHK2 | ; -- if pass first set of check do these
|
|
| NOTOK(MESS) | ; -- process not okays
|
|
| DISCH(DGPM) | ; -- find discharge date for an admission
|
|
| DISCHQ | ||
| ASK(IBTRN,IBW) | ; Prompt for Provider or Diagnosis from PCE
; Input: IBTRN -- Pointer to Claims Tracking entry in #356 ; IBW -- 1 - Provider | 2 - Diagnosis |
|
| ASKQ |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
