DIFROMH1 ;SFISC/XAK-HELP FOR ANSWERING DIFROM PROMPTS ;03:15 PM 28 Nov 1994
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
REP ;CHANGING YOUR FILE NAME
W !!?5,"If YES, this will change the existing file name"
W !?5,"to the incoming file name."
W !?5,"If NO, it then will go on to the next Question.",!
Q
CHG ;KEEPING YOUR OLD DATA
W !!?5,"This allows you to keep your old data if you wish."
W !?5,"I suggest if you get to this"
W !?5,"question Just Default to the Question.",!
Q
TEMP ;DELETING THE TEMPLATES
W !!,"This will allow you to Delete or Keep the"
W !,"(Sort,Print,Input) Templates if you wish.",!
Q
AG ;DELETING FILES THAT ARE THE SAME
W !!?5,"Enter Yes if you wish to Delete your file"
W !?5,"This will overwrite your file with my file"
W !?5,"If you wish to save your file please say"
W !?5,"NO. It will then Quit the INIT Process.",!
Q
PKG ;ACCEPT DEFAULT DEFINITION
W !!?5,"YES means that the information currently in the Package"
W !?5,"File will be used to generate the package. You will not be"
W !?5,"to alter it."
W !?5,"NO means that you will be able to define the package as you"
W !?5,"proceed with the DIFROM."
Q
L ;DISPLAY CURRENT PKG DEFN
N %A W ! D WAIT^DICD
S DIC=9.4,L=0,BY="@NUMBER",FR=DPK,TO=DPK,FLDS="[DI-PKG-DEFAULT-DEFINITION]",IOP="HOME" D EN1^DIP
K B,P,DP,DIJ,%9
Q
CUR ;HELP FOR SEEING PACKAGE
W !!?5,"YES means that the package definition will be displayed to"
W !?5,"you on your current device."
W !?5,"NO means that you will continue generating the package.",!
Q
DD ;HELP FOR OVERWRITING DD'S
W !!?5,"YES means that the current data definitions will be overwritten"
W !?5,"with the ones in these routines."
W !?5,"NO means that only new data fields will be added."
Q
DTA ;HELP FOR ADDING DATA
W !!?5,"YES means that the data coming in with these inits will"
I DIF W !?5,"replace the data on file if a match is found."
E W !?5,"only be added if there is no data on file."
W !!?5,"Entries will be added if they do not match exactly"
W !?5,"on Name and Identifiers."
W !!?5,"NO means that everything will be left as is."
Q
VER ;HELP FOR VERSION NO.
W !!?5,"Package Version No. must be entered to put onto the second"
W !?5,"line of the INIT routines."
W !!?5,"Format can be either the old type of version no. nnn.nn",!,?5,"or the new type, nnnXnn where X is either T for test phase",!?5,"or V for verification phase." Q
PNM ;HELP FOR PACKAGE NAME
W !!?5,"Enter the Package Name to go on the second line of the INIT routines." Q
VDT ;HELP FOR VERSION DATE
W !!?5,"Enter the Distribution Date for this Package, to go on the second",!?5,"line of the INIT routines. It should match the version date",!?5,"on the other routines being sent with this package." Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIFROMH1 3064 printed Oct 16, 2024@18:48:44 Page 2
DIFROMH1 ;SFISC/XAK-HELP FOR ANSWERING DIFROM PROMPTS ;03:15 PM 28 Nov 1994
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
REP ;CHANGING YOUR FILE NAME
+1 WRITE !!?5,"If YES, this will change the existing file name"
+2 WRITE !?5,"to the incoming file name."
+3 WRITE !?5,"If NO, it then will go on to the next Question.",!
+4 QUIT
CHG ;KEEPING YOUR OLD DATA
+1 WRITE !!?5,"This allows you to keep your old data if you wish."
+2 WRITE !?5,"I suggest if you get to this"
+3 WRITE !?5,"question Just Default to the Question.",!
+4 QUIT
TEMP ;DELETING THE TEMPLATES
+1 WRITE !!,"This will allow you to Delete or Keep the"
+2 WRITE !,"(Sort,Print,Input) Templates if you wish.",!
+3 QUIT
AG ;DELETING FILES THAT ARE THE SAME
+1 WRITE !!?5,"Enter Yes if you wish to Delete your file"
+2 WRITE !?5,"This will overwrite your file with my file"
+3 WRITE !?5,"If you wish to save your file please say"
+4 WRITE !?5,"NO. It will then Quit the INIT Process.",!
+5 QUIT
PKG ;ACCEPT DEFAULT DEFINITION
+1 WRITE !!?5,"YES means that the information currently in the Package"
+2 WRITE !?5,"File will be used to generate the package. You will not be"
+3 WRITE !?5,"to alter it."
+4 WRITE !?5,"NO means that you will be able to define the package as you"
+5 WRITE !?5,"proceed with the DIFROM."
+6 QUIT
L ;DISPLAY CURRENT PKG DEFN
+1 NEW %A
WRITE !
DO WAIT^DICD
+2 SET DIC=9.4
SET L=0
SET BY="@NUMBER"
SET FR=DPK
SET TO=DPK
SET FLDS="[DI-PKG-DEFAULT-DEFINITION]"
SET IOP="HOME"
DO EN1^DIP
+3 KILL B,P,DP,DIJ,%9
+4 QUIT
CUR ;HELP FOR SEEING PACKAGE
+1 WRITE !!?5,"YES means that the package definition will be displayed to"
+2 WRITE !?5,"you on your current device."
+3 WRITE !?5,"NO means that you will continue generating the package.",!
+4 QUIT
DD ;HELP FOR OVERWRITING DD'S
+1 WRITE !!?5,"YES means that the current data definitions will be overwritten"
+2 WRITE !?5,"with the ones in these routines."
+3 WRITE !?5,"NO means that only new data fields will be added."
+4 QUIT
DTA ;HELP FOR ADDING DATA
+1 WRITE !!?5,"YES means that the data coming in with these inits will"
+2 IF DIF
WRITE !?5,"replace the data on file if a match is found."
+3 IF '$TEST
WRITE !?5,"only be added if there is no data on file."
+4 WRITE !!?5,"Entries will be added if they do not match exactly"
+5 WRITE !?5,"on Name and Identifiers."
+6 WRITE !!?5,"NO means that everything will be left as is."
+7 QUIT
VER ;HELP FOR VERSION NO.
+1 WRITE !!?5,"Package Version No. must be entered to put onto the second"
+2 WRITE !?5,"line of the INIT routines."
+3 WRITE !!?5,"Format can be either the old type of version no. nnn.nn",!,?5,"or the new type, nnnXnn where X is either T for test phase",!?5,"or V for verification phase."
QUIT
PNM ;HELP FOR PACKAGE NAME
+1 WRITE !!?5,"Enter the Package Name to go on the second line of the INIT routines."
QUIT
VDT ;HELP FOR VERSION DATE
+1 WRITE !!?5,"Enter the Distribution Date for this Package, to go on the second",!?5,"line of the INIT routines. It should match the version date",!?5,"on the other routines being sent with this package."
QUIT
