| 1 | IBQL356A ;LEB/MRY - UM ROLLUP - IBT DATA EXTRACTS CONT. ; 8-AUG-95
|
|---|
| 2 | ;;1.0;UTILIZATION MGMT ROLLUP LOCAL;;Oct 01, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | Q
|
|---|
| 6 | RESETC ; -- Reset IB(array) for Claims Tracking and misc. information
|
|---|
| 7 | ; -- reset ib(field #) variables array
|
|---|
| 8 | ; .01:entry id,.02:site,.03:ssn,.04:admitting diagnosis,.05:enroll code
|
|---|
| 9 | ; .06:admitting phy,.07:attending phy,.08:resident phy,.09;admission
|
|---|
| 10 | ; .1:discharge,.11:ward,.12:treating specialty,1.06:rollup type
|
|---|
| 11 | ; 1.07:service
|
|---|
| 12 | F IBFLD=.01:.01:.12,1.06,1.07 S IB(IBFLD)=""
|
|---|
| 13 | Q
|
|---|
| 14 | RESETA ; -- Reset IB(array) for Admission Review information
|
|---|
| 15 | ; .13:acute adm?,1.01:si from adm,1.02:is from adm,1.03:reasons from adm
|
|---|
| 16 | ; 1.04:provider intviewed?,1.05:adm influenced?
|
|---|
| 17 | ; ACUTE ADMISSION:1 if acute; null if non-acute
|
|---|
| 18 | F IBFLD=.13,1.01:.01:1.05,"ACUTE ADMISSION" S IB(IBFLD)=""
|
|---|
| 19 | Q
|
|---|
| 20 | RESETS ; -- Reset IB(array) for Stay information
|
|---|
| 21 | ; 13.01:day,13.02:is,13.03:si,13.04:d/s,13.05:interviewed?,13.06:reasons
|
|---|
| 22 | ; 13.07:treating specialty,13.08:service
|
|---|
| 23 | ; ACUTE STAY:1 if acute-null if non-acute
|
|---|
| 24 | F IBFLD=.01:.01:.08,"ACUTE STAY" S:IBFLD IB(13+IBFLD)="" S:'IBFLD IB(IBFLD)=""
|
|---|
| 25 | Q
|
|---|
