source: FOIAVistA/trunk/r/IMAGING-MAG-ZMAG/MAGXCVH.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.6 KB
Line 
1MAGXCVH ;WOIFO/SEB,MLH - Image File Conversion Help ; 12 Aug 2003 5:04 PM
2 ;;3.0;IMAGING;**17,25**;Sep 4, 2003
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 in any way. |
13 ;; | Modifications to this software may result in an adulterated |
14 ;; | medical device under 21CFR820, the use of which is considered |
15 ;; | to be a violation of US Federal Statutes. |
16 ;; +---------------------------------------------------------------+
17 ;;
18 Q
19 ; Display additional help text. Called from MAGSCNVL.
20HELP(PROMPT) N FIELD
21 S FIELD=$P("package^class^type^procedure/event^specialty^origin",U,PROMPT)
22 W !,"Enter a valid ",FIELD," or '@' to delete the current value, '^P' to skip"
23 W !,"to the package, '^C' to skip to the class, '^T' to skip to the type, '^E'"
24 W !,"to skip to the procedure/event, '^S' to skip to the specialty, or '^' to exit."
25 W !
26 Q
27 ;
28 ; Verify deletion. Called from MAGSCNVE.
29DELETE() ;
30 K DIR
31 S DIR(0)="Y"
32 S DIR("A")="Do you want to delete the current value",DIR("B")="NO"
33 D ^DIR
34 Q Y
Note: See TracBrowser for help on using the repository browser.