DINIT001 ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;11:25 AM 22 Aug 2006
;;22.0;VA FileMan;**150**;Mar 30, 1999;Build 2
;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
;;^DIC(.84,0,"GL")
;;=^DI(.84,
;;^DIC("B","DIALOG",.84)
;;=
;;^DIC(.84,"%D",0)
;;=^^8^8^2941121^^^^
;;^DIC(.84,"%D",1,0)
;;=This file stores the dialog used to 'talk' to a user (error messages,
;;^DIC(.84,"%D",2,0)
;;=help text, and other prompts.) Entry points in the ^DIALOG routine
;;^DIC(.84,"%D",3,0)
;;=retrieve text from this file. Variable parameters can be passed to these
;;^DIC(.84,"%D",4,0)
;;=calls. The parameters are inserted into windows within the text as it is
;;^DIC(.84,"%D",5,0)
;;=built. The text is returned in an array. This file and associated calls
;;^DIC(.84,"%D",6,0)
;;=can be used by any package to pass information in arrays rather than
;;^DIC(.84,"%D",7,0)
;;=writing to the current device. Record numbers 1 through 10000 are
;;^DIC(.84,"%D",8,0)
;;=reserved for VA FileMan.
;;^DD(.84,0)
;;=FIELD^^8^11
;;^DD(.84,0,"DT")
;;=2960426
;;^DD(.84,0,"ID","WRITE")
;;=N DIALID S DIALID(1)=$P($G(^(0)),U,5) S:DIALID(1)="" DIALID=+$O(^(2,0)),DIALID(1)=$E($G(^(DIALID,0)),1,42) S DIALID(1,"F")="?10" D EN^DDIOL(.DIALID)
;;^DD(.84,0,"IX","B",.84,.01)
;;=
;;^DD(.84,0,"IX","C",.84,1.2)
;;=
;;^DD(.84,0,"IX","D",.84,1.3)
;;=
;;^DD(.84,0,"NM","DIALOG")
;;=
;;^DD(.84,0,"PT",1.52192,4)
;;=
;;^DD(.84,.01,0)
;;=DIALOG NUMBER^RNJ14,3X^^0;1^K:+X'=X!(X>9999999999.999)!(('$G(DIFROM))&(X<10000.001))!(X?.E1"."4N.N) X S:$G(X) DINUM=X
;;^DD(.84,.01,1,0)
;;=^.1
;;^DD(.84,.01,1,1,0)
;;=.84^B
;;^DD(.84,.01,1,1,1)
;;=S ^DI(.84,"B",$E(X,1,30),DA)=""
;;^DD(.84,.01,1,1,2)
;;=K ^DI(.84,"B",$E(X,1,30),DA)
;;^DD(.84,.01,3)
;;=Type a Number between 10000.001 and 9999999999.999, up to 3 Decimal Digits
;;^DD(.84,.01,21,0)
;;=^^1^1^2940523^
;;^DD(.84,.01,21,1,0)
;;=The dialogue number is used to uniquely identify a message.
;;^DD(.84,.01,"DT")
;;=2940623
;;^DD(.84,1,0)
;;=TYPE^RS^1:ERROR;2:GENERAL MESSAGE;3:HELP;^0;2^Q
;;^DD(.84,1,3)
;;=Enter code that reflects how this dialogue is used when talking to the users.
;;^DD(.84,1,21,0)
;;=^^2^2^2940523^
;;^DD(.84,1,21,1,0)
;;=This code is used to group the entries in the FileMan DIALOG file,
;;^DD(.84,1,21,2,0)
;;=according to how they are used when interacting with the user.
;;^DD(.84,1,23,0)
;;=^^3^3^2940523^
;;^DD(.84,1,23,1,0)
;;=This field is used to tell the DIALOG routines what array to use in
;;^DD(.84,1,23,2,0)
;;=returning the dialogue. It is also used for grouping the dialogue for
;;^DD(.84,1,23,3,0)
;;=reporting purposes.
;;^DD(.84,1,"DT")
;;=2940523
;;^DD(.84,1.2,0)
;;=PACKAGE^RP9.4'^DIC(9.4,^0;4^Q
;;^DD(.84,1.2,1,0)
;;=^.1
;;^DD(.84,1.2,1,1,0)
;;=.84^C
;;^DD(.84,1.2,1,1,1)
;;=S ^DI(.84,"C",$E(X,1,30),DA)=""
;;^DD(.84,1.2,1,1,2)
;;=K ^DI(.84,"C",$E(X,1,30),DA)
;;^DD(.84,1.2,1,1,"%D",0)
;;=^^3^3^2940623^
;;^DD(.84,1.2,1,1,"%D",1,0)
;;=Cross-reference on Package file. Used for identifying DIALOG entries by
;;^DD(.84,1.2,1,1,"%D",2,0)
;;=the package that owns the entry, and for populating the BUILD file during
;;^DD(.84,1.2,1,1,"%D",3,0)
;;=package distribution.
;;^DD(.84,1.2,1,1,"DT")
;;=2940623
;;^DD(.84,1.2,3)
;;=Enter the name of the Package that owns and distributes this entry.
;;^DD(.84,1.2,21,0)
;;=^^3^3^2940526^
;;^DD(.84,1.2,21,1,0)
;;=This is a pointer to the Package file. Each entry in this file belongs
;;^DD(.84,1.2,21,2,0)
;;=to, and is distributed by, a certain package. The Package field should be
;;^DD(.84,1.2,21,3,0)
;;=filled in for each entry on this file.
;;^DD(.84,1.2,"DT")
;;=2940623
;;^DD(.84,1.3,0)
;;=SHORT DESCRIPTION^F^^0;5^K:$L(X)>42!($L(X)<1) X
;;^DD(.84,1.3,1,0)
;;=^.1
;;^DD(.84,1.3,1,1,0)
;;=.84^D
;;^DD(.84,1.3,1,1,1)
;;=S ^DI(.84,"D",$E(X,1,30),DA)=""
;;^DD(.84,1.3,1,1,2)
;;=K ^DI(.84,"D",$E(X,1,30),DA)
;;^DD(.84,1.3,1,1,"DT")
;;=2960426
;;^DD(.84,1.3,3)
;;=Description used to identify entry on lookup. Answer must be 1-42 characters in length.
;;^DD(.84,1.3,21,0)
;;=^^2^2^2960426^
;;^DD(.84,1.3,21,1,0)
;;=Short description is used to identify an entry on lookup. The "WRITE"
;;^DD(.84,1.3,21,2,0)
;;=identifier will display this description if it is not null.
;;^DD(.84,1.3,"DT")
;;=2960426
;;^DD(.84,2,0)
;;=DESCRIPTION^.842^^1;0
;;^DD(.84,2,21,0)
;;=^^1^1^2930824^^
;;^DD(.84,2,21,1,0)
;;= Used for internal documentation purposes.
;;^DD(.84,3,0)
;;=INTERNAL PARAMETERS NEEDED^S^y:YES;^0;3^Q
;;^DD(.84,3,3)
;;=
;;^DD(.84,3,21,0)
;;=^^6^6^2931105^
;;^DD(.84,3,21,1,0)
;;= Some dialogue is built by inserting variable text (internal parameters)
;;^DD(.84,3,21,2,0)
;;=into windows in the word-processing TEXT field. The insertable text might
;;^DD(.84,3,21,3,0)
;;=be, for example, File or Field names. This field should be set to YES if
;;^DD(.84,3,21,4,0)
;;=any internal parameters need to be inserted into the TEXT. If the field
;;^DD(.84,3,21,5,0)
;;=is not set to YES, the DIALOG routine will not go through the part of the
;;^DD(.84,3,21,6,0)
;;=code that stuffs the internal parameters into the text.
;;^DD(.84,3,"DT")
;;=2931105
;;^DD(.84,4,0)
;;=TEXT^.844^^2;0
;;^DD(.84,4,21,0)
;;=^^7^7^2941122^
;;^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
DINIT001 ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;11:25 AM 22 Aug 2006
+1 ;;22.0;VA FileMan;**150**;Mar 30, 1999;Build 2
+2 ;Per VHA Directive 10-93-142, this routine should not be modified.
+3 FOR I=1:2
SET X=$TEXT(Q+I)
IF X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
IF $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
SET @X=Y
Q QUIT
+1 ;;^DIC(.84,0,"GL")
+2 ;;=^DI(.84,
+3 ;;^DIC("B","DIALOG",.84)
+4 ;;=
+5 ;;^DIC(.84,"%D",0)
+6 ;;=^^8^8^2941121^^^^
+7 ;;^DIC(.84,"%D",1,0)
+8 ;;=This file stores the dialog used to 'talk' to a user (error messages,
+9 ;;^DIC(.84,"%D",2,0)
+10 ;;=help text, and other prompts.) Entry points in the ^DIALOG routine
+11 ;;^DIC(.84,"%D",3,0)
+12 ;;=retrieve text from this file. Variable parameters can be passed to these
+13 ;;^DIC(.84,"%D",4,0)
+14 ;;=calls. The parameters are inserted into windows within the text as it is
+15 ;;^DIC(.84,"%D",5,0)
+16 ;;=built. The text is returned in an array. This file and associated calls
+17 ;;^DIC(.84,"%D",6,0)
+18 ;;=can be used by any package to pass information in arrays rather than
+19 ;;^DIC(.84,"%D",7,0)
+20 ;;=writing to the current device. Record numbers 1 through 10000 are
+21 ;;^DIC(.84,"%D",8,0)
+22 ;;=reserved for VA FileMan.
+23 ;;^DD(.84,0)
+24 ;;=FIELD^^8^11
+25 ;;^DD(.84,0,"DT")
+26 ;;=2960426
+27 ;;^DD(.84,0,"ID","WRITE")
+28 ;;=N DIALID S DIALID(1)=$P($G(^(0)),U,5) S:DIALID(1)="" DIALID=+$O(^(2,0)),DIALID(1)=$E($G(^(DIALID,0)),1,42) S DIALID(1,"F")="?10" D EN^DDIOL(.DIALID)
+29 ;;^DD(.84,0,"IX","B",.84,.01)
+30 ;;=
+31 ;;^DD(.84,0,"IX","C",.84,1.2)
+32 ;;=
+33 ;;^DD(.84,0,"IX","D",.84,1.3)
+34 ;;=
+35 ;;^DD(.84,0,"NM","DIALOG")
+36 ;;=
+37 ;;^DD(.84,0,"PT",1.52192,4)
+38 ;;=
+39 ;;^DD(.84,.01,0)
+40 ;;=DIALOG NUMBER^RNJ14,3X^^0;1^K:+X'=X!(X>9999999999.999)!(('$G(DIFROM))&(X<10000.001))!(X?.E1"."4N.N) X S:$G(X) DINUM=X
+41 ;;^DD(.84,.01,1,0)
+42 ;;=^.1
+43 ;;^DD(.84,.01,1,1,0)
+44 ;;=.84^B
+45 ;;^DD(.84,.01,1,1,1)
+46 ;;=S ^DI(.84,"B",$E(X,1,30),DA)=""
+47 ;;^DD(.84,.01,1,1,2)
+48 ;;=K ^DI(.84,"B",$E(X,1,30),DA)
+49 ;;^DD(.84,.01,3)
+50 ;;=Type a Number between 10000.001 and 9999999999.999, up to 3 Decimal Digits
+51 ;;^DD(.84,.01,21,0)
+52 ;;=^^1^1^2940523^
+53 ;;^DD(.84,.01,21,1,0)
+54 ;;=The dialogue number is used to uniquely identify a message.
+55 ;;^DD(.84,.01,"DT")
+56 ;;=2940623
+57 ;;^DD(.84,1,0)
+58 ;;=TYPE^RS^1:ERROR;2:GENERAL MESSAGE;3:HELP;^0;2^Q
+59 ;;^DD(.84,1,3)
+60 ;;=Enter code that reflects how this dialogue is used when talking to the users.
+61 ;;^DD(.84,1,21,0)
+62 ;;=^^2^2^2940523^
+63 ;;^DD(.84,1,21,1,0)
+64 ;;=This code is used to group the entries in the FileMan DIALOG file,
+65 ;;^DD(.84,1,21,2,0)
+66 ;;=according to how they are used when interacting with the user.
+67 ;;^DD(.84,1,23,0)
+68 ;;=^^3^3^2940523^
+69 ;;^DD(.84,1,23,1,0)
+70 ;;=This field is used to tell the DIALOG routines what array to use in
+71 ;;^DD(.84,1,23,2,0)
+72 ;;=returning the dialogue. It is also used for grouping the dialogue for
+73 ;;^DD(.84,1,23,3,0)
+74 ;;=reporting purposes.
+75 ;;^DD(.84,1,"DT")
+76 ;;=2940523
+77 ;;^DD(.84,1.2,0)
+78 ;;=PACKAGE^RP9.4'^DIC(9.4,^0;4^Q
+79 ;;^DD(.84,1.2,1,0)
+80 ;;=^.1
+81 ;;^DD(.84,1.2,1,1,0)
+82 ;;=.84^C
+83 ;;^DD(.84,1.2,1,1,1)
+84 ;;=S ^DI(.84,"C",$E(X,1,30),DA)=""
+85 ;;^DD(.84,1.2,1,1,2)
+86 ;;=K ^DI(.84,"C",$E(X,1,30),DA)
+87 ;;^DD(.84,1.2,1,1,"%D",0)
+88 ;;=^^3^3^2940623^
+89 ;;^DD(.84,1.2,1,1,"%D",1,0)
+90 ;;=Cross-reference on Package file. Used for identifying DIALOG entries by
+91 ;;^DD(.84,1.2,1,1,"%D",2,0)
+92 ;;=the package that owns the entry, and for populating the BUILD file during
+93 ;;^DD(.84,1.2,1,1,"%D",3,0)
+94 ;;=package distribution.
+95 ;;^DD(.84,1.2,1,1,"DT")
+96 ;;=2940623
+97 ;;^DD(.84,1.2,3)
+98 ;;=Enter the name of the Package that owns and distributes this entry.
+99 ;;^DD(.84,1.2,21,0)
+100 ;;=^^3^3^2940526^
+101 ;;^DD(.84,1.2,21,1,0)
+102 ;;=This is a pointer to the Package file. Each entry in this file belongs
+103 ;;^DD(.84,1.2,21,2,0)
+104 ;;=to, and is distributed by, a certain package. The Package field should be
+105 ;;^DD(.84,1.2,21,3,0)
+106 ;;=filled in for each entry on this file.
+107 ;;^DD(.84,1.2,"DT")
+108 ;;=2940623
+109 ;;^DD(.84,1.3,0)
+110 ;;=SHORT DESCRIPTION^F^^0;5^K:$L(X)>42!($L(X)<1) X
+111 ;;^DD(.84,1.3,1,0)
+112 ;;=^.1
+113 ;;^DD(.84,1.3,1,1,0)
+114 ;;=.84^D
+115 ;;^DD(.84,1.3,1,1,1)
+116 ;;=S ^DI(.84,"D",$E(X,1,30),DA)=""
+117 ;;^DD(.84,1.3,1,1,2)
+118 ;;=K ^DI(.84,"D",$E(X,1,30),DA)
+119 ;;^DD(.84,1.3,1,1,"DT")
+120 ;;=2960426
+121 ;;^DD(.84,1.3,3)
+122 ;;=Description used to identify entry on lookup. Answer must be 1-42 characters in length.
+123 ;;^DD(.84,1.3,21,0)
+124 ;;=^^2^2^2960426^
+125 ;;^DD(.84,1.3,21,1,0)
+126 ;;=Short description is used to identify an entry on lookup. The "WRITE"
+127 ;;^DD(.84,1.3,21,2,0)
+128 ;;=identifier will display this description if it is not null.
+129 ;;^DD(.84,1.3,"DT")
+130 ;;=2960426
+131 ;;^DD(.84,2,0)
+132 ;;=DESCRIPTION^.842^^1;0
+133 ;;^DD(.84,2,21,0)
+134 ;;=^^1^1^2930824^^
+135 ;;^DD(.84,2,21,1,0)
+136 ;;= Used for internal documentation purposes.
+137 ;;^DD(.84,3,0)
+138 ;;=INTERNAL PARAMETERS NEEDED^S^y:YES;^0;3^Q
+139 ;;^DD(.84,3,3)
+140 ;;=
+141 ;;^DD(.84,3,21,0)
+142 ;;=^^6^6^2931105^
+143 ;;^DD(.84,3,21,1,0)
+144 ;;= Some dialogue is built by inserting variable text (internal parameters)
+145 ;;^DD(.84,3,21,2,0)
+146 ;;=into windows in the word-processing TEXT field. The insertable text might
+147 ;;^DD(.84,3,21,3,0)
+148 ;;=be, for example, File or Field names. This field should be set to YES if
+149 ;;^DD(.84,3,21,4,0)
+150 ;;=any internal parameters need to be inserted into the TEXT. If the field
+151 ;;^DD(.84,3,21,5,0)
+152 ;;=is not set to YES, the DIALOG routine will not go through the part of the
+153 ;;^DD(.84,3,21,6,0)
+154 ;;=code that stuffs the internal parameters into the text.
+155 ;;^DD(.84,3,"DT")
+156 ;;=2931105
+157 ;;^DD(.84,4,0)
+158 ;;=TEXT^.844^^2;0
+159 ;;^DD(.84,4,21,0)
+160 ;;=^^7^7^2941122^
+161 ;;^DD(.84,4,21,1,0)
+162 ;;=Actual text of the message. If parameters (variable pieces of text) are
+163 ;;^DD(.84,4,21,2,0)
+164 ;;=to be inserted into the dialogue when the message is built, the parameter
+165 ;;^DD(.84,4,21,3,0)
+166 ;;=will appear as a 'window' in this TEXT field, surrounded by vertical bars.
+167 ;;^DD(.84,4,21,4,0)
+168 ;;=The data within the 'window' will represent a subscript of the input
+169 ;;^DD(.84,4,21,5,0)
+170 ;;=parameter list that is passed to BLD^DIALOG or $$EZBLD^DIALOG when
+171 ;;^DD(.84,4,21,6,0)
+172 ;;=building the message. This same subscript should be used as the .01 of the
+173 ;;^DD(.84,4,21,7,0)
+174 ;;=PARAMETER field in this file to document the parameter.
+175 ;;^DD(.84,5,0)
+176 ;;=PARAMETER^.845^^3;0
+177 ;;^DD(.84,6,0)
+178 ;;=POST MESSAGE ACTION^K^^6;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+179 ;;^DD(.84,6,3)
+180 ;;=This is Standard MUMPS code. This code will be executed whenever this message is retrieved through a call to BLD^DIALOG or $$EZBLD^DIALOG.
+181 ;;^DD(.84,6,9)
+182 ;;=@
+183 ;;^DD(.84,6,21,0)
+184 ;;=^^6^6^2941122^
+185 ;;^DD(.84,6,21,1,0)
+186 ;;=If some special action should be taken whenever this message is built,
+187 ;;^DD(.84,6,21,2,0)
+188 ;;=MUMPS code can be entered here. This code will be executed by the
+189 ;;^DD(.84,6,21,3,0)
+190 ;;=BLD^DIALOG or $$EZBLD^DIALOG routines, immediately after the message text
+191 ;;^DD(.84,6,21,4,0)
+192 ;;=has been built in the output array. For example, the code could set a
