source: WorldVistAEHR/trunk/r/UTILIZATION_MGMT_ROLLUP_LOCAL-IBQ/IBQLCHK.m@ 1599

Last change on this file since 1599 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1IBQLCHK ;LEB/MRY - UM ROLLUP - CHECK INFO. IN IB(array) ; 4-JUN-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 ; Input: IBTRN
6 ; Output: IB(array)
7 ;
8 I '$D(DT) D DT^DICRW
9 K IBDATA S IBQUIT=""
10CLAIMS ;
11 D CLAIMS^IBQL356 Q:IBQUIT
12ADM ;
13 S IBTRV=$O(^IBT(356.1,"C",IBTRN,""))
14 D ADMIT^IBQL356 Q:IBQUIT
15 S X="" F IBFLD=.01:.01:.13 S X=X_IBFLD_":"_IB(IBFLD)_"^"
16 S IBDATA(0)=$P(X,"^",1,$L(X,"^")-1)
17 S X="" F IBFLD=1.01:.01:1.07 S X=X_IBFLD_":"_IB(IBFLD)_"^"
18 S IBDATA(1)=$P(X,"^",1,$L(X,"^")-1)
19STAY ;
20 S IBPIS=IB(1.02)
21 F S IBTRV=$O(^IBT(356.1,"C",IBTRN,IBTRV)) Q:'IBTRV D Q:IBQUIT
22 .D STAY^IBQL356 Q:IBQUIT
23 .S X="" F IBFLD=13.01,13.02,13.03,13.04,13.05,13.06,13.07,13.08 S X=X_(IBFLD-13)_":"_IB(IBFLD)_"^"
24 .S IBDATA(IB(13.01))=$P(X,"^",1,$L(X,"^")-1)
25 ;Q
26 ;
27PRINT ;
28 ;D HDR
29 W #,"CLAIMS TRACKING AND ADMISSION REVIEW DATA"
30 W ! F I=1:1:80 W "="
31 W !
32 W !!,"IB(.01) - ENTRY ID: ",?25,IB(.01)
33 W !,"IB(.02) - SITE: ",?25,IB(.02)
34 W !,"IB(.03) - SSN#: ",?25,IB(.03)
35 W !,"IB(.04) - ADM DIAGNOSIS: ",?25,IB(.04)
36 W !,"IB(.05) - ENROLL: ",?25,IB(.05)
37 W !,"IB(.06) - ADMITTING PHY: ",?25,IB(.06)
38 W !,"IB(.07) - ATTENDING PHY: ",?25,IB(.07)
39 W !,"IB(.08) - RESIDENT PHY: ",?25,IB(.08)
40 W !,"IB(.09) - ADMISSION: ",?25,IB(.09)
41 W !,"IB(.1) - DISCHARGE: ",?25,IB(.1)
42 W !,"IB(.11) - WARD: ",?25,IB(.11)
43 W !,"IB(.12) - TREATING SPECIALTY: ",?25,IB(.12)
44 W !,"IB(1.01) - SI FROM ADM: ",?25,IB(1.01)
45 W !,"IB(1.02) - IS FROM ADM: ",?25,IB(1.02)
46 W !,"IB(1.03) - REASONS FROM ADM: ",?25,IB(1.03)
47 W !,"IB(1.04) - PROVIDER INTERVIEWED?: ",?25,IB(1.04)
48 W !,"IB(1.05) - ADM INFLUENCED?: ",?25,IB(1.05)
49 W !,"IB(1.06) - ROLLUP TYPE: ",?25,IB(1.06)
50 W !,"IB(1.07) - SERVICE: ",?25,IB(1.07)
51 ;
52 W !,"<<< DATA STREAM FOR TRANSMISSION >>>",! S X="ZW IBDATA" X X
53 W !,"<<< VADPT CALL VARIABLES >>>",! S X="ZW VAIN" X X
54 Q
Note: See TracBrowser for help on using the repository browser.