| [613] | 1 | A1B2OSR3 ;ALB/AAS - PRINT ODS SUMMARY REPORT ; 11-JAN-91
|
|---|
| 2 | ;;Version 1.55 (local for MAS v5 sites);;
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | RPRT ; --write report
|
|---|
| 6 | D HDR^A1B2OSR2 W !
|
|---|
| 7 | S X="Total Admissions",Y=$S($D(^UTILITY($J,"ODS-ADM-NAT")):^("ODS-ADM-NAT"),1:0) D LINE^A1B2OSR2 Q:A1B2QUIT
|
|---|
| 8 | S X="Total Discharges",Y=$S($D(^UTILITY($J,"ODS-DIS-NAT")):^("ODS-DIS-NAT"),1:0) D LINE^A1B2OSR2 Q:A1B2QUIT
|
|---|
| 9 | S X="Patients Treated",Y=Y+$S($D(^UTILITY($J,"ODS-PTRM-NAT")):^("ODS-PTRM-NAT"),1:0) D LINE^A1B2OSR2 Q:A1B2QUIT
|
|---|
| 10 | S X="No. Unique Patients Admitted",Y=$S($D(^UTILITY($J,"ODS-UNQ-ADM-NAT")):^("ODS-UNQ-ADM-NAT"),1:0) D LINE^A1B2OSR2 Q:A1B2QUIT
|
|---|
| 11 | I $D(^UTILITY($J,"ODS-UNQA-SPC-NAT")) W ! S X="No. Pts. Admitted to",Y="" D LINE^A1B2OSR2 Q:A1B2QUIT D SPC Q:A1B2QUIT
|
|---|
| 12 | I $D(^UTILITY($J,"ODS-UNQA-BOS-NAT")) W ! S X="No. Pts. Admitted from",Y="" D LINE^A1B2OSR2 Q:A1B2QUIT D BOS Q:A1B2QUIT
|
|---|
| 13 | W ! S X="No. ODS pts. to Non-VA Care",Y=$S($D(^UTILITY($J,"ODS-TRF-NVA-NAT")):^("ODS-TRF-NVA-NAT"),1:0) D LINE^A1B2OSR2 Q:A1B2QUIT
|
|---|
| 14 | S X="No. Vets Displaced to Non-VA Care",Y=$S($D(^UTILITY($J,"ODS-DISP-NVA-NAT")):^("ODS-DISP-NVA-NAT"),1:0) D LINE^A1B2OSR2 Q:A1B2QUIT
|
|---|
| 15 | S X="No. Vets Displaced to VA Care",Y=$S($D(^UTILITY($J,"ODS-DISP-VA-NAT")):^("ODS-DISP-VA-NAT"),1:0) D LINE^A1B2OSR2 Q:A1B2QUIT
|
|---|
| 16 | F M=0:0 Q:($Y+6)>IOSL W !
|
|---|
| 17 | W ?IOM-30,"DATE PRINTED: ",A1B2DATE,!
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
| 20 | SPC S SPC="" F J=0:0 S SPC=$O(^UTILITY($J,"ODS-UNQA-SPC-NAT",SPC)) Q:SPC=""!(A1B2QUIT) S Y=^(SPC),X=$P($T(@(SPC)),";",3) D LINE^A1B2OSR2 Q:A1B2QUIT
|
|---|
| 21 | Q
|
|---|
| 22 | ;
|
|---|
| 23 | BOS S BOS="" F J=0:0 S BOS=$O(^UTILITY($J,"ODS-UNQA-BOS-NAT",BOS)) Q:BOS=""!(A1B2QUIT) S Y=^(BOS),X=$S($D(^DIC(23,BOS,0)):$P(^(0),"^"),1:"UNKNOWN") D LINE^A1B2OSR2 Q:A1B2QUIT
|
|---|
| 24 | Q
|
|---|
| 25 | ;
|
|---|
| 26 | M ;;Medicine
|
|---|
| 27 | S ;;Surgery
|
|---|
| 28 | R ;;Rehab Medicine
|
|---|
| 29 | P ;;Psychiatry
|
|---|
| 30 | NH ;;NHCU
|
|---|
| 31 | I ;;Intermediate
|
|---|
| 32 | SCI ;;Spinal Cord Injury
|
|---|
| 33 | D ;;Domiciliary
|
|---|
| 34 | B ;;Blind Rehab
|
|---|
| 35 | RE ;;Respite Care
|
|---|
| 36 | NE ;;Neurology
|
|---|
