IBQLR1B.m

IBQLR1B ;LEB/MRY - ACUTE/NON-ACUTE REPORT ; 14-JUL-95

 ;;1.0;UTILIZATION MGMT ROLLUP LOCAL;;Oct 01, 1995

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 ;

SVCTAB ; -- set ibsvc(ibsvc) for SERVICE names

 F I=3:1 S X=$T(SVCTAB+I) Q:X=""  S IBSVC($P(X,";",3))=$P(X,";",4)

 Q

 ;;M;MEDICINE;

 ;;S;SURGERY;

 ;;P;PSYCHIATRY;

 ;;NH;NHCU;

 ;;NE;NEUROLOGY;

 ;;I;INTERMEDIATE MED;

 ;;R;REHAB MEDICINE;

 ;;SCI;SPINAL CORD INJURY;

 ;;D;DOMICILIARY;

 ;;B;BLIND REHAB

 ;;RE;RESPITE CARE;

 ;;UNK;UNKNOWN;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBQLR1B   530     printed  Apr 09, 2024@21:42:59                                                                                                                                                                                                      Page 2

IBQLR1B   ;LEB/MRY - ACUTE/NON-ACUTE REPORT ; 14-JUL-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       ;

SVCTAB    ; -- set ibsvc(ibsvc) for SERVICE names

 +1        FOR I=3:1

               SET X=$TEXT(SVCTAB+I)

               if X=""

                   QUIT 

               SET IBSVC($PIECE(X,";",3))=$PIECE(X,";",4)

 +2        QUIT 

 +3       ;;M;MEDICINE;

 +4       ;;S;SURGERY;

 +5       ;;P;PSYCHIATRY;

 +6       ;;NH;NHCU;

 +7       ;;NE;NEUROLOGY;

 +8       ;;I;INTERMEDIATE MED;

 +9       ;;R;REHAB MEDICINE;

 +10      ;;SCI;SPINAL CORD INJURY;

 +11      ;;D;DOMICILIARY;

 +12      ;;B;BLIND REHAB

 +13      ;;RE;RESPITE CARE;

 +14      ;;UNK;UNKNOWN;