VistA-FOIAVistA/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRN72.m

168 lines
4.2 KiB
Mathematica

RMPRN72 ;Hines OIFO/HNC -NPPD CALCULATIONS ;9/2/04 12:12
;;3.0;PROSTHETICS;**57,70,84,91,103,134**;Feb 09, 1996;Build 4
;
; AAC Patch 84, 2/25/04, additions, deletions and change descriptions for Groups and lines
; AAC Patch 84, Changes description,100 DL,100 GL,900 IL,900 JL,R10 AL,R20 BL,R20 CL,R91 FL.
; add new lines,100 HL,100 IL,400 HL,900 NL,910 BL,R10 BL,R10 CL,R60 DL.
;
; AAC PATCH 91, ADD HCPCs R10 back into the line descriptions because they were not distributed to R10 A
; in Patch 84.
; AAC PATCH 103 - 01/17/05 NPPD CATEGORIES/LINES - NEW and REPAIR
;
; AAC PATCH 133 - 01/25/07 NPPD CATEGORIES/LINES - NEW and REPAIR
;
;build array or tmp
DES ;description of line numbers
;;100 AL;MOTORIZED
;;100 A1L;SCOOTERS
;;100 BL;MANUAL CUSTOM
;;100 CL;STANDARD
;;100 DL;WC ACCESSORIES
;;100 EL;CUSHION FOAM
;;100 FL;CUSHION SPEC
;;100 GL;LIFTS(INCLUDES WC,SCOOTERS)
;;100 HL;NSC VAN MOD
;;100 IL;SCOOTER ACCESSORIES
;;200 AL;LEG IPOP
;;200 BL;LEG TEM
;;200 CL;LEG PART FOOT
;;200 EL;LEG SYMES
;;200 FL;LEG B/K
;;200 GL;LEG A/O
;;200 HL;LEG A/K
;;200 IL;LEG COMPONENT
;;300 AL;ARM B/E
;;300 BL;ARM A/E
;;300 CL;COSMETIC GLOVES
;;300 DL;ARM A/O
;;300 EL;TERMINAL DEVICES
;;300 FL;EXT.POWERED,ARM
;;400 AL;ORTHOSIS ANKLE
;;400 BL;ORTHOSIS LEG AK
;;400 CL;ORTHOSIS, SPINAL
;;400 DL;ORTHOSIS AL/OTH
;;400 EL;ELAS HOSE, EA
;;400 FL;ORHTOSIS, KNEE
;;400 GL;CORSET/BELT
;;400 HL;ORHTOSIS,WHO
;;400 XL;ORTHOTICS UNKNOWN
;;500 AL;ARCH SUPT, EA
;;500 BL;SHOE INLAY, EA
;;500 CL;SHOE MOLDED, EA
;;500 DL;SHOE ORTH OTH
;;500 EL;INSERTS, SHOE
;;500 FL;SHOES A/O, EA
;;600 1L;EYEGLASSES PR
;;600 AL;* NO LONGER USED *
;;600 BL;HEAR AID & ACCESS
;;600 CL;AID FOR BLIND
;;600 DL;CONT LENS, EA.
;;600 EL;EAR INSERT/MOLD
;;600 FL;ASSIST LISTEN DEVICES
;;600 GL;SPEECH DEVICES
;;700 AL;EYE
;;700 BL;FACIAL
;;700 CL;BODY, OTHER
;;700 DL;BREAST PROSTHESIS
;;800 AL;OXYGEN EQP
;;800 BL;OXYGEN CONCEN
;;800 CL;MOVED TO REPAIR
;;800 DL;OXYGEN, SUPPLIES
;;800 EL;MOVED TO REPAIR
;;800 FL;VENTILATOR, A/O
;;800 GL;RESPIRATORY EQUIPMENT
;;800 HL;RESPIRATORY SUPPLIES
;;900 AL;WALKING AIDS
;;900 BL;PATIENT LIFT
;;900 CL;BED HOSP STD
;;900 DL;BED HOSP SPEC
;;900 EL;MATTRESS STAN
;;900 FL;MATTRESS SPEC
;;900 GL;BED, ACCESSORIES
;;900 HL;ENVIRON CONTR
;;900 IL;HOME SAFETY EQUIPMENT
;;900 JL;* NO LONGER USED *
;;900 KL;MED EQP AL/OTH
;;900 LL;* NO LONGER USED *
;;900 ML;COMPUTER EQUIP
;;900 NL;TELEHEALTH
;;910 AL;MED SUP AL/OTH
;;910 BL;BATTERIES
;;920 AL;HOME DIAL EQP
;;920 BL;HOME DIAL SUP
;;930 AL;MOD VANS
;;930 BL;ADAPT EQP AL/OTH
;;940 AL;HISA SC
;;940 BL;HISA NSC
;;960 AL;H&N ALL OTHER
;;960 A1L; H&N INTRAOCULAR LENS
;;960 A2L; H&N HEAD
;;960 A3L; H&N NECK
;;960 A4L; H&N EYES A/O
;;960 BL;ABDOMEN ALL OTHER
;;960 B1L;ABDOMEN STENT
;;960 B2L;ABDOMEN MESH
;;960 B3L;ABDOMEN CATHETER
;;960 CL;UE ALL OTHER
;;960 C1L;UE ARM
;;960 C2L;UE SHOULDER
;;960 C3L;UE HAND
;;960 DL;LE ALL OTHER
;;960 D1L;LE HIP
;;960 D2L;LE KNEE
;;960 D3L;LE FOOT
;;960 EL;THORACIC ALL OTHER
;;960 E1L;THOR PACEMAKER/LEADS
;;960 E2L;THOR ICD/LEADS
;;960 E3L;THOR STENTS
;;960 E4L;THOR VALVE
;;960 FL;DENTAL IMPLANTS
;;960 GL;ALL SCRWS,PLTS,ANCRS,ETC.
;;960 XL;SI UNKNOWNS(ALL)
;;999 AL;AL/OTH ITEMS
;;999 P1L;PEDS DME
;;999 P2L;ALL OTHER PEDS
;;999 XL;HCPCS NOT GRP
;;999 ZL;NO HCPCS
REP ;;R10L;* NO LONGER USED *
;;R10 AL;WHEELCHAIR
;;R10 BL;LIFTS
;;R10 CL;NSC VAN MOD
;;R20 AL;LEG A/K
;;R20 BL;* NO LONGER USED *
;;R20 CL;LEG B/K
;;R20 DL;LEG ALL OTHER
;;R30L;ART ARM,TOTAL
;;R40L;ORTHOSIS TOTAL
;;R50 AL;ORTH SHOE ALL
;;R50 BL;SHOE MOD
;;R50 CL;A/O ITEM SERV
;;R60 AL;AID FOR BLIND
;;R60 BL;EYEGLASS RPR
;;R60 CL;HEAR AID & ACCESS
;;R60 DL;ASSISTIVE LISTENING DEVICES
;;R70L;HOME DIAL EQU
;;R80 AL;PATIENT LIFTS
;;R80 BL;REPAIR TO ECU
;;R80 CL;MED EQUIP A/O
;;R80 DL;HME DELIVERY/PU
;;R80 EL;TELEHEALTH
;;R90L;ALL OTHER
;;R90 AL;NO LONGER USED
;;R90 BL;TRAINING
;;R91 AL;CONCENTRATOR
;;R91 BL;VENTILATOR
;;R91 CL;EQUIPMENT A/O
;;R91 DL;SERVICE VISIT
;;R91 EL;COMPRESSED O2
;;R91 FL;LIQUID O2(LBS)
;;R91 GL;LIQUID DELIVERY SYSTEM
;;R91 HL;RESPIRATORY EQUIP
;;R92 AL;VAN MODS
;;R92 BL;AUTO ADPT EQUIP
;;R99 AL;SHIPPING
;;R99 PL;MISC PEDS
;;R99 XL;HCPCS NOT GRP
;;R99 ZL;NO HCPCS
;;END