- DIFROMH ;SFISC/XAK-HELP FOR DIFROM ;31OCT2012
- ;;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.
- ;
- ;HELP FOR OPTIONS, BULLETINS, ETC.
- W !!?5,"YES means that you want to bring the ",$P(^DIC(DL,0),U)
- W "S in this namespace."
- W !?5,"NO means that you want to leave them out."
- Q:DL'=9.8 W !?5,"This question refers to entries in the ROUTINE documentation file."
- W !!?5,"Also, if you are building a network mail INIT, you must answer",!?5,"YES if you wish to include routines other than just the INIT",!?5,"routines (such as pre and post-inits) into the network mail message."
- Q
- R ; HELP FOR PREFIX
- W !!?5,"This is a unique 2 to 4 character prefix beginning with an uppercase"
- W !?5,"letter and followed only by uppercase letters or numbers." Q:X'?1"??".E
- W !?5,"If this is an established package, you may enter one of the prefixes"
- W !?5,"listed in the left column below."
- S DIC="^DIC(9.4,",DIC(0)="QE",DIC("W")="W ?10,$P(^(0),U)",D="C",DILN=15,DZ="??" D DQ^DICQ K DIC,DIZ,DILN Q
- ;
- R1 ; HELP FOR RTN NAME
- W !!?5,"Answer YES if you want to create a program called "_DTL_"INIT"
- W:$D(Q) !?5,"even though there already is one on file. (It will be overwritten.)"
- W !?5,"Answer NO if you don't want to do this." Q
- ;
- S ; HELP FOR SECURITY CODES
- W !!?5,"YES means you want to include the security protection currently"
- W !?5,"on the files in the initialization routines. A recipient of"
- W !?5,"this package will be able to decide whether or not to accept"
- W !?5,"these codes."
- W !?5,"NO means you do not want to include security codes."
- Q
- M ; HELP FOR MAX RTN SIZE
- W !!?5,"Enter the maximum number of characters each routine should"
- W !?5,"contain. This number must be between 2000 and "_^DD("ROU")_"." ; VEN/SMH V22.2
- Q
- ;
- MSG ; HELP FOR MAILMAN MESSAGE
- W !!?5,"YES means that you are going to send this Package over"
- W !?5,"the Network as a message."
- W !?5,"NO means that you are going to generate routines."
- Q
- Q1 ; HELP FOR SCRAMBLE PASSWORD
- W !?5,"The scramble password is a private code, which must be "
- W !?5,"exactly correct for a reader to to see the message legibly"
- W !?5,"It may be from 3 to 20 characters long. Upper and lower"
- W !?5,"case characters are treated as the same.",! Q
- ;
- Q3 ; HELP FOR SCRAMBLE HINT
- W !?5,"A scramble hint is used to suggest to the reader what"
- W !?5,"the scramble password is. Since the password is not"
- W !?5,"recoverable after it is entered, the hint can be a "
- W !?5,"helpful reminder to the reader of the message. The"
- W !?5,"hint will be shown to the recipient just before he "
- W !?5,"is asked to enter the password.",! Q
- R3 ;DATA DICTIONARIES
- W !!?5,"Enter YES if you wish to transport dictionaries"
- W !?5,"or NO if you just want to Transport Options, Keys, etc."
- Q
- NOPKG ; TEMPLATES WITH NON-PACKAGE FILE PREFIX
- W !!?5,"If YES, then ALL of the templates and forms belonging to the files"
- W !?5,"selected will be included in the initialization routines."
- W !?5,"If NO, only NAMESPACED templates and forms will be included.",!
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIFROMH 3334 printed Feb 19, 2025@00:14:24 Page 2
- DIFROMH ;SFISC/XAK-HELP FOR DIFROM ;31OCT2012
- +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 ;
- +7 ;HELP FOR OPTIONS, BULLETINS, ETC.
- +8 WRITE !!?5,"YES means that you want to bring the ",$PIECE(^DIC(DL,0),U)
- +9 WRITE "S in this namespace."
- +10 WRITE !?5,"NO means that you want to leave them out."
- +11 if DL'=9.8
- QUIT
- WRITE !?5,"This question refers to entries in the ROUTINE documentation file."
- +12 WRITE !!?5,"Also, if you are building a network mail INIT, you must answer",!?5,"YES if you wish to include routines other than just the INIT",!?5,"routines (such as pre and post-inits) into the network mail message."
- +13 QUIT
- R ; HELP FOR PREFIX
- +1 WRITE !!?5,"This is a unique 2 to 4 character prefix beginning with an uppercase"
- +2 WRITE !?5,"letter and followed only by uppercase letters or numbers."
- if X'?1"??".E
- QUIT
- +3 WRITE !?5,"If this is an established package, you may enter one of the prefixes"
- +4 WRITE !?5,"listed in the left column below."
- +5 SET DIC="^DIC(9.4,"
- SET DIC(0)="QE"
- SET DIC("W")="W ?10,$P(^(0),U)"
- SET D="C"
- SET DILN=15
- SET DZ="??"
- DO DQ^DICQ
- KILL DIC,DIZ,DILN
- QUIT
- +6 ;
- R1 ; HELP FOR RTN NAME
- +1 WRITE !!?5,"Answer YES if you want to create a program called "_DTL_"INIT"
- +2 if $DATA(Q)
- WRITE !?5,"even though there already is one on file. (It will be overwritten.)"
- +3 WRITE !?5,"Answer NO if you don't want to do this."
- QUIT
- +4 ;
- S ; HELP FOR SECURITY CODES
- +1 WRITE !!?5,"YES means you want to include the security protection currently"
- +2 WRITE !?5,"on the files in the initialization routines. A recipient of"
- +3 WRITE !?5,"this package will be able to decide whether or not to accept"
- +4 WRITE !?5,"these codes."
- +5 WRITE !?5,"NO means you do not want to include security codes."
- +6 QUIT
- M ; HELP FOR MAX RTN SIZE
- +1 WRITE !!?5,"Enter the maximum number of characters each routine should"
- +2 ; VEN/SMH V22.2
- WRITE !?5,"contain. This number must be between 2000 and "_^DD("ROU")_"."
- +3 QUIT
- +4 ;
- MSG ; HELP FOR MAILMAN MESSAGE
- +1 WRITE !!?5,"YES means that you are going to send this Package over"
- +2 WRITE !?5,"the Network as a message."
- +3 WRITE !?5,"NO means that you are going to generate routines."
- +4 QUIT
- Q1 ; HELP FOR SCRAMBLE PASSWORD
- +1 WRITE !?5,"The scramble password is a private code, which must be "
- +2 WRITE !?5,"exactly correct for a reader to to see the message legibly"
- +3 WRITE !?5,"It may be from 3 to 20 characters long. Upper and lower"
- +4 WRITE !?5,"case characters are treated as the same.",!
- QUIT
- +5 ;
- Q3 ; HELP FOR SCRAMBLE HINT
- +1 WRITE !?5,"A scramble hint is used to suggest to the reader what"
- +2 WRITE !?5,"the scramble password is. Since the password is not"
- +3 WRITE !?5,"recoverable after it is entered, the hint can be a "
- +4 WRITE !?5,"helpful reminder to the reader of the message. The"
- +5 WRITE !?5,"hint will be shown to the recipient just before he "
- +6 WRITE !?5,"is asked to enter the password.",!
- QUIT
- R3 ;DATA DICTIONARIES
- +1 WRITE !!?5,"Enter YES if you wish to transport dictionaries"
- +2 WRITE !?5,"or NO if you just want to Transport Options, Keys, etc."
- +3 QUIT
- NOPKG ; TEMPLATES WITH NON-PACKAGE FILE PREFIX
- +1 WRITE !!?5,"If YES, then ALL of the templates and forms belonging to the files"
- +2 WRITE !?5,"selected will be included in the initialization routines."
- +3 WRITE !?5,"If NO, only NAMESPACED templates and forms will be included.",!
- +4 QUIT