ACHSPOS6 ; IHS/ITSC/PMF - DATA FOR DEFERRED SERVICES CATEGORY FILE ; [ 10/19/2001 11:01 AM ]
;;3.1;CONTRACT HEALTH MGMT SYSTEM;**18**;JUN 11, 2001
;ACHS*3.1*18 7/16/2010;IHS/OIT/ABK;Change every occurrance of Deferred to Unmet Need
;
S $ZT="ERROR^"_$ZN
S %H=$H D YX^%DTC S NOW=Y
S ^ACHSINST(ACHSVERS,$ZN,"ENTERED")=NOW
;
I $D(ACHSINST(ACHSVERS,"ERROR")) S ^ACHSINST(ACHSVERS,"ERROR","PREVIOUS ERRORS HAVE NOT BEEN CLEARED")=NOW S ERROR=1,XPDABORT=1 D START^ACHSPOSM(ERROR) Q
;
;IF FILE CHECKSOK THE FILE HAS ENTRIES DON'T OVERWRITE
;{ABK,7/16/10}I $$CHECKSOK("") S %H=$H D YX^%DTC S NOW=Y S ^ACHSINST(ACHSVERS,$ZN,"CHS DEFERRED SERVICES CATEGORY DATA FOUND")=NOW W !?15,"'CHS DEFERRED SERVICES CATEGORY' data found! Not overwriting!" D END Q
I $$CHECKSOK("") S %H=$H D YX^%DTC S NOW=Y S ^ACHSINST(ACHSVERS,$ZN,"CHS UNMET NEEDS CATEGORY DATA FOUND")=NOW W !?15,"'CHS DEFERRED SERVICES CATEGORY' data found! Not overwriting!" D END Q
;
;
N A,B,C
F A=1:2 S B=$P($T(TAG+A),";;",2) Q:B="" S @B=$P($T(TAG+(A+1)),";;",2)
D ENTER
END ;
S %H=$H D YX^%DTC S NOW=Y
S ^ACHSINST(ACHSVERS,$ZN,"FINISHED")=NOW
;
Q
ENTER ;
;
S %H=$H D YX^%DTC S NOW=Y
S ^ACHSINST(ACHSVERS,"ENTER^"_$ZN,"ENTERED")=NOW
;
;{ABK,7/16/10}W !?15,"'CHS DEFERRED SERVICES CATEGORY' data not found!"
W !?15,"'CHS UNMET NEEDS CATEGORY' data not found!"
W !?15,"Loading data! Loading data!"
S X="^TMP("_$J_",""DFC"")"
F S X=$Q(@X) Q:X=""!(X'[("""DFC""")) D
.S GLOBAL="^ACHSDFC("_$P(X,",",3,299)
.S @GLOBAL=@X
S DIK="^ACHSDFC(" D IXALL^DIK
;
S %H=$H D YX^%DTC S NOW=Y
S ^ACHSINST(ACHSVERS,"ENTER^"_$ZN,"FINISHED")=NOW
Q
;
;RESET 0 NODE AND RETURN NUMBER OF ENTRIES
CHECKSOK(X) ;
;
;{ABK,7/16/10}I '$D(^ACHSDFC(0)) S ^ACHSDFC(0)="CHS DEFERRED SERVICES CATEGORY^9002066.5^0^0"
I '$D(^ACHSDFC(0)) S ^ACHSDFC(0)="CHS UNMET NEEDS CATEGORY^9002066.5^0^0"
E S $P(^ACHSDFC(0),U,2)=9002066.5
;
;LETS FIX THE SUBFILE NUMBERS
S CAT=0
F S CAT=$O(^ACHSDFC(CAT)) Q:+CAT=0 D
.S $P(^ACHSDFC(CAT,1,0),U,2)=9002066.51
;
S XBCFIXFL=9002066.5
D XBCFIXFL^XBCFIX
Q $G(XBCFIXC)
;
ERROR S ^ACHSINST(ACHSVERS,"ERROR",$ZN,"ERROR TRAP CALLED")=""
G ^%ET
Q
TAG ;
;;^TMP($J,"DFC",1,0)
;;A-PREVENTIVE SERVICES
;;^TMP($J,"DFC",1,1,0)
;;^9002066.51^13^13
;;^TMP($J,"DFC",1,1,1,0)
;;AUDOLOGIST EVALUATIONS
;;^TMP($J,"DFC",1,1,2,0)
;;HEARING AIDS (V53.2)
;;^TMP($J,"DFC",1,1,3,0)
;;ALLERGY TESTING, INJECTIONS, ETC.
;;^TMP($J,"DFC",1,1,4,0)
;;ANTENATAL SCREENING (V28.1)
;;^TMP($J,"DFC",1,1,5,0)
;;VASECTOMIES
;;^TMP($J,"DFC",1,1,6,0)
;;TUBAL LIGATIONS
;;^TMP($J,"DFC",1,1,7,0)
;;MAMMOGRAMS
;;^TMP($J,"DFC",1,1,8,0)
;;PODIATRY CARE FOR DIABETICS
;;^TMP($J,"DFC",1,1,9,0)
;;PAP SMEAR (ROUTINE)
;;^TMP($J,"DFC",1,1,10,0)
;;PHYSICAL THERAPY
;;^TMP($J,"DFC",1,1,11,0)
;;REFRACTIONS, GLASSES, CONTACT LENSES
;;^TMP($J,"DFC",1,1,12,0)
;;SEXUALLY TRANSMITTED DISEASE SERVICES
;;^TMP($J,"DFC",1,1,13,0)
;;OTHER
;;^TMP($J,"DFC",2,0)
;;B-ACUTE/CHRONIC PRI/SEC CARE
;;^TMP($J,"DFC",2,1,0)
;;^9002066.51^51^51
;;^TMP($J,"DFC",2,1,1,0)
;;CARDIAC CATH
;;^TMP($J,"DFC",2,1,2,0)
;;ARTERIOGRAM
;;^TMP($J,"DFC",2,1,3,0)
;;ANGIOGRAM
;;^TMP($J,"DFC",2,1,4,0)
;;OTHER CARDIAC PROCEDURES
;;^TMP($J,"DFC",2,1,5,0)
;;STRESS TESTS
;;^TMP($J,"DFC",2,1,6,0)
;;ORTHODONTICS (BRACES)
;;^TMP($J,"DFC",2,1,7,0)
;;PROSTHODONTICS (CROWN, BRIDGE)
;;^TMP($J,"DFC",2,1,8,0)
;;ENDODONTICS (ROOT CANAL)
;;^TMP($J,"DFC",2,1,9,0)
;;PERIODONTICS (GUM SURGERY)
;;^TMP($J,"DFC",2,1,10,0)
;;ORAL SURGERY
;;^TMP($J,"DFC",2,1,11,0)
;;OTHER DENTAL
;;^TMP($J,"DFC",2,1,12,0)
;;NON-ACUTE OTITIS MEDIA
;;^TMP($J,"DFC",2,1,13,0)
;;TYMPANOPLASTIES
;;^TMP($J,"DFC",2,1,14,0)
;;T & A'S
;;^TMP($J,"DFC",2,1,15,0)
;;SEPTO-RHINOPLASTIES
;;^TMP($J,"DFC",2,1,16,0)
;;P E TUBES
;;^TMP($J,"DFC",2,1,17,0)
;;OTHER ENT
;;^TMP($J,"DFC",2,1,18,0)
;;HYSTERECTOMY
;;^TMP($J,"DFC",2,1,19,0)
;;OTHER GYN ELECTIVE PROCEDURES
;;^TMP($J,"DFC",2,1,20,0)
;;DERMATOLOGY
;;^TMP($J,"DFC",2,1,21,0)
;;EEG/EMG
;;^TMP($J,"DFC",2,1,22,0)
;;INTERNAL MEDICINE
;;^TMP($J,"DFC",2,1,23,0)
;;NEPHROLOGY/IVP'S
;;^TMP($J,"DFC",2,1,24,0)
;;HEMATOLOGY
;;^TMP($J,"DFC",2,1,25,0)
;;ONCOLOGY
;;^TMP($J,"DFC",2,1,26,0)
;;GI/GASTROSCOPY
;;^TMP($J,"DFC",2,1,27,0)
;;PULMONARY
;;^TMP($J,"DFC",2,1,28,0)
;;CAT SCANS/NUCLEAR MED/MRI
;;^TMP($J,"DFC",2,1,29,0)
;;ENDROCRINOLOGY
;;^TMP($J,"DFC",2,1,30,0)
;;RHEUMATOLOGY
;;^TMP($J,"DFC",2,1,31,0)
;;PODIATRY
;;^TMP($J,"DFC",2,1,32,0)
;;GENETIC COUNSELLING
;;^TMP($J,"DFC",2,1,33,0)
;;OTHER REFERRALS/PROCEDURES
;;^TMP($J,"DFC",2,1,34,0)
;;CATARACT SURGERY
;;^TMP($J,"DFC",2,1,35,0)
;;DIABETIC RETINOPATHY/LASER
;;^TMP($J,"DFC",2,1,36,0)
;;OTHER OPTHALMOLOGIC
;;^TMP($J,"DFC",2,1,37,0)
;;ARTHROSCOPY
;;^TMP($J,"DFC",2,1,38,0)
;;TENDON REPAIR/CARPAL TUNNEL
;;^TMP($J,"DFC",2,1,39,0)
;;OTHER ORTHOPEDIC
;;^TMP($J,"DFC",2,1,40,0)
;;PROSTHETIC DEVICES V52 (ART. LIMBS, BRACES, ETC)
;;^TMP($J,"DFC",2,1,41,0)
;;OTHER DEVICES (SHOE INSERTS, SHOES, STOCKINGS)
;;^TMP($J,"DFC",2,1,42,0)
;;WHEELCHAIRS
;;^TMP($J,"DFC",2,1,43,0)
;;OTHER PROSTHETICS/ORTHOTICS
;;^TMP($J,"DFC",2,1,44,0)
;;PSYCHIATRIC EVALUATIONS
;;^TMP($J,"DFC",2,1,45,0)
;;HEMORRHOIDECTOMY
;;^TMP($J,"DFC",2,1,46,0)
;;CHOLECYSTECTOMY
;;^TMP($J,"DFC",2,1,47,0)
;;CIRCUMCISIONS
;;^TMP($J,"DFC",2,1,48,0)
;;COLONSCOPY
;;^TMP($J,"DFC",2,1,49,0)
;;HERNIA REPAIR
;;^TMP($J,"DFC",2,1,50,0)
;;UROLOGY/CYSTOSCOPY
;;^TMP($J,"DFC",2,1,51,0)
;;OTHER SURGICAL REFERRALS/PROCEDURES
;;^TMP($J,"DFC",3,0)
;;C-ACUTE/CHRONIC TERTIARY CARE
;;^TMP($J,"DFC",3,1,0)
;;^9002066.51^8^8
;;^TMP($J,"DFC",3,1,1,0)
;;CORONARY BYPASS & VASCULAR SURGERY
;;^TMP($J,"DFC",3,1,2,0)
;;TRANSPLANTS V42
;;^TMP($J,"DFC",3,1,3,0)
;;RESTORATIVE ORTHO (eg. HIP,KNEE REPLACEMENT)
;;^TMP($J,"DFC",3,1,4,0)
;;RECONSTRUCTIVE SURGERY (CLEFT PALATE, SKIN GRAFTS)
;;^TMP($J,"DFC",3,1,5,0)
;;PACEMAKER IMPLANTS
;;^TMP($J,"DFC",3,1,6,0)
;;KIDNEY STONES (LITHOTRIPSY, ETC)
;;^TMP($J,"DFC",3,1,7,0)
;;GALL STONES (LITHOTRIPSY, ETC)
;;^TMP($J,"DFC",3,1,8,0)
;;OTHER ACUTE/CHRONIC TERTIARY CARE
;;
ACHSPOS6 ; IHS/ITSC/PMF - DATA FOR DEFERRED SERVICES CATEGORY FILE ; [ 10/19/2001 11:01 AM ]
+1 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;**18**;JUN 11, 2001
+2 ;ACHS*3.1*18 7/16/2010;IHS/OIT/ABK;Change every occurrance of Deferred to Unmet Need
+3 ;
+4 SET $ZT="ERROR^"_$ZN
+5 SET %H=$HOROLOG
DO YX^%DTC
SET NOW=Y
+6 SET ^ACHSINST(ACHSVERS,$ZN,"ENTERED")=NOW
+7 ;
+8 IF $DATA(ACHSINST(ACHSVERS,"ERROR"))
SET ^ACHSINST(ACHSVERS,"ERROR","PREVIOUS ERRORS HAVE NOT BEEN CLEARED")=NOW
SET ERROR=1
SET XPDABORT=1
DO START^ACHSPOSM(ERROR)
QUIT
+9 ;
+10 ;IF FILE CHECKSOK THE FILE HAS ENTRIES DON'T OVERWRITE
+11 ;{ABK,7/16/10}I $$CHECKSOK("") S %H=$H D YX^%DTC S NOW=Y S ^ACHSINST(ACHSVERS,$ZN,"CHS DEFERRED SERVICES CATEGORY DATA FOUND")=NOW W !?15,"'CHS DEFERRED SERVICES CATEGORY' data found! Not overwriting!" D END Q
+12 IF $$CHECKSOK("")
SET %H=$HOROLOG
DO YX^%DTC
SET NOW=Y
SET ^ACHSINST(ACHSVERS,$ZN,"CHS UNMET NEEDS CATEGORY DATA FOUND")=NOW
WRITE !?15,"'CHS DEFERRED SERVICES CATEGORY' data found! Not overwriting!"
DO END
QUIT
+13 ;
+14 ;
+15 NEW A,B,C
+16 FOR A=1:2
SET B=$PIECE($TEXT(TAG+A),";;",2)
IF B=""
QUIT
SET @B=$PIECE($TEXT(TAG+(A+1)),";;",2)
+17 DO ENTER
END ;
+1 SET %H=$HOROLOG
DO YX^%DTC
SET NOW=Y
+2 SET ^ACHSINST(ACHSVERS,$ZN,"FINISHED")=NOW
+3 ;
+4 QUIT
ENTER ;
+1 ;
+2 SET %H=$HOROLOG
DO YX^%DTC
SET NOW=Y
+3 SET ^ACHSINST(ACHSVERS,"ENTER^"_$ZN,"ENTERED")=NOW
+4 ;
+5 ;{ABK,7/16/10}W !?15,"'CHS DEFERRED SERVICES CATEGORY' data not found!"
+6 WRITE !?15,"'CHS UNMET NEEDS CATEGORY' data not found!"
+7 WRITE !?15,"Loading data! Loading data!"
+8 SET X="^TMP("_$JOB_",""DFC"")"
+9 FOR
SET X=$QUERY(@X)
IF X=""!(X'[("""DFC"""))
QUIT
Begin DoDot:1
+10 SET GLOBAL="^ACHSDFC("_$PIECE(X,",",3,299)
+11 SET @GLOBAL=@X
End DoDot:1
+12 SET DIK="^ACHSDFC("
DO IXALL^DIK
+13 ;
+14 SET %H=$HOROLOG
DO YX^%DTC
SET NOW=Y
+15 SET ^ACHSINST(ACHSVERS,"ENTER^"_$ZN,"FINISHED")=NOW
+16 QUIT
+17 ;
+18 ;RESET 0 NODE AND RETURN NUMBER OF ENTRIES
CHECKSOK(X) ;
+1 ;
+2 ;{ABK,7/16/10}I '$D(^ACHSDFC(0)) S ^ACHSDFC(0)="CHS DEFERRED SERVICES CATEGORY^9002066.5^0^0"
+3 IF '$DATA(^ACHSDFC(0))
SET ^ACHSDFC(0)="CHS UNMET NEEDS CATEGORY^9002066.5^0^0"
+4 IF '$TEST
SET $PIECE(^ACHSDFC(0),U,2)=9002066.5
+5 ;
+6 ;LETS FIX THE SUBFILE NUMBERS
+7 SET CAT=0
+8 FOR
SET CAT=$ORDER(^ACHSDFC(CAT))
IF +CAT=0
QUIT
Begin DoDot:1
+9 SET $PIECE(^ACHSDFC(CAT,1,0),U,2)=9002066.51
End DoDot:1
+10 ;
+11 SET XBCFIXFL=9002066.5
+12 DO XBCFIXFL^XBCFIX
+13 QUIT $GET(XBCFIXC)
+14 ;
ERROR SET ^ACHSINST(ACHSVERS,"ERROR",$ZN,"ERROR TRAP CALLED")=""
+1 GOTO ^%ET
+2 QUIT
TAG ;
+1 ;;^TMP($J,"DFC",1,0)
+2 ;;A-PREVENTIVE SERVICES
+3 ;;^TMP($J,"DFC",1,1,0)
+4 ;;^9002066.51^13^13
+5 ;;^TMP($J,"DFC",1,1,1,0)
+6 ;;AUDOLOGIST EVALUATIONS
+7 ;;^TMP($J,"DFC",1,1,2,0)
+8 ;;HEARING AIDS (V53.2)
+9 ;;^TMP($J,"DFC",1,1,3,0)
+10 ;;ALLERGY TESTING, INJECTIONS, ETC.
+11 ;;^TMP($J,"DFC",1,1,4,0)
+12 ;;ANTENATAL SCREENING (V28.1)
+13 ;;^TMP($J,"DFC",1,1,5,0)
+14 ;;VASECTOMIES
+15 ;;^TMP($J,"DFC",1,1,6,0)
+16 ;;TUBAL LIGATIONS
+17 ;;^TMP($J,"DFC",1,1,7,0)
+18 ;;MAMMOGRAMS
+19 ;;^TMP($J,"DFC",1,1,8,0)
+20 ;;PODIATRY CARE FOR DIABETICS
+21 ;;^TMP($J,"DFC",1,1,9,0)
+22 ;;PAP SMEAR (ROUTINE)
+23 ;;^TMP($J,"DFC",1,1,10,0)
+24 ;;PHYSICAL THERAPY
+25 ;;^TMP($J,"DFC",1,1,11,0)
+26 ;;REFRACTIONS, GLASSES, CONTACT LENSES
+27 ;;^TMP($J,"DFC",1,1,12,0)
+28 ;;SEXUALLY TRANSMITTED DISEASE SERVICES
+29 ;;^TMP($J,"DFC",1,1,13,0)
+30 ;;OTHER
+31 ;;^TMP($J,"DFC",2,0)
+32 ;;B-ACUTE/CHRONIC PRI/SEC CARE
+33 ;;^TMP($J,"DFC",2,1,0)
+34 ;;^9002066.51^51^51
+35 ;;^TMP($J,"DFC",2,1,1,0)
+36 ;;CARDIAC CATH
+37 ;;^TMP($J,"DFC",2,1,2,0)
+38 ;;ARTERIOGRAM
+39 ;;^TMP($J,"DFC",2,1,3,0)
+40 ;;ANGIOGRAM
+41 ;;^TMP($J,"DFC",2,1,4,0)
+42 ;;OTHER CARDIAC PROCEDURES
+43 ;;^TMP($J,"DFC",2,1,5,0)
+44 ;;STRESS TESTS
+45 ;;^TMP($J,"DFC",2,1,6,0)
+46 ;;ORTHODONTICS (BRACES)
+47 ;;^TMP($J,"DFC",2,1,7,0)
+48 ;;PROSTHODONTICS (CROWN, BRIDGE)
+49 ;;^TMP($J,"DFC",2,1,8,0)
+50 ;;ENDODONTICS (ROOT CANAL)
+51 ;;^TMP($J,"DFC",2,1,9,0)
+52 ;;PERIODONTICS (GUM SURGERY)
+53 ;;^TMP($J,"DFC",2,1,10,0)
+54 ;;ORAL SURGERY
+55 ;;^TMP($J,"DFC",2,1,11,0)
+56 ;;OTHER DENTAL
+57 ;;^TMP($J,"DFC",2,1,12,0)
+58 ;;NON-ACUTE OTITIS MEDIA
+59 ;;^TMP($J,"DFC",2,1,13,0)
+60 ;;TYMPANOPLASTIES
+61 ;;^TMP($J,"DFC",2,1,14,0)
+62 ;;T & A'S
+63 ;;^TMP($J,"DFC",2,1,15,0)
+64 ;;SEPTO-RHINOPLASTIES
+65 ;;^TMP($J,"DFC",2,1,16,0)
+66 ;;P E TUBES
+67 ;;^TMP($J,"DFC",2,1,17,0)
+68 ;;OTHER ENT
+69 ;;^TMP($J,"DFC",2,1,18,0)
+70 ;;HYSTERECTOMY
+71 ;;^TMP($J,"DFC",2,1,19,0)
+72 ;;OTHER GYN ELECTIVE PROCEDURES
+73 ;;^TMP($J,"DFC",2,1,20,0)
+74 ;;DERMATOLOGY
+75 ;;^TMP($J,"DFC",2,1,21,0)
+76 ;;EEG/EMG
+77 ;;^TMP($J,"DFC",2,1,22,0)
+78 ;;INTERNAL MEDICINE
+79 ;;^TMP($J,"DFC",2,1,23,0)
+80 ;;NEPHROLOGY/IVP'S
+81 ;;^TMP($J,"DFC",2,1,24,0)
+82 ;;HEMATOLOGY
+83 ;;^TMP($J,"DFC",2,1,25,0)
+84 ;;ONCOLOGY
+85 ;;^TMP($J,"DFC",2,1,26,0)
+86 ;;GI/GASTROSCOPY
+87 ;;^TMP($J,"DFC",2,1,27,0)
+88 ;;PULMONARY
+89 ;;^TMP($J,"DFC",2,1,28,0)
+90 ;;CAT SCANS/NUCLEAR MED/MRI
+91 ;;^TMP($J,"DFC",2,1,29,0)
+92 ;;ENDROCRINOLOGY
+93 ;;^TMP($J,"DFC",2,1,30,0)
+94 ;;RHEUMATOLOGY
+95 ;;^TMP($J,"DFC",2,1,31,0)
+96 ;;PODIATRY
+97 ;;^TMP($J,"DFC",2,1,32,0)
+98 ;;GENETIC COUNSELLING
+99 ;;^TMP($J,"DFC",2,1,33,0)
+100 ;;OTHER REFERRALS/PROCEDURES
+101 ;;^TMP($J,"DFC",2,1,34,0)
+102 ;;CATARACT SURGERY
+103 ;;^TMP($J,"DFC",2,1,35,0)
+104 ;;DIABETIC RETINOPATHY/LASER
+105 ;;^TMP($J,"DFC",2,1,36,0)
+106 ;;OTHER OPTHALMOLOGIC
+107 ;;^TMP($J,"DFC",2,1,37,0)
+108 ;;ARTHROSCOPY
+109 ;;^TMP($J,"DFC",2,1,38,0)
+110 ;;TENDON REPAIR/CARPAL TUNNEL
+111 ;;^TMP($J,"DFC",2,1,39,0)
+112 ;;OTHER ORTHOPEDIC
+113 ;;^TMP($J,"DFC",2,1,40,0)
+114 ;;PROSTHETIC DEVICES V52 (ART. LIMBS, BRACES, ETC)
+115 ;;^TMP($J,"DFC",2,1,41,0)
+116 ;;OTHER DEVICES (SHOE INSERTS, SHOES, STOCKINGS)
+117 ;;^TMP($J,"DFC",2,1,42,0)
+118 ;;WHEELCHAIRS
+119 ;;^TMP($J,"DFC",2,1,43,0)
+120 ;;OTHER PROSTHETICS/ORTHOTICS
+121 ;;^TMP($J,"DFC",2,1,44,0)
+122 ;;PSYCHIATRIC EVALUATIONS
+123 ;;^TMP($J,"DFC",2,1,45,0)
+124 ;;HEMORRHOIDECTOMY
+125 ;;^TMP($J,"DFC",2,1,46,0)
+126 ;;CHOLECYSTECTOMY
+127 ;;^TMP($J,"DFC",2,1,47,0)
+128 ;;CIRCUMCISIONS
+129 ;;^TMP($J,"DFC",2,1,48,0)
+130 ;;COLONSCOPY
+131 ;;^TMP($J,"DFC",2,1,49,0)
+132 ;;HERNIA REPAIR
+133 ;;^TMP($J,"DFC",2,1,50,0)
+134 ;;UROLOGY/CYSTOSCOPY
+135 ;;^TMP($J,"DFC",2,1,51,0)
+136 ;;OTHER SURGICAL REFERRALS/PROCEDURES
+137 ;;^TMP($J,"DFC",3,0)
+138 ;;C-ACUTE/CHRONIC TERTIARY CARE
+139 ;;^TMP($J,"DFC",3,1,0)
+140 ;;^9002066.51^8^8
+141 ;;^TMP($J,"DFC",3,1,1,0)
+142 ;;CORONARY BYPASS & VASCULAR SURGERY
+143 ;;^TMP($J,"DFC",3,1,2,0)
+144 ;;TRANSPLANTS V42
+145 ;;^TMP($J,"DFC",3,1,3,0)
+146 ;;RESTORATIVE ORTHO (eg. HIP,KNEE REPLACEMENT)
+147 ;;^TMP($J,"DFC",3,1,4,0)
+148 ;;RECONSTRUCTIVE SURGERY (CLEFT PALATE, SKIN GRAFTS)
+149 ;;^TMP($J,"DFC",3,1,5,0)
+150 ;;PACEMAKER IMPLANTS
+151 ;;^TMP($J,"DFC",3,1,6,0)
+152 ;;KIDNEY STONES (LITHOTRIPSY, ETC)
+153 ;;^TMP($J,"DFC",3,1,7,0)
+154 ;;GALL STONES (LITHOTRIPSY, ETC)
+155 ;;^TMP($J,"DFC",3,1,8,0)
+156 ;;OTHER ACUTE/CHRONIC TERTIARY CARE
+157 ;;
