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