Annotation of freem_fileman/DINIT298.m, revision 1.1
1.1 ! snw 1: DINIT298 ;SFISC/MKO-SCREENMAN FILES ;11/28/94 11:42 AM
! 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) G:X="" ^DINIT299 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("B","BLOCK",.404)
! 7: ;;=
! 8: ;;^DIC(.404,"%D",0)
! 9: ;;=^^2^2^2940914^
! 10: ;;^DIC(.404,"%D",1,0)
! 11: ;;=This file stores ScreenMan blocks, which are used to build forms in the
! 12: ;;^DIC(.404,"%D",2,0)
! 13: ;;=Form file.
! 14: ;;^DD(.404,0)
! 15: ;;=FIELD^^40^7
! 16: ;;^DD(.404,0,"DT")
! 17: ;;=2940625
! 18: ;;^DD(.404,0,"IX","B",.404,.01)
! 19: ;;=
! 20: ;;^DD(.404,0,"NM","BLOCK")
! 21: ;;=
! 22: ;;^DD(.404,0,"PT",.4031,1)
! 23: ;;=
! 24: ;;^DD(.404,0,"PT",.4032,.01)
! 25: ;;=
! 26: ;;^DD(.404,.01,0)
! 27: ;;=NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!(X?1P.E)!(X=+$P(X,"E")) X I $D(X),$S($D(DDS)&$G(DA):$P($G(^DIST(.404,DA,0)),U)'=X,1:1),$D(^DIST(.404,"B",X)) K X
! 28: ;;^DD(.404,.01,1,0)
! 29: ;;=^.1
! 30: ;;^DD(.404,.01,1,1,0)
! 31: ;;=.404^B
! 32: ;;^DD(.404,.01,1,1,1)
! 33: ;;=S ^DIST(.404,"B",$E(X,1,30),DA)=""
! 34: ;;^DD(.404,.01,1,1,2)
! 35: ;;=K ^DIST(.404,"B",$E(X,1,30),DA)
! 36: ;;^DD(.404,.01,1,1,"DT")
! 37: ;;=2900912
! 38: ;;^DD(.404,.01,3)
! 39: ;;=Answer must be 3-30 characters in length.
! 40: ;;^DD(.404,.01,21,0)
! 41: ;;=^^2^2^2940907^^
! 42: ;;^DD(.404,.01,21,1,0)
! 43: ;;=Enter the name of the block, 3-30 characters in length. The block name
! 44: ;;^DD(.404,.01,21,2,0)
! 45: ;;=must be unique and cannot be numeric or start with punctuation.
! 46: ;;^DD(.404,.01,"DEL",1,0)
! 47: ;;=I '$D(DDSDEL) D EN^DDIOL($C(7)_"You must use the FileMan options to delete blocks.") I 1
! 48: ;;^DD(.404,.01,"DT")
! 49: ;;=2931020
! 50: ;;^DD(.404,1,0)
! 51: ;;=DATA DICTIONARY NUMBER^FX^^0;2^K:X'=+$P(X,"E")!(X<2)!($L(X)>16)!'$D(^DD(X)) X
! 52: ;;^DD(.404,1,3)
! 53: ;;=Answer must be 1-16 characters in length.
! 54: ;;^DD(.404,1,21,0)
! 55: ;;=^^3^3^2940907^
! 56: ;;^DD(.404,1,21,1,0)
! 57: ;;=Enter the data dictionary number of the file or subfile that contains the
! 58: ;;^DD(.404,1,21,2,0)
! 59: ;;=fields that are placed on this block. A block can contain fields from
! 60: ;;^DD(.404,1,21,3,0)
! 61: ;;=only one file or subfile.
! 62: ;;^DD(.404,1,"DT")
! 63: ;;=2930406
! 64: ;;^DD(.404,2,0)
! 65: ;;=DISABLE NAVIGATION^S^0:NO;1:YES;2:OUTOK;^0;3^Q
! 66: ;;^DD(.404,2,3)
! 67: ;;=
! 68: ;;^DD(.404,2,21,0)
! 69: ;;=^^8^8^2940907^^
! 70: ;;^DD(.404,2,21,1,0)
! 71: ;;=Enter 'YES' if navigation within the block should be disabled. When
! 72: ;;^DD(.404,2,21,2,0)
! 73: ;;=navigation is disabled, user cannot ^-jump to other fields, they cannot
! 74: ;;^DD(.404,2,21,3,0)
! 75: ;;=^-jump to the Command Line, and the <Up>, <Down>, <Tab>, and <PF4> keys
! 76: ;;^DD(.404,2,21,4,0)
! 77: ;;=traverse the fields in the same order as the <RET> key -- that is, in the
! 78: ;;^DD(.404,2,21,5,0)
! 79: ;;=order established by the Field Order property of the fields.
! 80: ;;^DD(.404,2,21,6,0)
! 81: ;;=
! 82: ;;^DD(.404,2,21,7,0)
! 83: ;;=Enter 'OUTOK' to disable navigation, but allow the user to ^-jump to the
! 84: ;;^DD(.404,2,21,8,0)
! 85: ;;=Command Line.
! 86: ;;^DD(.404,11,0)
! 87: ;;=PRE ACTION^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
! 88: ;;^DD(.404,11,3)
! 89: ;;=Enter standard MUMPS code that will be executed when the user navigates to the block.
! 90: ;;^DD(.404,11,9)
! 91: ;;=@
! 92: ;;^DD(.404,11,21,0)
! 93: ;;=^^6^6^2940907^^
! 94: ;;^DD(.404,11,21,1,0)
! 95: ;;=This is MUMPS code that is executed when the user navigates to the
! 96: ;;^DD(.404,11,21,2,0)
! 97: ;;=block.
! 98: ;;^DD(.404,11,21,3,0)
! 99: ;;=
! 100: ;;^DD(.404,11,21,4,0)
! 101: ;;=This pre-action is part of the block definition itself, so if this
! 102: ;;^DD(.404,11,21,5,0)
! 103: ;;=block is used on another page or another form, the pre-action still
! 104: ;;^DD(.404,11,21,6,0)
! 105: ;;=applies.
! 106: ;;^DD(.404,12,0)
! 107: ;;=POST ACTION^K^^12;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
! 108: ;;^DD(.404,12,3)
! 109: ;;=Enter standard MUMPS that will be executed when the user leaves the block.
! 110: ;;^DD(.404,12,9)
! 111: ;;=@
! 112: ;;^DD(.404,12,21,0)
! 113: ;;=^^5^5^2940907^^
! 114: ;;^DD(.404,12,21,1,0)
! 115: ;;=This is MUMPS code that is executed when the user leaves the block.
! 116: ;;^DD(.404,12,21,2,0)
! 117: ;;=
! 118: ;;^DD(.404,12,21,3,0)
! 119: ;;=This post-action is part of the block definition itself, so if the
! 120: ;;^DD(.404,12,21,4,0)
! 121: ;;=block is used on another page or on another form, the post-action still
! 122: ;;^DD(.404,12,21,5,0)
! 123: ;;=applies.
! 124: ;;^DD(.404,15,0)
! 125: ;;=DESCRIPTION^.40415^^15;0
! 126: ;;^DD(.404,40,0)
! 127: ;;=FIELD^.4044I^^40;0
! 128: ;;^DD(.404,40,"DT")
! 129: ;;=2931029
! 130: ;;^DD(.40415,0)
! 131: ;;=DESCRIPTION SUB-FIELD^^.01^1
! 132: ;;^DD(.40415,0,"DT")
! 133: ;;=2910204
! 134: ;;^DD(.40415,0,"NM","DESCRIPTION")
! 135: ;;=
! 136: ;;^DD(.40415,0,"UP")
! 137: ;;=.404
! 138: ;;^DD(.40415,.01,0)
! 139: ;;=DESCRIPTION^W^^0;1^Q
! 140: ;;^DD(.40415,.01,3)
! 141: ;;=
! 142: ;;^DD(.40415,.01,21,0)
! 143: ;;=^^1^1^2940908^^^
! 144: ;;^DD(.40415,.01,21,1,0)
! 145: ;;=Enter text that describes this block.
! 146: ;;^DD(.4044,0)
! 147: ;;=FIELD SUB-FIELD^^30^32
! 148: ;;^DD(.4044,0,"DT")
! 149: ;;=2940625
! 150: ;;^DD(.4044,0,"ID","WRITE")
! 151: ;;=D EN^DDIOL($S($P(^(0),U,2)?1"Select "1.E:$E($P(^(0),U,2),8,999),1:$S($P(^(0),U,2)="!M":$G(^(.1)),1:$P(^(0),U,2)))_$S($P(^(0),U,4)]"":" ("_$P(^(0),U,4)_")",1:""),"","?9")
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT298.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman