ECX321PT ;ALB/JAP - PATCH ECX*3*21 Post-Install ; February 26, 1999
;;3.0;DSS EXTRACTS;**21**;Dec 22, 1997
;
POST ;Entry point
;place PRO audit report option back in service
N A,DIC,DIE,DA,DR,X,Y,IENS,ECX,ECXX
K ^TMP($J,"WP")
D MES^XPDUTL(" ")
D MES^XPDUTL(" ")
D MES^XPDUTL("Removing 'Out of order' flag from")
D MES^XPDUTL("[ECX PRO SOURCE AUDIT] option.")
D MES^XPDUTL(" ")
S DIC="^DIC(19,",DIC(0)="X",X="ECX PRO SOURCE AUDIT"
D ^DIC
Q:Y=-1
S A="",DA=+Y,DIE=DIC,DR="2///@"
D ^DIE
;update audit description in PRO extract definition record
K Y S DIC="^ECX(727.1,",DIC(0)="X",X="PROSTHETICS"
D ^DIC
I Y=-1 D Q
.D MES^XPDUTL(" ")
.D MES^XPDUTL(" ")
.D MES^XPDUTL("Can't find PROSTHETICS in EXTRACT DEFINITIONS file")
.D MES^XPDUTL("(#727.1) -- AUDIT DESCRIPTION not updated.")
.D MES^XPDUTL(" ")
.D MES^XPDUTL(" ")
F ECX=1:1 S ECXX=$P($T(TEXT+ECX),";;",2) Q:ECXX="QUIT" S ^TMP($J,"WP",ECX,0)=ECXX
S IENS=+Y_","
D WP^DIE(727.1,IENS,10,"","^TMP($J,""WP"")","ERR")
D MES^XPDUTL(" ")
D MES^XPDUTL(" ")
D MES^XPDUTL("PROSTHETICS record in EXTRACT DEFINITIONS file")
D MES^XPDUTL("(#727.1) has been successfully updated.")
D MES^XPDUTL(" ")
D MES^XPDUTL(" ")
K ^TMP($J,"WP")
Q
;
TEXT ;
;; The following PROSTHETICS package options may be used to verify the PRO
;; extract audit report.
;;
;; RMPR NPPD PRT Print NPPD Worksheets
;; RMPR NPPD PRL L Print NPPD Single Line Detail
;;
;; Please note, however, that these Prosthetics package options organize
;; and display data by the ENTRY DATE field (#.01) of the Prosthetics
;; items in its RECORD OF PROS APPLIANCE/REPAIR file (#660). The PRO
;; extract record does not use the ENTRY DATE. Instead, it uses the
;; DELIVERY DATE (field #10) of the Prosthetic item. Therefore, the PRO
;; extract audit report organizes and displays data by DELIVERY DATE.
;;
;; Because of this date difference, the user may see many discrepancies
;; between the PRO extract audit report and the PROSTHETICS package NPPD
;; reports. This will be particularly true for large, high cost items
;; which are ordered far in advance of actual delivery date. The DSS
;; program office has requested that PROSTHETICS provide an NPPD report
;; which is sorted by DELIVERY DATE rather than ENTRY DATE to facilitate
;; this validation process.
;;
;; A PRO extract audit report can be printed in SUMMARY or in DETAIL.
;; The SUMMARY report displays data by NPPD line item, while the DETAIL
;; report shows a breakout of data contained in a specific line item.
;; The following shows each NPPD category and the line items it contains:
;;
;; 1. WHEELCHAIRS AND ACCESSORIES
;;
;; 100 A MOTORIZED
;; 100 A1 SCOOTERS
;; 100 B MANUAL CUSTOM
;; 100 C MANUAL A/O
;; 100 D ACCESSORIES
;; 100 E CUSHION FOAM
;; 100 F CUSHION SPEC
;;
;; 2. ARTIFICAL LEGS
;;
;; 200 A LEG IPOP
;; 200 B LEG TEM
;; 200 C LEG PART FOOT
;; 200 E LEG SYMES
;; 200 F LEG B/K
;; 200 G LEG A/O
;; 200 H LEG A/K
;;
;; 3. ARTIFICAL ARMS AND TERMINAL DEVICES
;;
;; 300 A ARM B/E
;; 300 B ARM, A/E
;; 300 C COSMETIC GLOVES
;; 300 D ARM, A/O
;; 300 E TERMINAL DEVICES
;; 300 F EXT. POWERED,ARM
;;
;; 4. BRACES AND ORTHOTICS
;;
;; 400 A BRACE ANKLE
;; 400 B BRACE LEG AK
;; 400 C BRACE, SPINAL
;; 400 D BRACE AL/OTH
;; 400 E ELAS HOSE, EA
;; 400 F BRACES, KNEE
;; 400 G CORSET/BELT
;;
;; 5. SHOES/ORTHOTICS
;;
;; 500 A ARCH SUPT, EA
;; 500 B SHOE INLAY, EA
;; 500 C SHOE MOLDED, EA
;; 500 D SHOE ORTH OTH
;; 500 E INSERTS, SHOE
;; 500 F SHOES A/O, EA
;;
;; 6. NEUROSENSORY AIDS
;;
;; 600 1 EYEGLASSES PR
;; 600 A SP OVER 2,500
;; 600 B HEARING AIDS
;; 600 C AID FOR BLIND
;; 600 D CONT LENS, EA.
;; 600 E EAR INSERT
;;
;; 7. RESTORATIONS
;;
;; 700 A EYE
;; 700 B FACIAL
;; 700 C BODY, OTHER
;;
;; 8. OXYGEN AND RESPIRATIORY
;;
;; 800 A OXYGEN EQP
;; 800 B OXYGEN CONCEN
;; 800 C OXYGEN GAS
;; 800 D OXYGEN, SUPPLIES
;; 800 E OXYGEN LIQUID
;; 800 F VENTILATOR, A/O
;;
;; 9. MEDICAL EQUIPMENT, MISC., ALL OTHER NEW
;;
;; 900 A WALKING AIDS
;; 900 B INVALID LIFT
;; 900 C BED HOSP STD
;; 900 D BED HOSP SPEC
;; 900 E MATTRESS STAN
;; 900 F MATTRESS SPEC
;; 900 G BED, ACCESSORIES
;; 900 H ENVIRON CONTR
;; 900 I SPEC HOME EQP (SAFETY)
;; 900 J TENS UNIT
;; 900 K MED EQP AL/OTH
;; 900 L EQP RENTAL
;; 910 A MED SUP AL/OTH
;; 920 A HOME DIAL EQP
;; 920 B HOME DIAL SUP
;; 930 A MOD VANS
;; 930 B ADAPT EQP AL/OTH
;; 999 A AL/OTH ITEMS
;; 999 X HCPCS NOT GRP
;; 999 Z NO HCPCS
;;
;; 10. REPAIR
;;
;; R10 WHEELCHAIR
;; R20 A LEG A/K
;; R20 B LEG B/K, PTB
;; R20 C LEG B/K, STD
;; R20 D LEG ALL OTHER
;; R30 ART ARM,TOTAL
;; R40 BRACE TOTAL
;; R50 A ORTH SHOE ALL
;; R50 B SHOE MOD
;; R50 C A/O ITEM SERV
;; R60 A AID FOR BLIND
;; R60 B EYEGLASS RPR
;; R60 C HEARING AID
;; R70 HOME DIAL EQU
;; R80 A INVALID LIFTS
;; R80 B REPAIR TO ECU
;; R80 C MED EQUIP A/O
;; R90 ALL OTHER
;; R90 A SHIPPING
;; R99 X HCPCS NOT GRP
;; R99 Z NO HCPCS
;;
;; Compare a SUMMARY report to the Print NPPD Worksheets report of the
;; PROSTHETICS package. Compare a DETAIL report to the Print NPPD Single
;; Line Detail report of the PROSTHETICS package. In spite of the date
;; problem indicated above, the user should usually specify the same date
;; range for both the PRO extract audit report and its related NPPD
;; report. This date range will generally be a one month period which
;; covers the first day through the last day of a given month.
;;
;; However, it may be useful under certain conditions to vary the date
;; range when comparing DETAIL from the PRO extract audit report with an
;; NPPD single line report. For example, if it is known that for some
;; complex Prosthetics items (e.g., artificial limbs) the order date
;; normally precedes delivery date by about 90 days, and if you wish to
;; verify January PRO extract data, then --
;;
;; (a) generate a DETAIL display for the appropriate NPPD line item
;; category (e.g., 200 A, LEG IPOP) from a PRO extract audit report
;; which covers a date range of January 1 through January 31;
;;
;; (b) generate an NPPD single line detail report for that same line
;; item for a date range of October 1 through October 31.
;;
;; The NPPD single line report for October may coincide quite well
;; with the PRO extract audit report DETAIL for January.
;;
;; A further note for sites that are multi-divisional for PROSTHETICS.
;; ===================================================================
;;
;; A multi-divisional Prosthetics site can print NPPD data reports
;; for only ONE division at a time. The PRO extract audit report
;; may be printed for a single division or for an entire facility.
;;
;; To compare the PRO extract audit report with the PROSTHETICS
;; package NPPD report, the user must select the same division for
;; both reports. Or the user may generate a PRO extract audit
;; report for the entire facility and compare its data to the sum
;; of the data from each of the single division NPPD reports.
;;QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECX321PT 8073 printed Nov 22, 2024@17:00 Page 2
ECX321PT ;ALB/JAP - PATCH ECX*3*21 Post-Install ; February 26, 1999
+1 ;;3.0;DSS EXTRACTS;**21**;Dec 22, 1997
+2 ;
POST ;Entry point
+1 ;place PRO audit report option back in service
+2 NEW A,DIC,DIE,DA,DR,X,Y,IENS,ECX,ECXX
+3 KILL ^TMP($JOB,"WP")
+4 DO MES^XPDUTL(" ")
+5 DO MES^XPDUTL(" ")
+6 DO MES^XPDUTL("Removing 'Out of order' flag from")
+7 DO MES^XPDUTL("[ECX PRO SOURCE AUDIT] option.")
+8 DO MES^XPDUTL(" ")
+9 SET DIC="^DIC(19,"
SET DIC(0)="X"
SET X="ECX PRO SOURCE AUDIT"
+10 DO ^DIC
+11 if Y=-1
QUIT
+12 SET A=""
SET DA=+Y
SET DIE=DIC
SET DR="2///@"
+13 DO ^DIE
+14 ;update audit description in PRO extract definition record
+15 KILL Y
SET DIC="^ECX(727.1,"
SET DIC(0)="X"
SET X="PROSTHETICS"
+16 DO ^DIC
+17 IF Y=-1
Begin DoDot:1
+18 DO MES^XPDUTL(" ")
+19 DO MES^XPDUTL(" ")
+20 DO MES^XPDUTL("Can't find PROSTHETICS in EXTRACT DEFINITIONS file")
+21 DO MES^XPDUTL("(#727.1) -- AUDIT DESCRIPTION not updated.")
+22 DO MES^XPDUTL(" ")
+23 DO MES^XPDUTL(" ")
End DoDot:1
QUIT
+24 FOR ECX=1:1
SET ECXX=$PIECE($TEXT(TEXT+ECX),";;",2)
if ECXX="QUIT"
QUIT
SET ^TMP($JOB,"WP",ECX,0)=ECXX
+25 SET IENS=+Y_","
+26 DO WP^DIE(727.1,IENS,10,"","^TMP($J,""WP"")","ERR")
+27 DO MES^XPDUTL(" ")
+28 DO MES^XPDUTL(" ")
+29 DO MES^XPDUTL("PROSTHETICS record in EXTRACT DEFINITIONS file")
+30 DO MES^XPDUTL("(#727.1) has been successfully updated.")
+31 DO MES^XPDUTL(" ")
+32 DO MES^XPDUTL(" ")
+33 KILL ^TMP($JOB,"WP")
+34 QUIT
+35 ;
TEXT ;
+1 ;; The following PROSTHETICS package options may be used to verify the PRO
+2 ;; extract audit report.
+3 ;;
+4 ;; RMPR NPPD PRT Print NPPD Worksheets
+5 ;; RMPR NPPD PRL L Print NPPD Single Line Detail
+6 ;;
+7 ;; Please note, however, that these Prosthetics package options organize
+8 ;; and display data by the ENTRY DATE field (#.01) of the Prosthetics
+9 ;; items in its RECORD OF PROS APPLIANCE/REPAIR file (#660). The PRO
+10 ;; extract record does not use the ENTRY DATE. Instead, it uses the
+11 ;; DELIVERY DATE (field #10) of the Prosthetic item. Therefore, the PRO
+12 ;; extract audit report organizes and displays data by DELIVERY DATE.
+13 ;;
+14 ;; Because of this date difference, the user may see many discrepancies
+15 ;; between the PRO extract audit report and the PROSTHETICS package NPPD
+16 ;; reports. This will be particularly true for large, high cost items
+17 ;; which are ordered far in advance of actual delivery date. The DSS
+18 ;; program office has requested that PROSTHETICS provide an NPPD report
+19 ;; which is sorted by DELIVERY DATE rather than ENTRY DATE to facilitate
+20 ;; this validation process.
+21 ;;
+22 ;; A PRO extract audit report can be printed in SUMMARY or in DETAIL.
+23 ;; The SUMMARY report displays data by NPPD line item, while the DETAIL
+24 ;; report shows a breakout of data contained in a specific line item.
+25 ;; The following shows each NPPD category and the line items it contains:
+26 ;;
+27 ;; 1. WHEELCHAIRS AND ACCESSORIES
+28 ;;
+29 ;; 100 A MOTORIZED
+30 ;; 100 A1 SCOOTERS
+31 ;; 100 B MANUAL CUSTOM
+32 ;; 100 C MANUAL A/O
+33 ;; 100 D ACCESSORIES
+34 ;; 100 E CUSHION FOAM
+35 ;; 100 F CUSHION SPEC
+36 ;;
+37 ;; 2. ARTIFICAL LEGS
+38 ;;
+39 ;; 200 A LEG IPOP
+40 ;; 200 B LEG TEM
+41 ;; 200 C LEG PART FOOT
+42 ;; 200 E LEG SYMES
+43 ;; 200 F LEG B/K
+44 ;; 200 G LEG A/O
+45 ;; 200 H LEG A/K
+46 ;;
+47 ;; 3. ARTIFICAL ARMS AND TERMINAL DEVICES
+48 ;;
+49 ;; 300 A ARM B/E
+50 ;; 300 B ARM, A/E
+51 ;; 300 C COSMETIC GLOVES
+52 ;; 300 D ARM, A/O
+53 ;; 300 E TERMINAL DEVICES
+54 ;; 300 F EXT. POWERED,ARM
+55 ;;
+56 ;; 4. BRACES AND ORTHOTICS
+57 ;;
+58 ;; 400 A BRACE ANKLE
+59 ;; 400 B BRACE LEG AK
+60 ;; 400 C BRACE, SPINAL
+61 ;; 400 D BRACE AL/OTH
+62 ;; 400 E ELAS HOSE, EA
+63 ;; 400 F BRACES, KNEE
+64 ;; 400 G CORSET/BELT
+65 ;;
+66 ;; 5. SHOES/ORTHOTICS
+67 ;;
+68 ;; 500 A ARCH SUPT, EA
+69 ;; 500 B SHOE INLAY, EA
+70 ;; 500 C SHOE MOLDED, EA
+71 ;; 500 D SHOE ORTH OTH
+72 ;; 500 E INSERTS, SHOE
+73 ;; 500 F SHOES A/O, EA
+74 ;;
+75 ;; 6. NEUROSENSORY AIDS
+76 ;;
+77 ;; 600 1 EYEGLASSES PR
+78 ;; 600 A SP OVER 2,500
+79 ;; 600 B HEARING AIDS
+80 ;; 600 C AID FOR BLIND
+81 ;; 600 D CONT LENS, EA.
+82 ;; 600 E EAR INSERT
+83 ;;
+84 ;; 7. RESTORATIONS
+85 ;;
+86 ;; 700 A EYE
+87 ;; 700 B FACIAL
+88 ;; 700 C BODY, OTHER
+89 ;;
+90 ;; 8. OXYGEN AND RESPIRATIORY
+91 ;;
+92 ;; 800 A OXYGEN EQP
+93 ;; 800 B OXYGEN CONCEN
+94 ;; 800 C OXYGEN GAS
+95 ;; 800 D OXYGEN, SUPPLIES
+96 ;; 800 E OXYGEN LIQUID
+97 ;; 800 F VENTILATOR, A/O
+98 ;;
+99 ;; 9. MEDICAL EQUIPMENT, MISC., ALL OTHER NEW
+100 ;;
+101 ;; 900 A WALKING AIDS
+102 ;; 900 B INVALID LIFT
+103 ;; 900 C BED HOSP STD
+104 ;; 900 D BED HOSP SPEC
+105 ;; 900 E MATTRESS STAN
+106 ;; 900 F MATTRESS SPEC
+107 ;; 900 G BED, ACCESSORIES
+108 ;; 900 H ENVIRON CONTR
+109 ;; 900 I SPEC HOME EQP (SAFETY)
+110 ;; 900 J TENS UNIT
+111 ;; 900 K MED EQP AL/OTH
+112 ;; 900 L EQP RENTAL
+113 ;; 910 A MED SUP AL/OTH
+114 ;; 920 A HOME DIAL EQP
+115 ;; 920 B HOME DIAL SUP
+116 ;; 930 A MOD VANS
+117 ;; 930 B ADAPT EQP AL/OTH
+118 ;; 999 A AL/OTH ITEMS
+119 ;; 999 X HCPCS NOT GRP
+120 ;; 999 Z NO HCPCS
+121 ;;
+122 ;; 10. REPAIR
+123 ;;
+124 ;; R10 WHEELCHAIR
+125 ;; R20 A LEG A/K
+126 ;; R20 B LEG B/K, PTB
+127 ;; R20 C LEG B/K, STD
+128 ;; R20 D LEG ALL OTHER
+129 ;; R30 ART ARM,TOTAL
+130 ;; R40 BRACE TOTAL
+131 ;; R50 A ORTH SHOE ALL
+132 ;; R50 B SHOE MOD
+133 ;; R50 C A/O ITEM SERV
+134 ;; R60 A AID FOR BLIND
+135 ;; R60 B EYEGLASS RPR
+136 ;; R60 C HEARING AID
+137 ;; R70 HOME DIAL EQU
+138 ;; R80 A INVALID LIFTS
+139 ;; R80 B REPAIR TO ECU
+140 ;; R80 C MED EQUIP A/O
+141 ;; R90 ALL OTHER
+142 ;; R90 A SHIPPING
+143 ;; R99 X HCPCS NOT GRP
+144 ;; R99 Z NO HCPCS
+145 ;;
+146 ;; Compare a SUMMARY report to the Print NPPD Worksheets report of the
+147 ;; PROSTHETICS package. Compare a DETAIL report to the Print NPPD Single
+148 ;; Line Detail report of the PROSTHETICS package. In spite of the date
+149 ;; problem indicated above, the user should usually specify the same date
+150 ;; range for both the PRO extract audit report and its related NPPD
+151 ;; report. This date range will generally be a one month period which
+152 ;; covers the first day through the last day of a given month.
+153 ;;
+154 ;; However, it may be useful under certain conditions to vary the date
+155 ;; range when comparing DETAIL from the PRO extract audit report with an
+156 ;; NPPD single line report. For example, if it is known that for some
+157 ;; complex Prosthetics items (e.g., artificial limbs) the order date
+158 ;; normally precedes delivery date by about 90 days, and if you wish to
+159 ;; verify January PRO extract data, then --
+160 ;;
+161 ;; (a) generate a DETAIL display for the appropriate NPPD line item
+162 ;; category (e.g., 200 A, LEG IPOP) from a PRO extract audit report
+163 ;; which covers a date range of January 1 through January 31;
+164 ;;
+165 ;; (b) generate an NPPD single line detail report for that same line
+166 ;; item for a date range of October 1 through October 31.
+167 ;;
+168 ;; The NPPD single line report for October may coincide quite well
+169 ;; with the PRO extract audit report DETAIL for January.
+170 ;;
+171 ;; A further note for sites that are multi-divisional for PROSTHETICS.
+172 ;; ===================================================================
+173 ;;
+174 ;; A multi-divisional Prosthetics site can print NPPD data reports
+175 ;; for only ONE division at a time. The PRO extract audit report
+176 ;; may be printed for a single division or for an entire facility.
+177 ;;
+178 ;; To compare the PRO extract audit report with the PROSTHETICS
+179 ;; package NPPD report, the user must select the same division for
+180 ;; both reports. Or the user may generate a PRO extract audit
+181 ;; report for the entire facility and compare its data to the sum
+182 ;; of the data from each of the single division NPPD reports.
+183 ;;QUIT