Annotation of freem_fileman/DINIT0F6.m, revision 1.1
1.1 ! snw 1: DINIT0F6 ;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="" ^DINIT0F7 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
! 5: Q
! 6: ENTRY ;
! 7: ;;^DIST(.404,.404032,40,3,2)
! 8: ;;=4,23^9^4,6
! 9: ;;^DIST(.404,.404032,40,7,0)
! 10: ;;=7^DATA LENGTH^2
! 11: ;;^DIST(.404,.404032,40,7,2)
! 12: ;;=7,23^3^7,10
! 13: ;;^DIST(.404,.404032,40,7,3)
! 14: ;;=!M
! 15: ;;^DIST(.404,.404032,40,7,3.1)
! 16: ;;=S Y=$G(DDGFDL0)
! 17: ;;^DIST(.404,.404032,40,7,4)
! 18: ;;=1
! 19: ;;^DIST(.404,.404032,40,7,20)
! 20: ;;=DD^^.4044,4.2
! 21: ;;^DIST(.404,.404032,40,7,23)
! 22: ;;=S DDGFDL=X
! 23: ;;^DIST(.404,.404032,40,8,0)
! 24: ;;=8^CAPTION COORDINATE^2
! 25: ;;^DIST(.404,.404032,40,8,2)
! 26: ;;=8,23^7^8,3
! 27: ;;^DIST(.404,.404032,40,8,3)
! 28: ;;=!M
! 29: ;;^DIST(.404,.404032,40,8,3.1)
! 30: ;;=S Y=$G(DDGFCC0)
! 31: ;;^DIST(.404,.404032,40,8,20)
! 32: ;;=DD^^.4044,5.1
! 33: ;;^DIST(.404,.404032,40,8,23)
! 34: ;;=S DDGFCC=X
! 35: ;;^DIST(.404,.404032,40,9,0)
! 36: ;;=9^DATA COORDINATE^2
! 37: ;;^DIST(.404,.404032,40,9,2)
! 38: ;;=9,23^7^9,6
! 39: ;;^DIST(.404,.404032,40,9,3)
! 40: ;;=!M
! 41: ;;^DIST(.404,.404032,40,9,3.1)
! 42: ;;=S Y=$G(DDGFDC0)
! 43: ;;^DIST(.404,.404032,40,9,4)
! 44: ;;=1
! 45: ;;^DIST(.404,.404032,40,9,20)
! 46: ;;=DD^^.4044,4.1
! 47: ;;^DIST(.404,.404032,40,9,23)
! 48: ;;=S DDGFDC=X
! 49: ;;^DIST(.404,.404032,40,10,0)
! 50: ;;=10^DATA VALIDATION^3
! 51: ;;^DIST(.404,.404032,40,10,1)
! 52: ;;=14
! 53: ;;^DIST(.404,.404032,40,10,2)
! 54: ;;=11,23^49^11,6
! 55: ;;^DIST(.404,.404032,40,11,0)
! 56: ;;=5^RIGHT JUSTIFY^3
! 57: ;;^DIST(.404,.404032,40,11,1)
! 58: ;;=6.3
! 59: ;;^DIST(.404,.404032,40,11,2)
! 60: ;;=4,52^3^4,37
! 61: ;;^DIST(.404,.404032,40,12,0)
! 62: ;;=6^SUB PAGE LINK^3
! 63: ;;^DIST(.404,.404032,40,12,1)
! 64: ;;=8
! 65: ;;^DIST(.404,.404032,40,12,2)
! 66: ;;=5,23^5^5,8
! 67: ;;^DIST(.404,.404032,40,13,0)
! 68: ;;=3^DISPLAY GROUP^3
! 69: ;;^DIST(.404,.404032,40,13,1)
! 70: ;;=3
! 71: ;;^DIST(.404,.404032,40,13,2)
! 72: ;;=3,52^20^3,37
! 73: ;;^DIST(.404,.404033,0)
! 74: ;;=DDGF FIELD DD OTHER MULTIPLE^.4044
! 75: ;;^DIST(.404,.404033,40,0)
! 76: ;;=^.4044I^11^8
! 77: ;;^DIST(.404,.404033,40,1,0)
! 78: ;;=1^ Other Parameters ^1
! 79: ;;^DIST(.404,.404033,40,1,2)
! 80: ;;=^^1,14^1
! 81: ;;^DIST(.404,.404033,40,2,0)
! 82: ;;=2^SUB PAGE LINK^3
! 83: ;;^DIST(.404,.404033,40,2,1)
! 84: ;;=8
! 85: ;;^DIST(.404,.404033,40,2,2)
! 86: ;;=3,23^3^3,8
! 87: ;;^DIST(.404,.404033,40,3,0)
! 88: ;;=3^DISALLOW LAYGO^3
! 89: ;;^DIST(.404,.404033,40,3,1)
! 90: ;;=6.5
! 91: ;;^DIST(.404,.404033,40,3,2)
! 92: ;;=4,23^3^4,7
! 93: ;;^DIST(.404,.404033,40,7,0)
! 94: ;;=7^CAPTION COORDINATE^2
! 95: ;;^DIST(.404,.404033,40,7,2)
! 96: ;;=10,23^7^10,3
! 97: ;;^DIST(.404,.404033,40,7,3)
! 98: ;;=!M
! 99: ;;^DIST(.404,.404033,40,7,3.1)
! 100: ;;=S Y=$G(DDGFCC0)
! 101: ;;^DIST(.404,.404033,40,7,20)
! 102: ;;=DD^^.4044,5.1
! 103: ;;^DIST(.404,.404033,40,7,23)
! 104: ;;=S DDGFCC=X
! 105: ;;^DIST(.404,.404033,40,8,0)
! 106: ;;=8^DATA COORDINATE^2
! 107: ;;^DIST(.404,.404033,40,8,2)
! 108: ;;=11,23^7^11,6
! 109: ;;^DIST(.404,.404033,40,8,3)
! 110: ;;=!M
! 111: ;;^DIST(.404,.404033,40,8,3.1)
! 112: ;;=S Y=$G(DDGFDC0)
! 113: ;;^DIST(.404,.404033,40,8,4)
! 114: ;;=1
! 115: ;;^DIST(.404,.404033,40,8,20)
! 116: ;;=DD^^.4044,4.1
! 117: ;;^DIST(.404,.404033,40,8,23)
! 118: ;;=S DDGFDC=X
! 119: ;;^DIST(.404,.404033,40,9,0)
! 120: ;;=6^DATA LENGTH^2
! 121: ;;^DIST(.404,.404033,40,9,2)
! 122: ;;=9,23^3^9,10
! 123: ;;^DIST(.404,.404033,40,9,3)
! 124: ;;=!M
! 125: ;;^DIST(.404,.404033,40,9,3.1)
! 126: ;;=S Y=$G(DDGFDL0)
! 127: ;;^DIST(.404,.404033,40,9,4)
! 128: ;;=1
! 129: ;;^DIST(.404,.404033,40,9,20)
! 130: ;;=DD^^.4044,4.2
! 131: ;;^DIST(.404,.404033,40,9,23)
! 132: ;;=S DDGFDL=X
! 133: ;;^DIST(.404,.404033,40,10,0)
! 134: ;;=4^RIGHT JUSTIFY^3
! 135: ;;^DIST(.404,.404033,40,10,1)
! 136: ;;=6.3
! 137: ;;^DIST(.404,.404033,40,10,2)
! 138: ;;=6,23^3^6,8
! 139: ;;^DIST(.404,.404033,40,11,0)
! 140: ;;=5^DISPLAY GROUP^3
! 141: ;;^DIST(.404,.404033,40,11,1)
! 142: ;;=3
! 143: ;;^DIST(.404,.404033,40,11,2)
! 144: ;;=7,23^20^7,8
! 145: ;;^DIST(.404,.404034,0)
! 146: ;;=DDGF FIELD DD OTHER WP^.4044
! 147: ;;^DIST(.404,.404034,40,0)
! 148: ;;=^.4044I^10^7
! 149: ;;^DIST(.404,.404034,40,1,0)
! 150: ;;=1^ Other Parameters ^1
! 151: ;;^DIST(.404,.404034,40,1,2)
! 152: ;;=^^1,14^1
! 153: ;;^DIST(.404,.404034,40,2,0)
! 154: ;;=2^REQUIRED^3
! 155: ;;^DIST(.404,.404034,40,2,1)
! 156: ;;=6.1
! 157: ;;^DIST(.404,.404034,40,2,2)
! 158: ;;=3,23^3^3,13
! 159: ;;^DIST(.404,.404034,40,3,0)
! 160: ;;=3^DISABLE EDITING^3
! 161: ;;^DIST(.404,.404034,40,3,1)
! 162: ;;=6.4
! 163: ;;^DIST(.404,.404034,40,3,2)
! 164: ;;=4,23^3^4,6
! 165: ;;^DIST(.404,.404034,40,3,14)
! 166: ;;=I X=2 D HLP^DDSUTL("Word processing fields are always reachable. To make the field uneditable, enter 'YES'.") S DDSERROR=1
! 167: ;;^DIST(.404,.404034,40,7,0)
! 168: ;;=4^DISPLAY GROUP^3
! 169: ;;^DIST(.404,.404034,40,7,1)
! 170: ;;=3
! 171: ;;^DIST(.404,.404034,40,7,2)
! 172: ;;=5,23^20^5,8
! 173: ;;^DIST(.404,.404034,40,8,0)
! 174: ;;=5^DATA LENGTH^2
! 175: ;;^DIST(.404,.404034,40,8,2)
! 176: ;;=7,23^3^7,10
! 177: ;;^DIST(.404,.404034,40,8,3)
! 178: ;;=!M
! 179: ;;^DIST(.404,.404034,40,8,3.1)
! 180: ;;=S Y=$G(DDGFDL0)
! 181: ;;^DIST(.404,.404034,40,8,4)
! 182: ;;=1
! 183: ;;^DIST(.404,.404034,40,8,20)
! 184: ;;=DD^^.4044,4.2
! 185: ;;^DIST(.404,.404034,40,8,23)
! 186: ;;=S DDGFDL=X
! 187: ;;^DIST(.404,.404034,40,9,0)
! 188: ;;=6^CAPTION COORDINATE^2
! 189: ;;^DIST(.404,.404034,40,9,2)
! 190: ;;=8,23^7^8,3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT0F6.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman