Annotation of freem_fileman/DINIT0F8.m, revision 1.1
1.1 ! snw 1: DINIT0F8 ;SFISC/MKO-FORMS AND BLOCKS FOR FORM EDITOR ;11/23/94 1:24 PM
! 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(ENTRY+I) G:X="" ^DINIT0F9 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
! 5: Q
! 6: ENTRY ;
! 7: ;;^DIST(.404,.404042,40,6,1)
! 8: ;;=21
! 9: ;;^DIST(.404,.404042,40,6,2)
! 10: ;;=7,20^1^7,9
! 11: ;;^DIST(.404,.404042,40,8,0)
! 12: ;;=7^SCREEN^3
! 13: ;;^DIST(.404,.404042,40,8,1)
! 14: ;;=24
! 15: ;;^DIST(.404,.404042,40,8,2)
! 16: ;;=10,20^52^10,12
! 17: ;;^DIST(.404,.404042,40,9,0)
! 18: ;;=8^SAVE CODE^3
! 19: ;;^DIST(.404,.404042,40,9,1)
! 20: ;;=23
! 21: ;;^DIST(.404,.404042,40,9,2)
! 22: ;;=11,20^52^11,9
! 23: ;;^DIST(.404,.404051,0)
! 24: ;;=DDGF FIELD COMPUTED^.4044
! 25: ;;^DIST(.404,.404051,40,0)
! 26: ;;=^.4044I^8^8
! 27: ;;^DIST(.404,.404051,40,1,0)
! 28: ;;=1^ Computed Field Properties ^1
! 29: ;;^DIST(.404,.404051,40,1,2)
! 30: ;;=^^1,26
! 31: ;;^DIST(.404,.404051,40,2,0)
! 32: ;;=2^FIELD ORDER^3
! 33: ;;^DIST(.404,.404051,40,2,1)
! 34: ;;=.01
! 35: ;;^DIST(.404,.404051,40,2,2)
! 36: ;;=3,24^4^3,11
! 37: ;;^DIST(.404,.404051,40,3,0)
! 38: ;;=3^OTHER PARAMETERS...^2
! 39: ;;^DIST(.404,.404051,40,3,2)
! 40: ;;=4,24^1^4,4^1
! 41: ;;^DIST(.404,.404051,40,3,7)
! 42: ;;=^11
! 43: ;;^DIST(.404,.404051,40,3,20)
! 44: ;;=F^^1:1
! 45: ;;^DIST(.404,.404051,40,3,21,0)
! 46: ;;=^^1^1^2930916^
! 47: ;;^DIST(.404,.404051,40,3,21,1,0)
! 48: ;;=Press 'RETURN' to edit additional properties of this Data Dictionary field
! 49: ;;^DIST(.404,.404051,40,4,0)
! 50: ;;=4^SUPPRESS COLON AFTER CAPTION?^2
! 51: ;;^DIST(.404,.404051,40,4,2)
! 52: ;;=4,71^3^4,41^1
! 53: ;;^DIST(.404,.404051,40,4,3)
! 54: ;;=!M
! 55: ;;^DIST(.404,.404051,40,4,3.1)
! 56: ;;=S Y=DDGFSUP0
! 57: ;;^DIST(.404,.404051,40,4,20)
! 58: ;;=DD^^.4044,5.2
! 59: ;;^DIST(.404,.404051,40,4,23)
! 60: ;;=S DDGFSUP=X
! 61: ;;^DIST(.404,.404051,40,5,0)
! 62: ;;=5^UNIQUE NAME^3
! 63: ;;^DIST(.404,.404051,40,5,1)
! 64: ;;=3.1
! 65: ;;^DIST(.404,.404051,40,5,2)
! 66: ;;=5,24^50^5,11
! 67: ;;^DIST(.404,.404051,40,6,0)
! 68: ;;=6^CAPTION^2
! 69: ;;^DIST(.404,.404051,40,6,2)
! 70: ;;=7,24^50^7,15
! 71: ;;^DIST(.404,.404051,40,6,3)
! 72: ;;=!M
! 73: ;;^DIST(.404,.404051,40,6,3.1)
! 74: ;;=S Y=DDGFCAP0
! 75: ;;^DIST(.404,.404051,40,6,13)
! 76: ;;=D COMPCAP^DDGFU
! 77: ;;^DIST(.404,.404051,40,6,20)
! 78: ;;=DD^^.4044,1
! 79: ;;^DIST(.404,.404051,40,6,23)
! 80: ;;=S DDGFCAP=X
! 81: ;;^DIST(.404,.404051,40,7,0)
! 82: ;;=7^EXECUTABLE CAPTION^3
! 83: ;;^DIST(.404,.404051,40,7,1)
! 84: ;;=1.1
! 85: ;;^DIST(.404,.404051,40,7,2)
! 86: ;;=8,24^50^8,4
! 87: ;;^DIST(.404,.404051,40,7,13)
! 88: ;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"))
! 89: ;;^DIST(.404,.404051,40,8,0)
! 90: ;;=8^COMPUTED EXPRESSION^3
! 91: ;;^DIST(.404,.404051,40,8,1)
! 92: ;;=30
! 93: ;;^DIST(.404,.404051,40,8,2)
! 94: ;;=10,24^50^10,3
! 95: ;;^DIST(.404,.404051,40,8,4)
! 96: ;;=1
! 97: ;;^DIST(.404,.404052,0)
! 98: ;;=DDGF FIELD COMPUTED OTHER^.4044
! 99: ;;^DIST(.404,.404052,40,0)
! 100: ;;=^.4044I^8^5
! 101: ;;^DIST(.404,.404052,40,1,0)
! 102: ;;=1^ Other Computed Field Properties ^1
! 103: ;;^DIST(.404,.404052,40,1,2)
! 104: ;;=^^1,6
! 105: ;;^DIST(.404,.404052,40,5,0)
! 106: ;;=3^DATA LENGTH^2
! 107: ;;^DIST(.404,.404052,40,5,2)
! 108: ;;=5,25^3^5,12
! 109: ;;^DIST(.404,.404052,40,5,3)
! 110: ;;=!M
! 111: ;;^DIST(.404,.404052,40,5,3.1)
! 112: ;;=S Y=$G(DDGFDL0)
! 113: ;;^DIST(.404,.404052,40,5,20)
! 114: ;;=DD^^.4044,4.2
! 115: ;;^DIST(.404,.404052,40,5,23)
! 116: ;;=S DDGFDL=X
! 117: ;;^DIST(.404,.404052,40,6,0)
! 118: ;;=4^CAPTION COORDINATE^2
! 119: ;;^DIST(.404,.404052,40,6,2)
! 120: ;;=6,25^7^6,5
! 121: ;;^DIST(.404,.404052,40,6,3)
! 122: ;;=!M
! 123: ;;^DIST(.404,.404052,40,6,3.1)
! 124: ;;=S Y=$G(DDGFCC0)
! 125: ;;^DIST(.404,.404052,40,6,20)
! 126: ;;=DD^^.4044,5.1
! 127: ;;^DIST(.404,.404052,40,6,23)
! 128: ;;=S DDGFCC=X
! 129: ;;^DIST(.404,.404052,40,7,0)
! 130: ;;=5^DATA COORDINATE^2
! 131: ;;^DIST(.404,.404052,40,7,2)
! 132: ;;=7,25^7^7,8
! 133: ;;^DIST(.404,.404052,40,7,3)
! 134: ;;=!M
! 135: ;;^DIST(.404,.404052,40,7,3.1)
! 136: ;;=S Y=$G(DDGFDC0)
! 137: ;;^DIST(.404,.404052,40,7,20)
! 138: ;;=DD^^.4044,4.1
! 139: ;;^DIST(.404,.404052,40,7,23)
! 140: ;;=S DDGFDC=X
! 141: ;;^DIST(.404,.404052,40,8,0)
! 142: ;;=2^RIGHT JUSTIFY^3
! 143: ;;^DIST(.404,.404052,40,8,1)
! 144: ;;=6.3
! 145: ;;^DIST(.404,.404052,40,8,2)
! 146: ;;=3,25^3^3,10
! 147: ;;^DIST(.404,.404061,0)
! 148: ;;=DDGF BLOCK ADD
! 149: ;;^DIST(.404,.404061,40,0)
! 150: ;;=^.4044I^1^1
! 151: ;;^DIST(.404,.404061,40,1,0)
! 152: ;;=1^Select NEW BLOCK NAME^2
! 153: ;;^DIST(.404,.404061,40,1,2)
! 154: ;;=3,26^30^3,3
! 155: ;;^DIST(.404,.404061,40,1,12)
! 156: ;;=S DDACT="EX"
! 157: ;;^DIST(.404,.404061,40,1,20)
! 158: ;;=P^^DIST(.404,:QEALMZF
! 159: ;;^DIST(.404,.404061,40,1,23)
! 160: ;;=S DDGFBNUM=X,DDGFBNAM=DDSEXT
! 161: ;;^DIST(.404,.404061,40,1,24)
! 162: ;;=S DIR("S")="I Y'<1"
! 163: ;;^DIST(.404,.404062,0)
! 164: ;;=DDGF BLOCK ADD NEW
! 165: ;;^DIST(.404,.404062,40,0)
! 166: ;;=^.4044I^2^2
! 167: ;;^DIST(.404,.404062,40,1,0)
! 168: ;;=1^!M^1
! 169: ;;^DIST(.404,.404062,40,1,.1)
! 170: ;;=S Y="Are you adding "_DDGFBNAM
! 171: ;;^DIST(.404,.404062,40,1,2)
! 172: ;;=^^3,3
! 173: ;;^DIST(.404,.404062,40,2,0)
! 174: ;;=2^as a new block on this page?^2
! 175: ;;^DIST(.404,.404062,40,2,2)
! 176: ;;=4,32^3^4,3^1
! 177: ;;^DIST(.404,.404062,40,2,12)
! 178: ;;=S DDACT="EX"
! 179: ;;^DIST(.404,.404062,40,2,20)
! 180: ;;=Y
! 181: ;;^DIST(.404,.404062,40,2,23)
! 182: ;;=S DDGFANS=X
! 183: ;;^DIST(.404,.404063,0)
! 184: ;;=DDGF BLOCK ADD DUPLICATE
! 185: ;;^DIST(.404,.404063,40,0)
! 186: ;;=^.4044I^3^3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT0F8.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman