MAGXCVH ;WOIFO/SEB,MLH - Image File Conversion Help ; 12 Aug 2003 5:04 PM
;;3.0;IMAGING;**17,25**;Sep 4, 2003
;; +---------------------------------------------------------------+
;; | Property of the US Government. |
;; | No permission to copy or redistribute this software is given. |
;; | Use of unreleased versions of this software requires the user |
;; | to execute a written test agreement with the VistA Imaging |
;; | Development Office of the Department of Veterans Affairs, |
;; | telephone (301) 734-0100. |
;; | |
;; | The Food and Drug Administration classifies this software as |
;; | a medical device. As such, it may not be changed in any way. |
;; | Modifications to this software may result in an adulterated |
;; | medical device under 21CFR820, the use of which is considered |
;; | to be a violation of US Federal Statutes. |
;; +---------------------------------------------------------------+
;;
Q
; Display additional help text. Called from MAGSCNVL.
HELP(PROMPT) N FIELD
S FIELD=$P("package^class^type^procedure/event^specialty^origin",U,PROMPT)
W !,"Enter a valid ",FIELD," or '@' to delete the current value, '^P' to skip"
W !,"to the package, '^C' to skip to the class, '^T' to skip to the type, '^E'"
W !,"to skip to the procedure/event, '^S' to skip to the specialty, or '^' to exit."
W !
Q
;
; Verify deletion. Called from MAGSCNVE.
DELETE() ;
K DIR
S DIR(0)="Y"
S DIR("A")="Do you want to delete the current value",DIR("B")="NO"
D ^DIR
Q Y
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGXCVH 1700 printed Dec 13, 2024@02:10:41 Page 2
MAGXCVH ;WOIFO/SEB,MLH - Image File Conversion Help ; 12 Aug 2003 5:04 PM
+1 ;;3.0;IMAGING;**17,25**;Sep 4, 2003
+2 ;; +---------------------------------------------------------------+
+3 ;; | Property of the US Government. |
+4 ;; | No permission to copy or redistribute this software is given. |
+5 ;; | Use of unreleased versions of this software requires the user |
+6 ;; | to execute a written test agreement with the VistA Imaging |
+7 ;; | Development Office of the Department of Veterans Affairs, |
+8 ;; | telephone (301) 734-0100. |
+9 ;; | |
+10 ;; | The Food and Drug Administration classifies this software as |
+11 ;; | a medical device. As such, it may not be changed in any way. |
+12 ;; | Modifications to this software may result in an adulterated |
+13 ;; | medical device under 21CFR820, the use of which is considered |
+14 ;; | to be a violation of US Federal Statutes. |
+15 ;; +---------------------------------------------------------------+
+16 ;;
+17 QUIT
+18 ; Display additional help text. Called from MAGSCNVL.
HELP(PROMPT) NEW FIELD
+1 SET FIELD=$PIECE("package^class^type^procedure/event^specialty^origin",U,PROMPT)
+2 WRITE !,"Enter a valid ",FIELD," or '@' to delete the current value, '^P' to skip"
+3 WRITE !,"to the package, '^C' to skip to the class, '^T' to skip to the type, '^E'"
+4 WRITE !,"to skip to the procedure/event, '^S' to skip to the specialty, or '^' to exit."
+5 WRITE !
+6 QUIT
+7 ;
+8 ; Verify deletion. Called from MAGSCNVE.
DELETE() ;
+1 KILL DIR
+2 SET DIR(0)="Y"
+3 SET DIR("A")="Do you want to delete the current value"
SET DIR("B")="NO"
+4 DO ^DIR
+5 QUIT Y
