Annotation of freem_fileman/DINIT001.m, revision 1.1
1.1 ! snw 1: DINIT001 ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ; 12/22/94 09:32:23
! 2: ;;21.0;VA FileMan;;Dec 28, 1994
! 3: ;Per VHA Directive 10-93-142, this routine should not be modified.
! 4: 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
! 5: Q Q
! 6: ;;^DIC(.84,0,"GL")
! 7: ;;=^DI(.84,
! 8: ;;^DIC("B","DIALOG",.84)
! 9: ;;=
! 10: ;;^DIC(.84,"%D",0)
! 11: ;;=^^8^8^2941121^^^^
! 12: ;;^DIC(.84,"%D",1,0)
! 13: ;;=This file stores the dialog used to 'talk' to a user (error messages,
! 14: ;;^DIC(.84,"%D",2,0)
! 15: ;;=help text, and other prompts.) Entry points in the ^DIALOG routine
! 16: ;;^DIC(.84,"%D",3,0)
! 17: ;;=retrieve text from this file. Variable parameters can be passed to these
! 18: ;;^DIC(.84,"%D",4,0)
! 19: ;;=calls. The parameters are inserted into windows within the text as it is
! 20: ;;^DIC(.84,"%D",5,0)
! 21: ;;=built. The text is returned in an array. This file and associated calls
! 22: ;;^DIC(.84,"%D",6,0)
! 23: ;;=can be used by any package to pass information in arrays rather than
! 24: ;;^DIC(.84,"%D",7,0)
! 25: ;;=writing to the current device. Record numbers 1 through 10000 are
! 26: ;;^DIC(.84,"%D",8,0)
! 27: ;;=reserved for VA FileMan.
! 28: ;;^DD(.84,0)
! 29: ;;=FIELD^^1.2^10
! 30: ;;^DD(.84,0,"DT")
! 31: ;;=2940526
! 32: ;;^DD(.84,0,"ID","WRITE")
! 33: ;;=N DIALID S DIALID=$O(^(2,0)) S:DIALID DIALID(1)=$E($G(^(DIALID,0)),1,42),DIALID(1,"F")="?10" D EN^DDIOL(.DIALID)
! 34: ;;^DD(.84,0,"IX","B",.84,.01)
! 35: ;;=
! 36: ;;^DD(.84,0,"IX","C",.84,1.2)
! 37: ;;=
! 38: ;;^DD(.84,0,"NM","DIALOG")
! 39: ;;=
! 40: ;;^DD(.84,.01,0)
! 41: ;;=DIALOG NUMBER^RNJ13,3X^^0;1^K:+X'=X!(X>999999999.999)!(('$G(DIFROM))&(X<10000.001))!(X?.E1"."4N.N) X S:$G(X) DINUM=X
! 42: ;;^DD(.84,.01,1,0)
! 43: ;;=^.1
! 44: ;;^DD(.84,.01,1,1,0)
! 45: ;;=.84^B
! 46: ;;^DD(.84,.01,1,1,1)
! 47: ;;=S ^DI(.84,"B",$E(X,1,30),DA)=""
! 48: ;;^DD(.84,.01,1,1,2)
! 49: ;;=K ^DI(.84,"B",$E(X,1,30),DA)
! 50: ;;^DD(.84,.01,3)
! 51: ;;=Type a Number between 10000.001 and 999999999.999, up to 3 Decimal Digits
! 52: ;;^DD(.84,.01,21,0)
! 53: ;;=^^1^1^2940523^
! 54: ;;^DD(.84,.01,21,1,0)
! 55: ;;=The dialogue number is used to uniquely identify a message.
! 56: ;;^DD(.84,.01,"DT")
! 57: ;;=2940623
! 58: ;;^DD(.84,1,0)
! 59: ;;=TYPE^RS^1:ERROR;2:GENERAL MESSAGE;3:HELP;^0;2^Q
! 60: ;;^DD(.84,1,3)
! 61: ;;=Enter code that reflects how this dialogue is used when talking to the users.
! 62: ;;^DD(.84,1,21,0)
! 63: ;;=^^2^2^2940523^
! 64: ;;^DD(.84,1,21,1,0)
! 65: ;;=This code is used to group the entries in the FileMan DIALOG file,
! 66: ;;^DD(.84,1,21,2,0)
! 67: ;;=according to how they are used when interacting with the user.
! 68: ;;^DD(.84,1,23,0)
! 69: ;;=^^3^3^2940523^
! 70: ;;^DD(.84,1,23,1,0)
! 71: ;;=This field is used to tell the DIALOG routines what array to use in
! 72: ;;^DD(.84,1,23,2,0)
! 73: ;;=returning the dialogue. It is also used for grouping the dialogue for
! 74: ;;^DD(.84,1,23,3,0)
! 75: ;;=reporting purposes.
! 76: ;;^DD(.84,1,"DT")
! 77: ;;=2940523
! 78: ;;^DD(.84,1.2,0)
! 79: ;;=PACKAGE^RP9.4'^DIC(9.4,^0;4^Q
! 80: ;;^DD(.84,1.2,1,0)
! 81: ;;=^.1
! 82: ;;^DD(.84,1.2,1,1,0)
! 83: ;;=.84^C
! 84: ;;^DD(.84,1.2,1,1,1)
! 85: ;;=S ^DI(.84,"C",$E(X,1,30),DA)=""
! 86: ;;^DD(.84,1.2,1,1,2)
! 87: ;;=K ^DI(.84,"C",$E(X,1,30),DA)
! 88: ;;^DD(.84,1.2,1,1,"%D",0)
! 89: ;;=^^3^3^2940623^
! 90: ;;^DD(.84,1.2,1,1,"%D",1,0)
! 91: ;;=Cross-reference on Package file. Used for identifying DIALOG entries by
! 92: ;;^DD(.84,1.2,1,1,"%D",2,0)
! 93: ;;=the package that owns the entry, and for populating the BUILD file during
! 94: ;;^DD(.84,1.2,1,1,"%D",3,0)
! 95: ;;=package distribution.
! 96: ;;^DD(.84,1.2,1,1,"DT")
! 97: ;;=2940623
! 98: ;;^DD(.84,1.2,3)
! 99: ;;=Enter the name of the Package that owns and distributes this entry.
! 100: ;;^DD(.84,1.2,21,0)
! 101: ;;=^^3^3^2940526^
! 102: ;;^DD(.84,1.2,21,1,0)
! 103: ;;=This is a pointer to the Package file. Each entry in this file belongs
! 104: ;;^DD(.84,1.2,21,2,0)
! 105: ;;=to, and is distributed by, a certain package. The Package field should be
! 106: ;;^DD(.84,1.2,21,3,0)
! 107: ;;=filled in for each entry on this file.
! 108: ;;^DD(.84,1.2,"DT")
! 109: ;;=2940623
! 110: ;;^DD(.84,2,0)
! 111: ;;=DESCRIPTION^.842^^1;0
! 112: ;;^DD(.84,2,21,0)
! 113: ;;=^^1^1^2930824^^
! 114: ;;^DD(.84,2,21,1,0)
! 115: ;;= Used for internal documentation purposes.
! 116: ;;^DD(.84,3,0)
! 117: ;;=INTERNAL PARAMETERS NEEDED^S^y:YES;^0;3^Q
! 118: ;;^DD(.84,3,3)
! 119: ;;=
! 120: ;;^DD(.84,3,21,0)
! 121: ;;=^^6^6^2931105^
! 122: ;;^DD(.84,3,21,1,0)
! 123: ;;= Some dialogue is built by inserting variable text (internal parameters)
! 124: ;;^DD(.84,3,21,2,0)
! 125: ;;=into windows in the word-processing TEXT field. The insertable text might
! 126: ;;^DD(.84,3,21,3,0)
! 127: ;;=be, for example, File or Field names. This field should be set to YES if
! 128: ;;^DD(.84,3,21,4,0)
! 129: ;;=any internal parameters need to be inserted into the TEXT. If the field
! 130: ;;^DD(.84,3,21,5,0)
! 131: ;;=is not set to YES, the DIALOG routine will not go through the part of the
! 132: ;;^DD(.84,3,21,6,0)
! 133: ;;=code that stuffs the internal parameters into the text.
! 134: ;;^DD(.84,3,"DT")
! 135: ;;=2931105
! 136: ;;^DD(.84,4,0)
! 137: ;;=TEXT^.844^^2;0
! 138: ;;^DD(.84,4,21,0)
! 139: ;;=^^7^7^2941122^
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT001.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman