Released ECX*3*116 SEQ #104
Extracted from mail message
**KIDS**:ECX*3.0*116^

**INSTALL NAME**
ECX*3.0*116
"BLD",7859,0)
ECX*3.0*116^DSS EXTRACTS^0^3081210^y
"BLD",7859,1,0)
^^1^1^3081209^^
"BLD",7859,1,1,0)
This patch addes NPPD code 970 to routine ECXAPRO3.
"BLD",7859,4,0)
^9.64PA^^
"BLD",7859,6.3)
4
"BLD",7859,"KRN",0)
^9.67PA^779.2^20
"BLD",7859,"KRN",.4,0)
.4
"BLD",7859,"KRN",.401,0)
.401
"BLD",7859,"KRN",.402,0)
.402
"BLD",7859,"KRN",.403,0)
.403
"BLD",7859,"KRN",.5,0)
.5
"BLD",7859,"KRN",.84,0)
.84
"BLD",7859,"KRN",3.6,0)
3.6
"BLD",7859,"KRN",3.8,0)
3.8
"BLD",7859,"KRN",9.2,0)
9.2
"BLD",7859,"KRN",9.8,0)
9.8
"BLD",7859,"KRN",9.8,"NM",0)
^9.68A^1^1
"BLD",7859,"KRN",9.8,"NM",1,0)
ECXAPRO3^^0^B25192651
"BLD",7859,"KRN",9.8,"NM","B","ECXAPRO3",1)

"BLD",7859,"KRN",19,0)
19
"BLD",7859,"KRN",19.1,0)
19.1
"BLD",7859,"KRN",101,0)
101
"BLD",7859,"KRN",409.61,0)
409.61
"BLD",7859,"KRN",771,0)
771
"BLD",7859,"KRN",779.2,0)
779.2
"BLD",7859,"KRN",870,0)
870
"BLD",7859,"KRN",8989.51,0)
8989.51
"BLD",7859,"KRN",8989.52,0)
8989.52
"BLD",7859,"KRN",8994,0)
8994
"BLD",7859,"KRN","B",.4,.4)

"BLD",7859,"KRN","B",.401,.401)

"BLD",7859,"KRN","B",.402,.402)

"BLD",7859,"KRN","B",.403,.403)

"BLD",7859,"KRN","B",.5,.5)

"BLD",7859,"KRN","B",.84,.84)

"BLD",7859,"KRN","B",3.6,3.6)

"BLD",7859,"KRN","B",3.8,3.8)

"BLD",7859,"KRN","B",9.2,9.2)

"BLD",7859,"KRN","B",9.8,9.8)

"BLD",7859,"KRN","B",19,19)

"BLD",7859,"KRN","B",19.1,19.1)

"BLD",7859,"KRN","B",101,101)

"BLD",7859,"KRN","B",409.61,409.61)

"BLD",7859,"KRN","B",771,771)

"BLD",7859,"KRN","B",779.2,779.2)

"BLD",7859,"KRN","B",870,870)

"BLD",7859,"KRN","B",8989.51,8989.51)

"BLD",7859,"KRN","B",8989.52,8989.52)

"BLD",7859,"KRN","B",8994,8994)

"BLD",7859,"QUES",0)
^9.62^^
"BLD",7859,"REQB",0)
^9.611^2^2
"BLD",7859,"REQB",1,0)
ECX*3.0*94^2
"BLD",7859,"REQB",2,0)
RMPR*3.0*144^2
"BLD",7859,"REQB","B","ECX*3.0*94",1)

"BLD",7859,"REQB","B","RMPR*3.0*144",2)

"MBREQ")
0
"PKG",535,-1)
1^1
"PKG",535,0)
DSS EXTRACTS^ECX
"PKG",535,20,0)
^9.402P^^
"PKG",535,22,0)
^9.49I^1^1
"PKG",535,22,1,0)
3.0^2971222^3000224^66481
"PKG",535,22,1,"PAH",1,0)
116^3081210
"PKG",535,22,1,"PAH",1,1,0)
^^1^1^3081210
"PKG",535,22,1,"PAH",1,1,1,0)
This patch addes NPPD code 970 to routine ECXAPRO3.
"QUES","XPF1",0)
Y
"QUES","XPF1","??")
^D REP^XPDH
"QUES","XPF1","A")
Shall I write over your |FLAG| File
"QUES","XPF1","B")
YES
"QUES","XPF1","M")
D XPF1^XPDIQ
"QUES","XPF2",0)
Y
"QUES","XPF2","??")
^D DTA^XPDH
"QUES","XPF2","A")
Want my data |FLAG| yours
"QUES","XPF2","B")
YES
"QUES","XPF2","M")
D XPF2^XPDIQ
"QUES","XPI1",0)
YO
"QUES","XPI1","??")
^D INHIBIT^XPDH
"QUES","XPI1","A")
Want KIDS to INHIBIT LOGONs during the install
"QUES","XPI1","B")
NO
"QUES","XPI1","M")
D XPI1^XPDIQ
"QUES","XPM1",0)
PO^VA(200,:EM
"QUES","XPM1","??")
^D MG^XPDH
"QUES","XPM1","A")
Enter the Coordinator for Mail Group '|FLAG|'
"QUES","XPM1","B")

"QUES","XPM1","M")
D XPM1^XPDIQ
"QUES","XPO1",0)
Y
"QUES","XPO1","??")
^D MENU^XPDH
"QUES","XPO1","A")
Want KIDS to Rebuild Menu Trees Upon Completion of Install
"QUES","XPO1","B")
NO
"QUES","XPO1","M")
D XPO1^XPDIQ
"QUES","XPZ1",0)
Y
"QUES","XPZ1","??")
^D OPT^XPDH
"QUES","XPZ1","A")
Want to DISABLE Scheduled Options, Menu Options, and Protocols
"QUES","XPZ1","B")
NO
"QUES","XPZ1","M")
D XPZ1^XPDIQ
"QUES","XPZ2",0)
Y
"QUES","XPZ2","??")
^D RTN^XPDH
"QUES","XPZ2","A")
Want to MOVE routines to other CPUs
"QUES","XPZ2","B")
NO
"QUES","XPZ2","M")
D XPZ2^XPDIQ
"RTN")
1
"RTN","ECXAPRO3")
0^1^B25192651^B24620502
"RTN","ECXAPRO3",1,0)
ECXAPRO3 ;ALB/JAP - PRO Extract Audit Report (cont) ; DEC 03,2008
"RTN","ECXAPRO3",2,0)
 ;;3.0;DSS EXTRACTS;**21,31,76,94,116**;Dec 22, 1997;Build 4
"RTN","ECXAPRO3",3,0)
 ;
"RTN","ECXAPRO3",4,0)
TEXT ;description of line numbers as in des^rmprn62 plus summary headers
"RTN","ECXAPRO3",5,0)
 ;;100;WHEELCHAIRS AND ACCESSORIES
"RTN","ECXAPRO3",6,0)
 ;;100 A;MOTORIZED
"RTN","ECXAPRO3",7,0)
 ;;100 A1;SCOOTERS
"RTN","ECXAPRO3",8,0)
 ;;100 B;MANUAL CUSTOM
"RTN","ECXAPRO3",9,0)
 ;;100 C;MANUAL A/O
"RTN","ECXAPRO3",10,0)
 ;;100 D;ACCESSORIES
"RTN","ECXAPRO3",11,0)
 ;;100 E;CUSHION FOAM
"RTN","ECXAPRO3",12,0)
 ;;100 F;CUSHION SPEC
"RTN","ECXAPRO3",13,0)
 ;;100 G;CARRIERS
"RTN","ECXAPRO3",14,0)
 ;;100 H;NSC VAN MODS
"RTN","ECXAPRO3",15,0)
 ;;100 I;SCOOTER ACCESSORIES
"RTN","ECXAPRO3",16,0)
 ;;200;ARTIFICIAL LEGS
"RTN","ECXAPRO3",17,0)
 ;;200 A;LEG IPOP
"RTN","ECXAPRO3",18,0)
 ;;200 B;LEG TEM
"RTN","ECXAPRO3",19,0)
 ;;200 C;LEG PART FOOT
"RTN","ECXAPRO3",20,0)
 ;;200 E;LEG SYMES
"RTN","ECXAPRO3",21,0)
 ;;200 F;LEG B/K
"RTN","ECXAPRO3",22,0)
 ;;200 G;LEG A/O
"RTN","ECXAPRO3",23,0)
 ;;200 H;LEG A/K
"RTN","ECXAPRO3",24,0)
 ;;200 I;LEG COMPONENT
"RTN","ECXAPRO3",25,0)
 ;;300;ARTIFICIAL ARMS AND TERMINAL DEVICES
"RTN","ECXAPRO3",26,0)
 ;;300 A;ARM B/E
"RTN","ECXAPRO3",27,0)
 ;;300 B;ARM, A/E
"RTN","ECXAPRO3",28,0)
 ;;300 C;COSMETIC GLOVES
"RTN","ECXAPRO3",29,0)
 ;;300 D;ARM, A/O
"RTN","ECXAPRO3",30,0)
 ;;300 E;TERMINAL DEVICES
"RTN","ECXAPRO3",31,0)
 ;;300 F;EXT. POWERED,ARM
"RTN","ECXAPRO3",32,0)
 ;;400;BRACES AND ORTHOTICS
"RTN","ECXAPRO3",33,0)
 ;;400 A;BRACE ANKLE
"RTN","ECXAPRO3",34,0)
 ;;400 B;BRACE LEG AK
"RTN","ECXAPRO3",35,0)
 ;;400 C;BRACE, SPINAL
"RTN","ECXAPRO3",36,0)
 ;;400 D;BRACE AL/OTH
"RTN","ECXAPRO3",37,0)
 ;;400 E;ELAS HOSE, EA
"RTN","ECXAPRO3",38,0)
 ;;400 F;BRACES, KNEE
"RTN","ECXAPRO3",39,0)
 ;;400 G;CORSET/BELT
"RTN","ECXAPRO3",40,0)
 ;;400 H;ORTHOSIS WHO
"RTN","ECXAPRO3",41,0)
 ;;400 X;ORTHOTICS UNKNOWN
"RTN","ECXAPRO3",42,0)
 ;;500;SHOES/ORTHOTICS
"RTN","ECXAPRO3",43,0)
 ;;500 A;ARCH SUPT, EA
"RTN","ECXAPRO3",44,0)
 ;;500 B;SHOE INLAY, EA
"RTN","ECXAPRO3",45,0)
 ;;500 C;SHOE MOLDED, EA
"RTN","ECXAPRO3",46,0)
 ;;500 D;SHOE ORTH OTH
"RTN","ECXAPRO3",47,0)
 ;;500 E;INSERTS, SHOE
"RTN","ECXAPRO3",48,0)
 ;;500 F;SHOES A/O, EA
"RTN","ECXAPRO3",49,0)
 ;;600;NEUROSENSORY AIDS
"RTN","ECXAPRO3",50,0)
 ;;600 1;EYEGLASSES PR
"RTN","ECXAPRO3",51,0)
 ;;600 A;SP OVER 2,500
"RTN","ECXAPRO3",52,0)
 ;;600 B;HEARING AIDS
"RTN","ECXAPRO3",53,0)
 ;;600 C;AID FOR BLIND
"RTN","ECXAPRO3",54,0)
 ;;600 D;CONT LENS, EA.
"RTN","ECXAPRO3",55,0)
 ;;600 E;EAR INSERT
"RTN","ECXAPRO3",56,0)
 ;;600 F;ASST LISTENING DEVICES
"RTN","ECXAPRO3",57,0)
 ;;600 G;SPEECH DEVICES
"RTN","ECXAPRO3",58,0)
 ;;700;RESTORATIONS
"RTN","ECXAPRO3",59,0)
 ;;700 A;EYE
"RTN","ECXAPRO3",60,0)
 ;;700 B;FACIAL
"RTN","ECXAPRO3",61,0)
 ;;700 C;BODY, OTHER
"RTN","ECXAPRO3",62,0)
 ;;800;OXYGEN AND RESPIRATORY
"RTN","ECXAPRO3",63,0)
 ;;800 A;OXYGEN EQP
"RTN","ECXAPRO3",64,0)
 ;;800 B;OXYGEN CONCEN
"RTN","ECXAPRO3",65,0)
 ;;800 C;OXYGEN GAS
"RTN","ECXAPRO3",66,0)
 ;;800 D;OXYGEN, SUPPLIES
"RTN","ECXAPRO3",67,0)
 ;;800 E;OXYGEN LIQUID
"RTN","ECXAPRO3",68,0)
 ;;800 F;VENTILATOR, A/O
"RTN","ECXAPRO3",69,0)
 ;;800 G;RESPIRATORY EQUIPMENT
"RTN","ECXAPRO3",70,0)
 ;;800 H;RESPIRATORY SUPPLIES
"RTN","ECXAPRO3",71,0)
 ;;900;MEDICAL EQUIPMENT
"RTN","ECXAPRO3",72,0)
 ;;900 A;WALKING AIDS
"RTN","ECXAPRO3",73,0)
 ;;900 B;INVALID LIFT
"RTN","ECXAPRO3",74,0)
 ;;900 C;BED HOSP STD
"RTN","ECXAPRO3",75,0)
 ;;900 D;BED HOSP SPEC
"RTN","ECXAPRO3",76,0)
 ;;900 E;MATTRESS STAN
"RTN","ECXAPRO3",77,0)
 ;;900 F;MATTRESS SPEC
"RTN","ECXAPRO3",78,0)
 ;;900 G;BED, ACCESSORIES
"RTN","ECXAPRO3",79,0)
 ;;900 H;ENVIRON CONTR
"RTN","ECXAPRO3",80,0)
 ;;900 I;SPEC HOME EQP (SAFETY)
"RTN","ECXAPRO3",81,0)
 ;;900 J;TENS UNIT
"RTN","ECXAPRO3",82,0)
 ;;900 K;MED EQP AL/OTH
"RTN","ECXAPRO3",83,0)
 ;;900 L;EQP RENTAL
"RTN","ECXAPRO3",84,0)
 ;;900 M;COMPUTER EQUIPMENT
"RTN","ECXAPRO3",85,0)
 ;;900 N;TELEHEALTH
"RTN","ECXAPRO3",86,0)
 ;;910;ALL OTHER SUPPLIES AND EQUIPMENT
"RTN","ECXAPRO3",87,0)
 ;;910 A;MED SUP AL/OTH
"RTN","ECXAPRO3",88,0)
 ;;920;HOME DIALYSIS PROGRAM
"RTN","ECXAPRO3",89,0)
 ;;920 A;HOME DIAL EQP
"RTN","ECXAPRO3",90,0)
 ;;920 B;HOME DIAL SUP
"RTN","ECXAPRO3",91,0)
 ;;930;ADAPTIVE EQUIPMENT
"RTN","ECXAPRO3",92,0)
 ;;930 A;MOD VANS
"RTN","ECXAPRO3",93,0)
 ;;930 B;ADAPT EQP AL/OTH
"RTN","ECXAPRO3",94,0)
 ;;940;HISA
"RTN","ECXAPRO3",95,0)
 ;;940 A;HISA SC
"RTN","ECXAPRO3",96,0)
 ;;940 B;HISA NSC
"RTN","ECXAPRO3",97,0)
 ;;960;SURGICAL IMPLANTS
"RTN","ECXAPRO3",98,0)
 ;;960 A;HEAD & NECK
"RTN","ECXAPRO3",99,0)
 ;;960 A1;H&N INTRAOCULAR LENS
"RTN","ECXAPRO3",100,0)
 ;;960 A2;H&N HEAD
"RTN","ECXAPRO3",101,0)
 ;;960 A3;H&N NECK
"RTN","ECXAPRO3",102,0)
 ;;960 A4;H&N EYES A/O
"RTN","ECXAPRO3",103,0)
 ;;960 B;ABDOMEN
"RTN","ECXAPRO3",104,0)
 ;;960 B1;ABDOMEN STENT
"RTN","ECXAPRO3",105,0)
 ;;960 B2;ABDOMEN MESH
"RTN","ECXAPRO3",106,0)
 ;;960 B3;ABDOMEN CATHETER
"RTN","ECXAPRO3",107,0)
 ;;960 C;UPPER EXTREMITY
"RTN","ECXAPRO3",108,0)
 ;;960 C1;UE ARM
"RTN","ECXAPRO3",109,0)
 ;;960 C2;UE SHOULDER
"RTN","ECXAPRO3",110,0)
 ;;960 C3;UE HAND
"RTN","ECXAPRO3",111,0)
 ;;960 D;LOWER EXTREMITY
"RTN","ECXAPRO3",112,0)
 ;;960 D1;LE HIP
"RTN","ECXAPRO3",113,0)
 ;;960 D2;LE KNEE
"RTN","ECXAPRO3",114,0)
 ;;960 D3;LE FOOT
"RTN","ECXAPRO3",115,0)
 ;;960 E;THORACIC
"RTN","ECXAPRO3",116,0)
 ;;960 E1;THOR PACEMAKER/LEADS
"RTN","ECXAPRO3",117,0)
 ;;960 E2;THOR ICD/LEADS
"RTN","ECXAPRO3",118,0)
 ;;960 E3;THOR STENTS
"RTN","ECXAPRO3",119,0)
 ;;960 E4;THOR VALVE
"RTN","ECXAPRO3",120,0)
 ;;960 F;DENTAL IMPLANT
"RTN","ECXAPRO3",121,0)
 ;;960 G;ALL SCRWS,PLTS, ANCRS, ETC.
"RTN","ECXAPRO3",122,0)
 ;;960 X;SI UNKNOWNS (ALL)
"RTN","ECXAPRO3",123,0)
 ;;970;BIO IMPLANTS
"RTN","ECXAPRO3",124,0)
 ;;970 A;BIOLOGICAL IMPLANTS
"RTN","ECXAPRO3",125,0)
 ;;999;MISC
"RTN","ECXAPRO3",126,0)
 ;;999 A;AL/OTH ITEMS
"RTN","ECXAPRO3",127,0)
 ;;999 X;HCPCS NOT GRP
"RTN","ECXAPRO3",128,0)
 ;;999 Z;NO HCPCS
"RTN","ECXAPRO3",129,0)
 ;;R07;HEARING AID, LOCAL REPAIRS
"RTN","ECXAPRO3",130,0)
 ;;R10;WHEELCHAIRS AND ACCESSORIES
"RTN","ECXAPRO3",131,0)
 ;;R10 A;WHEELCHAIR
"RTN","ECXAPRO3",132,0)
 ;;R10 B;CARRIERS
"RTN","ECXAPRO3",133,0)
 ;;R10 C;NSC VAN MODS
"RTN","ECXAPRO3",134,0)
 ;;R10 ;WHEELCHAIR
"RTN","ECXAPRO3",135,0)
 ;;R20;ARTIFICIAL LEGS
"RTN","ECXAPRO3",136,0)
 ;;R20 A;LEG A/K
"RTN","ECXAPRO3",137,0)
 ;;R20 B;LEG B/K, PTB
"RTN","ECXAPRO3",138,0)
 ;;R20 C;LEG B/K, STD
"RTN","ECXAPRO3",139,0)
 ;;R20 D;LEG ALL OTHER
"RTN","ECXAPRO3",140,0)
 ;;R30;ARTIFICIAL ARMS AND TERMINAL DEVICES
"RTN","ECXAPRO3",141,0)
 ;;R30 ;ART ARM,TOTAL
"RTN","ECXAPRO3",142,0)
 ;;R40;BRACES AND ORTHOTICS
"RTN","ECXAPRO3",143,0)
 ;;R40 ;BRACE TOTAL
"RTN","ECXAPRO3",144,0)
 ;;R50;SHOES/ORTHOTICS
"RTN","ECXAPRO3",145,0)
 ;;R50 A;ORTH SHOE ALL
"RTN","ECXAPRO3",146,0)
 ;;R50 B;SHOE MOD
"RTN","ECXAPRO3",147,0)
 ;;R50 C;A/O ITEM SERV
"RTN","ECXAPRO3",148,0)
 ;;R60;NEUROSENSORY AIDS
"RTN","ECXAPRO3",149,0)
 ;;R60 A;AID FOR BLIND
"RTN","ECXAPRO3",150,0)
 ;;R60 B;EYEGLASS RPR
"RTN","ECXAPRO3",151,0)
 ;;R60 C;HEARING AID
"RTN","ECXAPRO3",152,0)
 ;;R60 D;ASST LISTENING DEVICE
"RTN","ECXAPRO3",153,0)
 ;;R60 E;SPEECH DEVICES
"RTN","ECXAPRO3",154,0)
 ;;R70;HOME DIALYSIS EQUIPMENT
"RTN","ECXAPRO3",155,0)
 ;;R70 ;HOME DIAL EQU
"RTN","ECXAPRO3",156,0)
 ;;R80;MEDICAL EQUIPMENT
"RTN","ECXAPRO3",157,0)
 ;;R80 A;INVALID LIFTS
"RTN","ECXAPRO3",158,0)
 ;;R80 B;REPAIR TO ECU
"RTN","ECXAPRO3",159,0)
 ;;R80 C;MED EQUIP A/O
"RTN","ECXAPRO3",160,0)
 ;;R80 D;HME DELIVERY/PICKUP
"RTN","ECXAPRO3",161,0)
 ;;R80 E;TELEHEALTH
"RTN","ECXAPRO3",162,0)
 ;;R90;ALL OTHER
"RTN","ECXAPRO3",163,0)
 ;;R90 ;ALL OTHER
"RTN","ECXAPRO3",164,0)
 ;;R90 A;SHIPPING
"RTN","ECXAPRO3",165,0)
 ;;R90 B;TRAINING
"RTN","ECXAPRO3",166,0)
 ;;R91;O2 & RESPIRATORY
"RTN","ECXAPRO3",167,0)
 ;;R91 A;CONCENTRATOR
"RTN","ECXAPRO3",168,0)
 ;;R91 B;VENTILATOR
"RTN","ECXAPRO3",169,0)
 ;;R91 C;EQUIPMENT A/O
"RTN","ECXAPRO3",170,0)
 ;;R91 D;SERVICE VISIT
"RTN","ECXAPRO3",171,0)
 ;;R91 E;COMPRESSED O2
"RTN","ECXAPRO3",172,0)
 ;;R91 F;LIQUID O2
"RTN","ECXAPRO3",173,0)
 ;;R91 G;LIQUID DEL SYS
"RTN","ECXAPRO3",174,0)
 ;;R91 H;RESPIRATORY EQUIP
"RTN","ECXAPRO3",175,0)
 ;;R99 A;SHIPPING
"RTN","ECXAPRO3",176,0)
 ;;R99 X;HCPCS NOT GRP
"RTN","ECXAPRO3",177,0)
 ;;R99 Z;NO HCPCS
"RTN","ECXAPRO3",178,0)
 ;;QUIT
"VER")
8.0^22.0
"BLD",7859,6)
^104
**END**
**END**
