| [613] | 1 | VEPECPT ;RED/DAOU - CPT Patch for VOE Version 1 ; 8/2/05 10:31am
|
|---|
| 2 | ;;1.0;VOE;****;Aug 20, 20005
|
|---|
| 3 | ;Routine to display CPT disclaimer and load CPT codes into VOE ver 1
|
|---|
| 4 | ;
|
|---|
| 5 | I $P(^ICPT(0),"^",3)>107900 W $C(7),!?15,"CPT Codes exist, quitting",$C(7),!! Q
|
|---|
| 6 | CPT ; Enter CPT Codes
|
|---|
| 7 | N TEXT,END,INP S TEXT="" W #
|
|---|
| 8 | F LP=1:1 S TEXT=$T(TEXT+LP) Q:TEXT=" ;;;;" W !,$P(TEXT,";;",2) I LP=23 R !,"Enter key to continue",INP#1 W #
|
|---|
| 9 | R !,"Enter key to continue",INP#1 W #
|
|---|
| 10 | ; Instructions for installing the global
|
|---|
| 11 | W !,"You will be asked for a device, this is the location of the file"
|
|---|
| 12 | W !,"and the file name. For example (if the zip file was extracted to the",!,"Temp directory): C:\TEMP\ICPT.GLO"
|
|---|
| 13 | W !,"When asked for Parameters, accept the default 'RS' (press enter key)."
|
|---|
| 14 | W !,"When asked for Input Option, type an A for ALL and press the enter key",!
|
|---|
| 15 | R !,"Press any key to install the CPT Patch",INP#1
|
|---|
| 16 | W !! D ^%GI
|
|---|
| 17 | ; Merger the scratch globals and kill them
|
|---|
| 18 | M ^DIC(81.1)=^ZDIC(81.1) K DIC(81.1)
|
|---|
| 19 | M ^DIC(81.3)=^ZDIC(81.3) K DIC(81.3)
|
|---|
| 20 | M ^LEX(757)=^ZZZ(757) K LEX(757)
|
|---|
| 21 | M ^LEX(757.001)=^ZZZ(757.001) K LEX(757.001)
|
|---|
| 22 | M ^LEX(757.01)=^ZZZ(757.01) K LEX(757.01)
|
|---|
| 23 | M ^LEX(757.02)=^ZZZ(757.02) K LEX(757.02)
|
|---|
| 24 | M ^LEX(757.1)=^ZZZ(757.1) K LEX(757.1)
|
|---|
| 25 | M ^LEX(757.11)=^ZZZ(757.11) K LEX(757.11)
|
|---|
| 26 | M ^LEX(757.12)=^ZZZ(757.12) K LEX(757.12)
|
|---|
| 27 | M ^LEX(757.13)=^ZZZ(757.13) K LEX(757.13)
|
|---|
| 28 | M ^LEX(757.14)=^ZZZ(757.14) K LEX(757.14)
|
|---|
| 29 | M ^LEX(757.21)=^ZZZ(757.21) K LEX(757.21)
|
|---|
| 30 | M ^LEX(757.3)=^ZZZ(757.3) K LEX(757.3)
|
|---|
| 31 | M ^LEX(757.31)=^ZZZ(757.31) K LEX(757.31)
|
|---|
| 32 | M ^LEX(757.4)=^ZZZ(757.4) K LEX(757.4)
|
|---|
| 33 | M ^LEX(757.41)=^ZZZ(757.41) K LEX(757.41)
|
|---|
| 34 | ; Check for success/failure
|
|---|
| 35 | I $P(^ICPT(0),"^",3)'>107900 W !,$C(7),"The CPT Patch has failed!" H 10 Q
|
|---|
| 36 | K ^ZZZ,^ZDIC
|
|---|
| 37 | W !,"The CPT Patch has been applied successfully" H 5 W !!
|
|---|
| 38 | Q
|
|---|
| 39 | ; Text for CPT Copyright
|
|---|
| 40 | TEXT ;;
|
|---|
| 41 | ;;CPT IS COPYRIGHT 2004 AMERICAN MEDICAL ASSOCIATION. ALL RIGHTS RESERVED.
|
|---|
| 42 | ;;NO FEE SCHEDULES, BASIC UNITS, RELATIVE VALUES OR RELATED LISTINGS ARE
|
|---|
| 43 | ;;INCLUDED IN CPT. AMA DOES NOT DIRECTLY OR INDIRECTLY PRACTICE MEDICINE OR
|
|---|
| 44 | ;;DISPENSE MEDICAL SERVICES. AMA ASSUMES NO LIABILITY FOR DATA CONTAINED OR
|
|---|
| 45 | ;;NOT CONTAINED HEREIN.
|
|---|
| 46 | ;;
|
|---|
| 47 | ;;U.S. GOVERNMENT RIGHTS THIS PRODUCT INCLUDES CPT WHICH IS COMMERCIAL
|
|---|
| 48 | ;;TECHNICAL DATA AND/OR COMPUTER DATA BASES AND/OR COMMERCIAL COMPUTER
|
|---|
| 49 | ;;SOFTWARE AND/OR COMPUTER SOFTWARE DOCUMENTATION, AS APPLICABLE WHICH
|
|---|
| 50 | ;;WERE DEVELOPED EXCLUSIVELY AT PRIVATE EXPENSE BY THE AMERICAN MEDICAL
|
|---|
| 51 | ;;ASSOCIATION, 515 NORTH STATE STREET, CHICAGO, ILLINOIS, 60610. U.S.
|
|---|
| 52 | ;;GOVERNMENT RIGHTS TO USE, MODIFY, REPRODUCE, RELEASE, PERFORM, DISPLAY,
|
|---|
| 53 | ;;OR DISCLOSE THESE TECHNICAL DATA AND/OR COMPUTER DATA BASES AND/OR
|
|---|
| 54 | ;;COMPUTER SOFTWARE AND/OR COMPUTER SOFTWARE DOCUMENTATION ARE
|
|---|
| 55 | ;;SUBJECT TO THE LIMITED RIGHTS RESTRICTIONS OF DFARS 252.227-7015(b)(2) (JUNE
|
|---|
| 56 | ;;1995) AND/OR SUBJECT TO THE RESTRICTIONS OF DFARS 227.7202-1(a) (JUNE 1995)
|
|---|
| 57 | ;;AND DFARS 227.7202-3(a) (JUNE 1995), AS APPLICABLE, FOR U.S. DEPARTMENT
|
|---|
| 58 | ;;DEFENSE PROCUREMENTS AND THE LIMITED RIGHTS RESTRICTIONS OF FAR 52.227-14
|
|---|
| 59 | ;;(JUNE 1987) AND/OR SUBJECT TO THE RESTRICTED RIGHTS PROVISIONS OF
|
|---|
| 60 | ;;52.227-14 (JUNE 1987) AND FAR 52.227-19 (JUNE 1987),AS APPLICABLE, AND ANY
|
|---|
| 61 | ;;APPLICABLE AGENCY FAR SUPPLEMENTS, FOR NON-DEPARTMENT OF DEFENSE
|
|---|
| 62 | ;;FEDERAL PROCUREMENTS.
|
|---|
| 63 | ;;
|
|---|
| 64 | ;;THIS CD-ROM/DISKETTE/ELECTRONIC FILE MAY NOT BE SOLD, DUPLICATED, OR GIVEN
|
|---|
| 65 | ;;AWAY IN WHOLE OR IN PART WITHOUT THE EXPRESS WRITTEN CONSENT OF THE
|
|---|
| 66 | ;;AMERICAN MEDICAL ASSOCIATION. THIS CPT CD-ROM/DISKETTE/ELECTRONIC FILE
|
|---|
| 67 | ;;INCLUDES ALL CPT PROCEDURES IN CPT 2004.
|
|---|
| 68 | ;;
|
|---|
| 69 | ;;FOR QUESTIONS REGARDING THE USE OF CPT CODES, PLEASE CONTACT THE
|
|---|
| 70 | ;;AMERICAN MEDICAL ASSOCIATION CPT INFORMATION AND EDUCATION SERVICES AT
|
|---|
| 71 | ;;800-634-6922.
|
|---|
| 72 | ;;
|
|---|
| 73 | ;;TO PURCHASE ADDITIONAL CPT PRODUCTS, CONTACT THE AMERICAN MEDICAL
|
|---|
| 74 | ;;ASSOCIATION CUSTOMER SERVICE AT 800-621-8335.
|
|---|
| 75 | ;;
|
|---|
| 76 | ;;TO REQUEST A LICENSE FOR DISTRIBUTION OF PRODUCTS CONTAINING OR
|
|---|
| 77 | ;;REPRINTING CPT, PLEASE CONTACT THE AMERICAN MEDICAL ASSOCIATION CPT
|
|---|
| 78 | ;;INTELLECTUAL PROPERTY SERVICES, 515 N. STATE STREET, CHICAGO, ILLINOIS 60610,
|
|---|
| 79 | ;;312 464-5022.
|
|---|
| 80 | ;;;;
|
|---|
