Routine: DIFROMH

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."

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."

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

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."

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."

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.",!

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIFROMH   3334     printed  Dec 13, 2024@02:48:10                                                                                                                                                                                                     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

DIFROMH.m