Annotation of freem_fileman/DINIT290.m, revision 1.1
1.1 ! snw 1: DINIT290 ;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="" ^DINIT291 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","FORM",.403)
! 7: ;;=
! 8: ;;^DIC(.403,"%D",0)
! 9: ;;=^^3^3^2940914^
! 10: ;;^DIC(.403,"%D",1,0)
! 11: ;;=This file stores ScreenMan forms, which are composed of blocks. The
! 12: ;;^DIC(.403,"%D",2,0)
! 13: ;;=form's attributes that describe how information is presented on the screen
! 14: ;;^DIC(.403,"%D",3,0)
! 15: ;;=are contained in this file.
! 16: ;;^DD(.403,0)
! 17: ;;=FIELD^^6^18
! 18: ;;^DD(.403,0,"DT")
! 19: ;;=2941018
! 20: ;;^DD(.403,0,"ID","WRITE")
! 21: ;;=N D,D1,D2 S D2=^(0) S:$X>30 D1(1,"F")="!" S D=$P(D2,U,5) S:D D1(2)="("_$$FMTE^DILIBF(D)_")",D1(2,"F")="?30" S D=$P(D2,U,4) S:D D1(3)="User #"_D,D1(3,"F")="?50" S D=$P(D2,U,8) S:D D1(4)=" File #"_D,D1(4,"F")="?59" D EN^DDIOL(.D1)
! 22: ;;^DD(.403,0,"ID","WRITED")
! 23: ;;=I $G(DZ)?1"???".E N D S D=0 F S D=$O(^DIST(.403,Y,15,D)) Q:D'>0 I $D(^(D,0))#2 D EN^DDIOL(^(0),"","!?5")
! 24: ;;^DD(.403,0,"IX","AB",.4032,.01)
! 25: ;;=
! 26: ;;^DD(.403,0,"IX","AC",.4031,1)
! 27: ;;=
! 28: ;;^DD(.403,0,"IX","AZ",.403,.01)
! 29: ;;=
! 30: ;;^DD(.403,0,"IX","B",.403,.01)
! 31: ;;=
! 32: ;;^DD(.403,0,"IX","C",.403,6)
! 33: ;;=
! 34: ;;^DD(.403,0,"IX","F",.403,7)
! 35: ;;=
! 36: ;;^DD(.403,0,"IX","F1",.403,.01)
! 37: ;;=
! 38: ;;^DD(.403,0,"NM","FORM")
! 39: ;;=
! 40: ;;^DD(.403,.01,0)
! 41: ;;=NAME^RFX^^0;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X=+$P(X,"E")) X
! 42: ;;^DD(.403,.01,1,0)
! 43: ;;=^.1
! 44: ;;^DD(.403,.01,1,1,0)
! 45: ;;=.403^B
! 46: ;;^DD(.403,.01,1,1,1)
! 47: ;;=S ^DIST(.403,"B",$E(X,1,30),DA)=""
! 48: ;;^DD(.403,.01,1,1,2)
! 49: ;;=K ^DIST(.403,"B",$E(X,1,30),DA)
! 50: ;;^DD(.403,.01,1,2,0)
! 51: ;;=.403^F1^MUMPS
! 52: ;;^DD(.403,.01,1,2,1)
! 53: ;;=X "S %=$P("_DIC_"DA,0),U,8) S:$L(%) "_DIC_"""F""_%,X,DA)=1"
! 54: ;;^DD(.403,.01,1,2,2)
! 55: ;;=X "S %=$P("_DIC_"DA,0),U,8) K:$L(%) "_DIC_"""F""_%,X,DA)"
! 56: ;;^DD(.403,.01,1,2,3)
! 57: ;;=Programmer only
! 58: ;;^DD(.403,.01,1,2,"%D",0)
! 59: ;;=^^6^6^2910812^
! 60: ;;^DD(.403,.01,1,2,"%D",1,0)
! 61: ;;=This cross-reference is used to quickly find all ScreenMan templates
! 62: ;;^DD(.403,.01,1,2,"%D",2,0)
! 63: ;;=associated with a file. It has the form:
! 64: ;;^DD(.403,.01,1,2,"%D",3,0)
! 65: ;;=
! 66: ;;^DD(.403,.01,1,2,"%D",4,0)
! 67: ;;= ^DIST(.403,"F"_file#,"formname",DA)=1
! 68: ;;^DD(.403,.01,1,2,"%D",5,0)
! 69: ;;=
! 70: ;;^DD(.403,.01,1,2,"%D",6,0)
! 71: ;;=A comparable cross-reference also exists on the PRIMARY FILE field.
! 72: ;;^DD(.403,.01,1,2,"DT")
! 73: ;;=2910812
! 74: ;;^DD(.403,.01,1,3,0)
! 75: ;;=.403^AZ^MUMPS
! 76: ;;^DD(.403,.01,1,3,1)
! 77: ;;=Q
! 78: ;;^DD(.403,.01,1,3,2)
! 79: ;;=Q
! 80: ;;^DD(.403,.01,1,3,3)
! 81: ;;=Programmer only
! 82: ;;^DD(.403,.01,1,3,"%D",0)
! 83: ;;=^^7^7^2940708^
! 84: ;;^DD(.403,.01,1,3,"%D",1,0)
! 85: ;;=This is a no-op cross reference defined merely to document the data stored
! 86: ;;^DD(.403,.01,1,3,"%D",2,0)
! 87: ;;=under ^DIST(.403,form IEN,"AZ").
! 88: ;;^DD(.403,.01,1,3,"%D",3,0)
! 89: ;;=
! 90: ;;^DD(.403,.01,1,3,"%D",4,0)
! 91: ;;=This global stores the compiled data for a Form. Form compilation occurs
! 92: ;;^DD(.403,.01,1,3,"%D",5,0)
! 93: ;;=automatically whenever a Form is edited through the FileMan supplied
! 94: ;;^DD(.403,.01,1,3,"%D",6,0)
! 95: ;;=options. The compiled data stored in this global is static information
! 96: ;;^DD(.403,.01,1,3,"%D",7,0)
! 97: ;;=that is used whenever a Form is run.
! 98: ;;^DD(.403,.01,1,3,"DT")
! 99: ;;=2940708
! 100: ;;^DD(.403,.01,3)
! 101: ;;=Answer must be 3-30 characters in length.
! 102: ;;^DD(.403,.01,21,0)
! 103: ;;=^^3^3^2940906^
! 104: ;;^DD(.403,.01,21,1,0)
! 105: ;;=Enter the name of the form, 3-30 characters in length. The form name
! 106: ;;^DD(.403,.01,21,2,0)
! 107: ;;=must be unique and cannot be numeric or start with a punctuation
! 108: ;;^DD(.403,.01,21,3,0)
! 109: ;;=character. It should also be namespaced.
! 110: ;;^DD(.403,.01,"DEL",1,0)
! 111: ;;=D EN^DDIOL($C(7)_"You must use the FileMan option to delete forms.") I 1
! 112: ;;^DD(.403,.01,"DT")
! 113: ;;=2940708
! 114: ;;^DD(.403,1,0)
! 115: ;;=READ ACCESS^FX^^0;2^I DUZ(0)'="@" N DDZ F DDZ=1:1:$L(X) K:DUZ(0)'[$E(X,DDZ) X
! 116: ;;^DD(.403,1,3)
! 117: ;;=Enter VA FileMan access code(s) which control access to the form.
! 118: ;;^DD(.403,1,21,0)
! 119: ;;=^^1^1^2931020^^
! 120: ;;^DD(.403,1,21,1,0)
! 121: ;;=Non-programmers can enter only their own VA FileMan access code(s).
! 122: ;;^DD(.403,1,"DT")
! 123: ;;=2931020
! 124: ;;^DD(.403,2,0)
! 125: ;;=WRITE ACCESS^FX^^0;3^I DUZ(0)'="@" N DDZ F DDZ=1:1:$L(X) K:DUZ(0)'[$E(X,DDZ) X
! 126: ;;^DD(.403,2,3)
! 127: ;;=Enter VA FileMan access code(s) which control access to the form.
! 128: ;;^DD(.403,2,21,0)
! 129: ;;=^^1^1^2931020^
! 130: ;;^DD(.403,2,21,1,0)
! 131: ;;=Non-programmers can enter only their own VA FileMan access code(s).
! 132: ;;^DD(.403,2,"DT")
! 133: ;;=2931020
! 134: ;;^DD(.403,3,0)
! 135: ;;=CREATOR^NJ3,0X^^0;4^K:X'?.N X
! 136: ;;^DD(.403,3,3)
! 137: ;;=Enter the VA FileMan User Number of the form creator.
! 138: ;;^DD(.403,3,21,0)
! 139: ;;=^^2^2^2931020^^
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT290.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman