IBTRE6 ;ALB/AAS - CLAIMS TRACKING OUTPUT CLIN DATA ;2-SEP-1993
Source file <IBTRE6.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADMDIAG(IBTRN) | ; -- output admitting diagnosis (inpatient)
|
|
| ADMDQ | ||
| PDIAG(IBTRN) | ; -- return primary diagnosis (inpatient)
|
|
| PDIAGQ | ||
| SDIAG | ; -- return secondary diagnosis (inpatient
|
|
| ODIAG | ; -- return outpatient diagnosis
|
|
| DIAG(IBDX,IBTXT,IBDT) | ; -- Expand diagnosis from pointer
; -- input IBDX = pointer to diag ; IBTXT = if want text added (zero = number only) |
|
| APROV(IBTRN) | ; -- return provider (inpatient)
|
|
| APROVQ | ||
| ATTEND | ; -- return attendings (inpatient)
|
|
| PROV | ; -- return providers (inpatient)
|
|
| OPROV | ; -- returns outpatient providers
|
|
| PROC(IBPR,IBTXT) | ; -- Expand procedure from pointer
; input IBPR=proc^^date (format of ^IBT(356.91,IEN,0)) ; IBTXT = if want text added (zero = number only) |
|
| OPROC | ; -- outpatient procedures
|
|
| IPROC | ; -- inpatient procedures
|
|
| LISTP(IBTRN,IBXY) | ; -- return last y procedures for a tracking entry
; -- input ibtrn = tracking file pointer ; -- output array of procedure by date - ibxy(date)=procedure node |
|
| LISTPQ | ||
| LSTPDG(X,IBDT,Y) | ; -- return current diagnosis for a tracking entry
; -- input X = tracking file pointer ; ibdt = date for current diagnosis (null = last) ; y = 1= primary (default) ; 2= secondary |
|
| LSTPDQ | ||
| DTCHK(DA,X) | ; -- input transform for 356.94;.01. date not before admission or after discharge
|
|
| DTCHKQ | ||
| SETSDX(IBOE,IBSDX) | ; get the list of Outpatient Encounter Diagnosis
; Output: IBSDX = count Dx's found, IBSDX(count) = V POV IEN ^ Dx IEN |
|
| LSTSDX(IBSDX) | ; Print list of Outpatient Encounter Diagnosis
; Input: IBSDX = count Dx's found, IBSDX(count) = V POV pointer ^ Dx IEN |
|
| SETSDV(IBOE,IBSDV) | ; get list of Outpatient Encounter Providers
; Output: IBSDV = count of Providers found, IBSDV(count) = V PROVIDER IEN ^ DX IEN |
|
| LSTSDV(IBSDV) | ; Print list of Outpatient Encounter Providers
; Input: IBSDV = count of Providers found, IBSDV(count) = V PROVIDER IEN ^ PROVIDER IEN |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
