source: WorldVistAEHR/trunk/r/ZZOTHER/vepecpt.m@ 1599

Last change on this file since 1599 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 4.0 KB
Line 
1VEPECPT ;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
6CPT ; 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
40TEXT ;;
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 ;;;;
Note: See TracBrowser for help on using the repository browser.