Annotation of freem_fileman/DINIT291.m, revision 1.1
1.1 ! snw 1: DINIT291 ;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="" ^DINIT292 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: ;;^DD(.403,3,21,1,0)
! 7: ;;=This is the DUZ of the person who created the form. The ScreenMan
! 8: ;;^DD(.403,3,21,2,0)
! 9: ;;=options to create the form automatically put a value into this field.
! 10: ;;^DD(.403,4,0)
! 11: ;;=DATE CREATED^D^^0;5^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
! 12: ;;^DD(.403,4,3)
! 13: ;;=Enter the date the form was created.
! 14: ;;^DD(.403,4,21,0)
! 15: ;;=^^2^2^2941018^^
! 16: ;;^DD(.403,4,21,1,0)
! 17: ;;=This is the date the form was created. The ScreenMan options to create
! 18: ;;^DD(.403,4,21,2,0)
! 19: ;;=the form automatically put a value into this field.
! 20: ;;^DD(.403,4,"DT")
! 21: ;;=2941018
! 22: ;;^DD(.403,5,0)
! 23: ;;=DATE LAST USED^D^^0;6^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
! 24: ;;^DD(.403,5,3)
! 25: ;;=Enter the date and time the form was last used.
! 26: ;;^DD(.403,5,21,0)
! 27: ;;=^^2^2^2941018^^
! 28: ;;^DD(.403,5,21,1,0)
! 29: ;;=This is the date the form was last used. ScreenMan automatically
! 30: ;;^DD(.403,5,21,2,0)
! 31: ;;=puts a value into this field when the form is invoked.
! 32: ;;^DD(.403,5,"DT")
! 33: ;;=2941018
! 34: ;;^DD(.403,6,0)
! 35: ;;=TITLE^F^^0;7^K:$L(X)>50!($L(X)<1) X
! 36: ;;^DD(.403,6,1,0)
! 37: ;;=^.1
! 38: ;;^DD(.403,6,1,1,0)
! 39: ;;=.403^C
! 40: ;;^DD(.403,6,1,1,1)
! 41: ;;=S ^DIST(.403,"C",$E(X,1,30),DA)=""
! 42: ;;^DD(.403,6,1,1,2)
! 43: ;;=K ^DIST(.403,"C",$E(X,1,30),DA)
! 44: ;;^DD(.403,6,1,1,"DT")
! 45: ;;=2940908
! 46: ;;^DD(.403,6,3)
! 47: ;;=Answer must be 1-50 characters in length.
! 48: ;;^DD(.403,6,21,0)
! 49: ;;=^^4^4^2940908^
! 50: ;;^DD(.403,6,21,1,0)
! 51: ;;=The TITLE property can be used by the form designer to help identify a
! 52: ;;^DD(.403,6,21,2,0)
! 53: ;;=form. It is cross referenced and need not be unique. ScreenMan does not
! 54: ;;^DD(.403,6,21,3,0)
! 55: ;;=automatically display the TITLE to the user, but the form designer can
! 56: ;;^DD(.403,6,21,4,0)
! 57: ;;=choose to define a caption-only field that displays the title to the user.
! 58: ;;^DD(.403,6,22)
! 59: ;;=
! 60: ;;^DD(.403,6,"DT")
! 61: ;;=2940908
! 62: ;;^DD(.403,7,0)
! 63: ;;=PRIMARY FILE^RFX^^0;8^K:X'=+$P(X,"E")!(X<2)!($L(X)>16)!'$D(^DIC(X)) X
! 64: ;;^DD(.403,7,1,0)
! 65: ;;=^.1
! 66: ;;^DD(.403,7,1,1,0)
! 67: ;;=.403^F^MUMPS
! 68: ;;^DD(.403,7,1,1,1)
! 69: ;;=X "S %=$P("_DIC_"DA,0),U) S "_DIC_"""F""_X,%,DA)=1"
! 70: ;;^DD(.403,7,1,1,2)
! 71: ;;=X "S %=$P("_DIC_"DA,0),U) K "_DIC_"""F""_X,%,DA)"
! 72: ;;^DD(.403,7,1,1,3)
! 73: ;;=Programmer only
! 74: ;;^DD(.403,7,1,1,"%D",0)
! 75: ;;=^^2^2^2900911^
! 76: ;;^DD(.403,7,1,1,"%D",0,"LE")
! 77: ;;=1
! 78: ;;^DD(.403,7,1,1,"%D",1,0)
! 79: ;;=This cross-reference is used to quickly find all ScreenMan templates
! 80: ;;^DD(.403,7,1,1,"%D",2,0)
! 81: ;;=associated with a file.
! 82: ;;^DD(.403,7,1,1,"DT")
! 83: ;;=2900911
! 84: ;;^DD(.403,7,3)
! 85: ;;=Answer must be 1-16 characters in length.
! 86: ;;^DD(.403,7,21,0)
! 87: ;;=^^2^2^2920407^
! 88: ;;^DD(.403,7,21,1,0)
! 89: ;;=Enter a file number, greater than or equal to 2, which represents the data
! 90: ;;^DD(.403,7,21,2,0)
! 91: ;;=dictionary number of the primary file for this form.
! 92: ;;^DD(.403,7,"DT")
! 93: ;;=2920407
! 94: ;;^DD(.403,8,0)
! 95: ;;=DISPLAY ONLY^SI^0:NO;1:YES;^0;9^Q
! 96: ;;^DD(.403,8,21,0)
! 97: ;;=^^2^2^2931027^^^^
! 98: ;;^DD(.403,8,21,1,0)
! 99: ;;=This is a flag that indicates none of the blocks on the form are edit
! 100: ;;^DD(.403,8,21,2,0)
! 101: ;;=blocks. This flag is set during form compilation.
! 102: ;;^DD(.403,8,"DT")
! 103: ;;=2931028
! 104: ;;^DD(.403,9,0)
! 105: ;;=FORM ONLY^SI^0:NO;1:YES;^0;10^Q
! 106: ;;^DD(.403,9,21,0)
! 107: ;;=^^2^2^2931027^
! 108: ;;^DD(.403,9,21,1,0)
! 109: ;;=This is a flag that indicates none of the fields on the form are data
! 110: ;;^DD(.403,9,21,2,0)
! 111: ;;=dictionary fields. This flag is set during form compilation.
! 112: ;;^DD(.403,9,"DT")
! 113: ;;=2931028
! 114: ;;^DD(.403,10,0)
! 115: ;;=COMPILED^SI^0:NO;1:YES;^0;11^Q
! 116: ;;^DD(.403,10,1,0)
! 117: ;;=^.1^^0
! 118: ;;^DD(.403,10,21,0)
! 119: ;;=^^2^2^2940908^
! 120: ;;^DD(.403,10,21,1,0)
! 121: ;;=This is a flag that indicates that the form is compiled. This flag is
! 122: ;;^DD(.403,10,21,2,0)
! 123: ;;=set during form compilation.
! 124: ;;^DD(.403,10,"DT")
! 125: ;;=2940701
! 126: ;;^DD(.403,11,0)
! 127: ;;=PRE ACTION^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
! 128: ;;^DD(.403,11,3)
! 129: ;;=Enter standard MUMPS code which will be executed at the beginning of the form.
! 130: ;;^DD(.403,11,9)
! 131: ;;=@
! 132: ;;^DD(.403,11,21,0)
! 133: ;;=^^2^2^2940906^
! 134: ;;^DD(.403,11,21,1,0)
! 135: ;;=This is MUMPS code that is executed when the form is first invoked,
! 136: ;;^DD(.403,11,21,2,0)
! 137: ;;=before any of the pages are loaded and displayed.
! 138: ;;^DD(.403,12,0)
! 139: ;;=POST ACTION^K^^12;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
! 140: ;;^DD(.403,12,3)
! 141: ;;=Enter standard MUMPS code which will be executed at the end of the form.
! 142: ;;^DD(.403,12,9)
! 143: ;;=@
! 144: ;;^DD(.403,12,21,0)
! 145: ;;=^^2^2^2940906^^
! 146: ;;^DD(.403,12,21,1,0)
! 147: ;;=This is MUMPS code that is executed before ScreenMan returns to the
! 148: ;;^DD(.403,12,21,2,0)
! 149: ;;=calling application.
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT291.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman