Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ECX321PT

ECX321PT.m

Go to the documentation of this file. 
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