source: FOIAVistA/trunk/r/IMAGING-MAG-ZMAG/MAGXIDX0.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 3.6 KB
Line 
1MAGXIDX0 ;WOIFO/JSL - MAG INDEX TERMS BUILD/UPDATE Utilities
2 ;;3.0;IMAGING;**61**;Feb 07, 2006
3 ;; +---------------------------------------------------------------+
4 ;; | Property of the US Government. |
5 ;; | No permission to copy or redistribute this software is given. |
6 ;; | Use of unreleased versions of this software requires the user |
7 ;; | to execute a written test agreement with the VistA Imaging |
8 ;; | Development Office of the Department of Veterans Affairs, |
9 ;; | telephone (301) 734-0100. |
10 ;; | |
11 ;; | The Food and Drug Administration classifies this software as |
12 ;; | a medical device. As such, it may not be changed |
13 ;; | in any way. Modifications to this software may result in an |
14 ;; | adulterated medical device under 21CFR820, the use of which |
15 ;; | is considered to be a violation of US Federal Statutes. |
16 ;; +---------------------------------------------------------------+
17 Q
18WARNMSG ;called by PRECHK^MAGMIDXU
19 N DIWR,DIWL,DIWF K ^UTILITY($J,"W")
20 S ANS="",DIWR=80,DIWL=1
21 U IO(0) W !
22 S X="|NOWRAP|" D ^DIWP
23 S X="======================================================================" D ^DIWP
24 S X=">>> PATIENT SAFETY WARNING <<<" D ^DIWP
25 S X=">>> Read This Notice Before Installing the Term Update File <<<" D ^DIWP
26 S X="======================================================================" D ^DIWP
27 S X="|WRAP|" D ^DIWP
28 S X="Index term files are nationally standard files that are maintained by the VistA Imaging Team. Sites are only permitted to modify the value of the STATUS" D ^DIWP
29 S X="(active/inactive) field on two index term files : IMAGE INDEX FOR PROCEDURE/EVENT and IMAGE INDEX FOR SPECIALTY/SUBSPECIALTY." D ^DIWP
30 S X="Except for these two STATUS fields, NO LOCAL ADDITIONS, DELETIONS, OR MODIFICATIONS ARE PERMITTED to the index term files. Files to which additions, deletions and modifications are NOT to be made locally" D ^DIWP
31 S X="include the following:" D ^DIWP
32 S X="|NOWRAP|" D ^DIWP
33 S X=" IMAGE INDEX FOR CLASS (#2005.82)" D ^DIWP
34 S X=" IMAGE INDEX FOR TYPES (#2005.83)" D ^DIWP
35 S X=" IMAGE INDEX FOR SPECIALTY/SUBSPECIALTY (#2005.84) (except the STATUS field)" D ^DIWP
36 S X=" IMAGE INDEX FOR PROCEDURE/EVENT (#2005.85) (except the STATUS field)" D ^DIWP
37 S X="|WRAP|" D ^DIWP
38 S X="Additions, deletions or modifications to index term files by local sites risk overwriting or other loss of information as distributions from the VistA Imaging Team are installed." D ^DIWP
39 S X="Loss of information that is used to make patient treatment decisions could have a negative impact on patient safety." D ^DIWP
40 S X="If you believe that any entries on your index term files may have been added, deleted or modified locally, DO NOT INSTALL THIS UPDATE!" D ^DIWP
41 S X="Instead, please place a Remedy call IMMEDIATELY to VistA Imaging Support." D ^DIWP
42 D ^DIWW H 5
43 Q
44INXMB() ;DBIA #2723 - get last IN mail msg
45 Q:'$G(DUZ) 0
46 N SUBJ,N
47 K ^TMP("XMLIST",$J)
48 S SUBJ("SUBJ")="MAG INDEX TERMS UPDATE"
49 D LISTMSGS^XMXAPIB(DUZ,1,"SUBJ","B",10,,.SUBJ)
50 F N=1:1:10 I $G(^TMP("XMLIST",$J,N,"SUBJ"))=SUBJ("SUBJ") Q
51 Q +$G(^TMP("XMLIST",$J,N))
52SPEC ;MENU OPT - IMAGE INDEX SPECIALTY/SUBSPECIALTY
53 N DIC,DLAYGO,DA,DIE,DR
54 S (DIC,DLAYGO)=2005.84,DIC(0)="AMEQ" D ^DIC Q:Y=-1
55 S DA=+Y,DIE="^MAG(2005.84,",DR="4//" D ^DIE
56 G SPEC
57PROC ;MENU OPT - IMAGE INDEX PROCEDURE/EVENT
58 N DIC,DLAYGO,DA,DIE,DR
59 S (DIC,DLAYGO)=2005.85,DIC(0)="AMEQ" D ^DIC Q:Y=-1
60 S DA=+Y,DIE="^MAG(2005.85,",DR="4//" D ^DIE
61 G PROC
Note: See TracBrowser for help on using the repository browser.