Changeset 1406 for pharmacy-utils/drug-file-cleanup/VWPSSXPD.m

Timestamp:

Apr 13, 2012, 7:56:53 PM (13 years ago)

Author:

Sam Habiel

Message:

Fix XINDEX errors

File:

• pharmacy-utils/drug-file-cleanup/VWPSSXPD.m (modified) (2 diffs)

pharmacy-utils/drug-file-cleanup/VWPSSXPD.m

@@ -1 +1 @@
 VWPSSXPD ; VW/SMH - Update the Drug File and friends... ; Wed Apr 13 2012
-        ;;WorldVista Modifications;1.0;;;Build 4
+        ;;1.0;WorldVista Modifications;;;Build 4
         ; (C) Sam Habiel
         ; Licensed under AGPL
@@ -68 +68 @@
         W "You are running in a "_$S(VWPROD:"Production",1:"Test")_" Environment.",!!
         W "Are you sure you want to continue? Type a full YES/yes if you want to proceed)",!
-        N X R "ANSWER: ",X
+        N X R "ANSWER: ",X:30
         S X=$$UP^XLFSTR(X) ; uppercase
         I X'="YES" S XPDQUIT=1 ; Quit if the user doesn't say yes