1 | SPNLRM2 ;ISC-SF/GB-SCD RADIOLOGY UTILIZATION REPORT (PRINT PART 2 OF 2) ;5 JUN 94 [ 08/15/94 8:38 AM ]
|
---|
2 | ;;2.0;Spinal Cord Dysfunction;;01/02/1997
|
---|
3 | ; PAGELEN Number of lines per page
|
---|
4 | ; TITLE Array of header lines (titles)
|
---|
5 | P4(TITLE,PAGELEN,HIUSERS,ABORT) ;
|
---|
6 | ; I High user counter
|
---|
7 | ; COST Cost of the procedures
|
---|
8 | ; NDPROCS Number of different procedures
|
---|
9 | ; NPROCS Number of procedures
|
---|
10 | ; PID Patient ID (Coded SSN)
|
---|
11 | ; PNAME Patient Name
|
---|
12 | ; PSSN Patient SSN
|
---|
13 | N NPROCS,NDPROCS,COST,PID,PNAME,PSSN,I
|
---|
14 | S TITLE(4)=""
|
---|
15 | S TITLE(5)=$$CENTER^SPNLRU("Highest Utilization Patients Based on Number of Procedures")
|
---|
16 | ; TITLE(5)=" 1 2 3 4 5 6 7 8"
|
---|
17 | S TITLE(6)=""
|
---|
18 | S TITLE(7)=" Total Different Total"
|
---|
19 | S TITLE(8)="Patient Name SSN Procs Procs Value"
|
---|
20 | D HEADER^SPNLRU(.TITLE,.ABORT) Q:ABORT
|
---|
21 | S NPROCS=""
|
---|
22 | F I=1:1:HIUSERS S NPROCS=$O(^TMP("SPN",$J,"RA","HI","H1",NPROCS)) Q:NPROCS="" D Q:ABORT
|
---|
23 | . S NDPROCS=""
|
---|
24 | . F S NDPROCS=$O(^TMP("SPN",$J,"RA","HI","H1",NPROCS,NDPROCS)) Q:NDPROCS="" D Q:ABORT
|
---|
25 | . . S COST=""
|
---|
26 | . . F S COST=$O(^TMP("SPN",$J,"RA","HI","H1",NPROCS,NDPROCS,COST)) Q:COST="" D Q:ABORT
|
---|
27 | . . . S PID=""
|
---|
28 | . . . F S PID=$O(^TMP("SPN",$J,"RA","HI","H1",NPROCS,NDPROCS,COST,PID)) Q:PID="" D Q:ABORT
|
---|
29 | . . . . I $Y>PAGELEN D HEADER^SPNLRU(.TITLE,.ABORT) Q:ABORT
|
---|
30 | . . . . D GETNAME^SPNLRU(PID,.PNAME,.PSSN)
|
---|
31 | . . . . W !,PNAME,?32,PSSN,?44,$J($FN(-NPROCS,","),10),?55,$J($FN(-NDPROCS,","),8),?68,$J($FN(-COST,",",2),12)
|
---|
32 | Q
|
---|
33 | P5(TITLE,PAGELEN,HIUSERS,ABORT) ;
|
---|
34 | ; I High user counter
|
---|
35 | ; COST Cost of the procedures
|
---|
36 | ; NDPROCS Number of different procedures
|
---|
37 | ; NPROCS Number of procedures
|
---|
38 | ; PID Patient ID (Coded SSN)
|
---|
39 | ; PNAME Patient Name
|
---|
40 | ; PSSN Patient SSN
|
---|
41 | N NPROCS,NDPROCS,COST,PID,PNAME,PSSN,I
|
---|
42 | S TITLE(5)=$$CENTER^SPNLRU("Highest Utilization Patients Based on Value")
|
---|
43 | D HEADER^SPNLRU(.TITLE,.ABORT) Q:ABORT
|
---|
44 | S COST=""
|
---|
45 | F I=1:1:HIUSERS S COST=$O(^TMP("SPN",$J,"RA","HI","H2",COST)) Q:COST="" D Q:ABORT
|
---|
46 | . S NPROCS=""
|
---|
47 | . F S NPROCS=$O(^TMP("SPN",$J,"RA","HI","H2",COST,NPROCS)) Q:NPROCS="" D Q:ABORT
|
---|
48 | . . S NDPROCS=""
|
---|
49 | . . F S NDPROCS=$O(^TMP("SPN",$J,"RA","HI","H2",COST,NPROCS,NDPROCS)) Q:NDPROCS="" D Q:ABORT
|
---|
50 | . . . S PID=""
|
---|
51 | . . . F S PID=$O(^TMP("SPN",$J,"RA","HI","H2",COST,NPROCS,NDPROCS,PID)) Q:PID="" D Q:ABORT
|
---|
52 | . . . . I $Y>PAGELEN D HEADER^SPNLRU(.TITLE,.ABORT) Q:ABORT
|
---|
53 | . . . . D GETNAME^SPNLRU(PID,.PNAME,.PSSN)
|
---|
54 | . . . . W !,PNAME,?32,PSSN,?44,$J($FN(-NPROCS,","),10),?58,$J($FN(-NDPROCS,","),8),?68,$J($FN(-COST,",",2),12)
|
---|
55 | K TITLE(4),TITLE(5),TITLE(6),TITLE(7),TITLE(8)
|
---|
56 | Q
|
---|