source: WorldVistAEHR/trunk/r/UTILIZATION_MGMT_ROLLUP_LOCAL-IBQ/IBQLR1B.m@ 623

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

initial load of WorldVistAEHR

File size: 511 bytes
Line 
1IBQLR1B ;LEB/MRY - ACUTE/NON-ACUTE REPORT ; 14-JUL-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 ;
5SVCTAB ; -- set ibsvc(ibsvc) for SERVICE names
6 F I=3:1 S X=$T(SVCTAB+I) Q:X="" S IBSVC($P(X,";",3))=$P(X,";",4)
7 Q
8 ;;M;MEDICINE;
9 ;;S;SURGERY;
10 ;;P;PSYCHIATRY;
11 ;;NH;NHCU;
12 ;;NE;NEUROLOGY;
13 ;;I;INTERMEDIATE MED;
14 ;;R;REHAB MEDICINE;
15 ;;SCI;SPINAL CORD INJURY;
16 ;;D;DOMICILIARY;
17 ;;B;BLIND REHAB
18 ;;RE;RESPITE CARE;
19 ;;UNK;UNKNOWN;
Note: See TracBrowser for help on using the repository browser.