Return to DINIT002.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Initial commit

DINIT002	; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ; 12/22/94  09:32:23
	;;21.0;VA FileMan;;Dec 28, 1994
	;Per VHA Directive 10-93-142, this routine should not be modified.
	F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) S @X=Y
Q	Q
	;;^DD(.84,4,21,1,0)
	;;=Actual text of the message.  If parameters (variable pieces of text) are
	;;^DD(.84,4,21,2,0)
	;;=to be inserted into the dialogue when the message is built, the parameter
	;;^DD(.84,4,21,3,0)
	;;=will appear as a 'window' in this TEXT field, surrounded by vertical bars.
	;;^DD(.84,4,21,4,0)
	;;=The data within the 'window' will represent a subscript of the input
	;;^DD(.84,4,21,5,0)
	;;=parameter list that is passed to BLD^DIALOG or $$EZBLD^DIALOG when
	;;^DD(.84,4,21,6,0)
	;;=building the message. This same subscript should be used as the .01 of the
	;;^DD(.84,4,21,7,0)
	;;=PARAMETER field in this file to document the parameter.
	;;^DD(.84,5,0)
	;;=PARAMETER^.845^^3;0
	;;^DD(.84,6,0)
	;;=POST MESSAGE ACTION^K^^6;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
	;;^DD(.84,6,3)
	;;=This is Standard MUMPS code.  This code will be executed whenever this message is retrieved through a call to BLD^DIALOG or $$EZBLD^DIALOG.
	;;^DD(.84,6,9)
	;;=@
	;;^DD(.84,6,21,0)
	;;=^^6^6^2941122^
	;;^DD(.84,6,21,1,0)
	;;=If some special action should be taken whenever this message is built,
	;;^DD(.84,6,21,2,0)
	;;=MUMPS code can be entered here.  This code will be executed by the
	;;^DD(.84,6,21,3,0)
	;;=BLD^DIALOG or $$EZBLD^DIALOG routines, immediately after the message text
	;;^DD(.84,6,21,4,0)
	;;=has been built in the output array.  For example, the code could set a
	;;^DD(.84,6,21,5,0)
	;;=special flag into a global or local variable to notify the calling routine
	;;^DD(.84,6,21,6,0)
	;;=that some extra action needed to be taken.
	;;^DD(.84,6,23,0)
	;;=^^7^7^2941122^
	;;^DD(.84,6,23,1,0)
	;;=At the time of executing this code
	;;^DD(.84,6,23,2,0)
	;;= D0 = IEN for the entry in the DIALOG file
	;;^DD(.84,6,23,3,0)
	;;= DIPI(n) = (for sequential number n) parameters incorporated in the text.
	;;^DD(.84,6,23,4,0)
	;;= DIPE(n) = parameters output back to the user
	;;^DD(.84,6,23,5,0)
	;;= 
	;;^DD(.84,6,23,6,0)
	;;=All other variables used in this code should use your packages namespace,
	;;^DD(.84,6,23,7,0)
	;;=and should be NEWed.
	;;^DD(.84,6,"DT")
	;;=2940520
	;;^DD(.84,7,0)
	;;=TRANSLATION^.847P^^4;0
	;;^DD(.84,8,0)
	;;=CALLED FROM ENTRY POINTS^.841^^5;0
	;;^DD(.841,0)
	;;=CALLED FROM ENTRY POINTS SUB-FIELD^^.05^2
	;;^DD(.841,0,"DT")
	;;=2940411
	;;^DD(.841,0,"IX","B",.841,.01)
	;;=
	;;^DD(.841,0,"NM","CALLED FROM ENTRY POINTS")
	;;=
	;;^DD(.841,0,"UP")
	;;=.84
	;;^DD(.841,.01,0)
	;;=ROUTINE NAME^MF^^0;1^K:$L(X)>8!($L(X)<1) X
	;;^DD(.841,.01,1,0)
	;;=^.1
	;;^DD(.841,.01,1,1,0)
	;;=.841^B
	;;^DD(.841,.01,1,1,1)
	;;=S ^DI(.84,DA(1),5,"B",$E(X,1,30),DA)=""
	;;^DD(.841,.01,1,1,2)
	;;=K ^DI(.84,DA(1),5,"B",$E(X,1,30),DA)
	;;^DD(.841,.01,3)
	;;=Answer must be 1-8 characters in length.
	;;^DD(.841,.01,21,0)
	;;=^^6^6^2940411^
	;;^DD(.841,.01,21,1,0)
	;;=This multiple is used for documentation only.  Entries are made to this
	;;^DD(.841,.01,21,2,0)
	;;=subfile ONLY for ERROR type text.  Enter the routine name of an entry
	;;^DD(.841,.01,21,3,0)
	;;=point that may generate this error message.  You only need to enter the
	;;^DD(.841,.01,21,4,0)
	;;=names of routines that directly generate the error through a call to
	;;^DD(.841,.01,21,5,0)
	;;=^DIALOG, and not when the error is generated by some other utility called
	;;^DD(.841,.01,21,6,0)
	;;=from your routine.
	;;^DD(.841,.01,"DT")
	;;=2940411
	;;^DD(.841,.05,0)
	;;=LINE TAG^F^^0;2^K:$L(X)>10!($L(X)<1) X
	;;^DD(.841,.05,3)
	;;=Answer must be 1-10 characters in length.
	;;^DD(.841,.05,21,0)
	;;=^^6^6^2940411^
	;;^DD(.841,.05,21,1,0)
	;;=This multiple is used for documentation only.  Entries are made to this
	;;^DD(.841,.05,21,2,0)
	;;=subfile ONLY for ERROR type text.  Enter the line tag of an entry point
	;;^DD(.841,.05,21,3,0)
	;;=that may generate this error message.  You only need to enter the names of
	;;^DD(.841,.05,21,4,0)
	;;=routines that directly generate the error through a call to ^DIALOG, and
	;;^DD(.841,.05,21,5,0)
	;;=not when the error is generated by some other utility called from your
	;;^DD(.841,.05,21,6,0)
	;;=routine.
	;;^DD(.841,.05,"DT")
	;;=2940411
	;;^DD(.842,0)
	;;=DESCRIPTION SUB-FIELD^^.01^1
	;;^DD(.842,0,"DT")
	;;=2930614
	;;^DD(.842,0,"NM","DESCRIPTION")
	;;=
	;;^DD(.842,0,"UP")
	;;=.84
	;;^DD(.842,.01,0)
	;;=DESCRIPTION^W^^0;1^Q
	;;^DD(.842,.01,3)
	;;=Describe the use of this dialogue.
	;;^DD(.842,.01,"DT")
	;;=2930614