Annotation of freem_fileman/DINIT0F7.m, revision 1.1
1.1 ! snw 1: DINIT0F7 ;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="" ^DINIT0F8 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
! 5: Q
! 6: ENTRY ;
! 7: ;;^DIST(.404,.404034,40,9,3)
! 8: ;;=!M
! 9: ;;^DIST(.404,.404034,40,9,3.1)
! 10: ;;=S Y=$G(DDGFCC0)
! 11: ;;^DIST(.404,.404034,40,9,20)
! 12: ;;=DD^^.4044,5.1
! 13: ;;^DIST(.404,.404034,40,9,23)
! 14: ;;=S DDGFCC=X
! 15: ;;^DIST(.404,.404034,40,10,0)
! 16: ;;=7^DATA COORDINATE^2
! 17: ;;^DIST(.404,.404034,40,10,2)
! 18: ;;=9,23^7^9,6
! 19: ;;^DIST(.404,.404034,40,10,3)
! 20: ;;=!M
! 21: ;;^DIST(.404,.404034,40,10,3.1)
! 22: ;;=S Y=$G(DDGFDC0)
! 23: ;;^DIST(.404,.404034,40,10,4)
! 24: ;;=1
! 25: ;;^DIST(.404,.404034,40,10,20)
! 26: ;;=DD^^.4044,4.1
! 27: ;;^DIST(.404,.404034,40,10,23)
! 28: ;;=S DDGFDC=X
! 29: ;;^DIST(.404,.404041,0)
! 30: ;;=DDGF FIELD FORM ONLY^.4044
! 31: ;;^DIST(.404,.404041,40,0)
! 32: ;;=^.4044I^17^14
! 33: ;;^DIST(.404,.404041,40,1,0)
! 34: ;;=1^ Form Only Field Properties ^1
! 35: ;;^DIST(.404,.404041,40,1,2)
! 36: ;;=^^1,25
! 37: ;;^DIST(.404,.404041,40,2,0)
! 38: ;;=2^FIELD ORDER^3
! 39: ;;^DIST(.404,.404041,40,2,1)
! 40: ;;=.01
! 41: ;;^DIST(.404,.404041,40,2,2)
! 42: ;;=3,26^4^3,13
! 43: ;;^DIST(.404,.404041,40,5,0)
! 44: ;;=8^DEFAULT^3
! 45: ;;^DIST(.404,.404041,40,5,1)
! 46: ;;=6
! 47: ;;^DIST(.404,.404041,40,5,2)
! 48: ;;=8,26^50^8,17
! 49: ;;^DIST(.404,.404041,40,5,13)
! 50: ;;=D:X'="!M" PUT^DDSVAL(.4044,.DA,6.01,"")
! 51: ;;^DIST(.404,.404041,40,7,0)
! 52: ;;=11^BRANCHING LOGIC^3
! 53: ;;^DIST(.404,.404041,40,7,1)
! 54: ;;=10
! 55: ;;^DIST(.404,.404041,40,7,2)
! 56: ;;=12,26^50^12,9
! 57: ;;^DIST(.404,.404041,40,8,0)
! 58: ;;=12^PRE ACTION^3
! 59: ;;^DIST(.404,.404041,40,8,1)
! 60: ;;=11
! 61: ;;^DIST(.404,.404041,40,8,2)
! 62: ;;=13,26^50^13,14
! 63: ;;^DIST(.404,.404041,40,9,0)
! 64: ;;=13^POST ACTION^3
! 65: ;;^DIST(.404,.404041,40,9,1)
! 66: ;;=12
! 67: ;;^DIST(.404,.404041,40,9,2)
! 68: ;;=14,26^50^14,13
! 69: ;;^DIST(.404,.404041,40,10,0)
! 70: ;;=14^POST ACTION ON CHANGE^3
! 71: ;;^DIST(.404,.404041,40,10,1)
! 72: ;;=13
! 73: ;;^DIST(.404,.404041,40,10,2)
! 74: ;;=15,26^50^15,3
! 75: ;;^DIST(.404,.404041,40,11,0)
! 76: ;;=9^EXECUTABLE CAPTION^3
! 77: ;;^DIST(.404,.404041,40,11,1)
! 78: ;;=1.1
! 79: ;;^DIST(.404,.404041,40,11,2)
! 80: ;;=9,26^50^9,6
! 81: ;;^DIST(.404,.404041,40,11,13)
! 82: ;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"))
! 83: ;;^DIST(.404,.404041,40,12,0)
! 84: ;;=10^EXECUTABLE DEFAULT^3
! 85: ;;^DIST(.404,.404041,40,12,1)
! 86: ;;=6.01
! 87: ;;^DIST(.404,.404041,40,12,2)
! 88: ;;=10,26^50^10,6
! 89: ;;^DIST(.404,.404041,40,12,13)
! 90: ;;=D PUT^DDSVAL(.4044,.DA,6,$S(X="":"",1:"!M"))
! 91: ;;^DIST(.404,.404041,40,13,0)
! 92: ;;=3^FORM ONLY FIELD PARAMETERS...^2
! 93: ;;^DIST(.404,.404041,40,13,2)
! 94: ;;=3,73^1^3,43^1
! 95: ;;^DIST(.404,.404041,40,13,7)
! 96: ;;=^11
! 97: ;;^DIST(.404,.404041,40,13,20)
! 98: ;;=F^^0:0
! 99: ;;^DIST(.404,.404041,40,13,21,0)
! 100: ;;=^^1^1^2940928^
! 101: ;;^DIST(.404,.404041,40,13,21,1,0)
! 102: ;;=Press <RET> to edit the properties of this form-only field
! 103: ;;^DIST(.404,.404041,40,14,0)
! 104: ;;=4^OTHER PARAMETERS...^2
! 105: ;;^DIST(.404,.404041,40,14,2)
! 106: ;;=4,26^1^4,6^1
! 107: ;;^DIST(.404,.404041,40,14,7)
! 108: ;;=^21
! 109: ;;^DIST(.404,.404041,40,14,20)
! 110: ;;=F^^0:0
! 111: ;;^DIST(.404,.404041,40,14,21,0)
! 112: ;;=^^1^1^2940928^
! 113: ;;^DIST(.404,.404041,40,14,21,1,0)
! 114: ;;=Press <RET> to edit additional properties of this form-only field
! 115: ;;^DIST(.404,.404041,40,15,0)
! 116: ;;=7^CAPTION^2
! 117: ;;^DIST(.404,.404041,40,15,2)
! 118: ;;=7,26^50^7,17
! 119: ;;^DIST(.404,.404041,40,15,3)
! 120: ;;=!M
! 121: ;;^DIST(.404,.404041,40,15,3.1)
! 122: ;;=S Y=$G(DDGFCAP0)
! 123: ;;^DIST(.404,.404041,40,15,13)
! 124: ;;=D FOCAP^DDGFU
! 125: ;;^DIST(.404,.404041,40,15,20)
! 126: ;;=DD^^.4044,1
! 127: ;;^DIST(.404,.404041,40,15,23)
! 128: ;;=S DDGFCAP=X
! 129: ;;^DIST(.404,.404041,40,16,0)
! 130: ;;=5^SUPPRESS COLON AFTER CAPTION?^2
! 131: ;;^DIST(.404,.404041,40,16,2)
! 132: ;;=4,73^3^4,43^1
! 133: ;;^DIST(.404,.404041,40,16,3)
! 134: ;;=!M
! 135: ;;^DIST(.404,.404041,40,16,3.1)
! 136: ;;=S Y=$G(DDGFSUP0)
! 137: ;;^DIST(.404,.404041,40,16,20)
! 138: ;;=DD^^.4044,5.2
! 139: ;;^DIST(.404,.404041,40,16,23)
! 140: ;;=S DDGFSUP=X
! 141: ;;^DIST(.404,.404041,40,17,0)
! 142: ;;=6^UNIQUE NAME^3
! 143: ;;^DIST(.404,.404041,40,17,1)
! 144: ;;=3.1
! 145: ;;^DIST(.404,.404041,40,17,2)
! 146: ;;=5,26^50^5,13
! 147: ;;^DIST(.404,.404042,0)
! 148: ;;=DDGF FIELD FORM ONLY PARAMS^.4044
! 149: ;;^DIST(.404,.404042,40,0)
! 150: ;;=^.4044I^9^8
! 151: ;;^DIST(.404,.404042,40,1,0)
! 152: ;;=1^ Other Form Only Field Parameters ^1
! 153: ;;^DIST(.404,.404042,40,1,2)
! 154: ;;=^^1,22
! 155: ;;^DIST(.404,.404042,40,2,0)
! 156: ;;=2^READ TYPE^3
! 157: ;;^DIST(.404,.404042,40,2,1)
! 158: ;;=20.1
! 159: ;;^DIST(.404,.404042,40,2,2)
! 160: ;;=3,20^15^3,9
! 161: ;;^DIST(.404,.404042,40,2,4)
! 162: ;;=1
! 163: ;;^DIST(.404,.404042,40,3,0)
! 164: ;;=3^PARAMETERS^3
! 165: ;;^DIST(.404,.404042,40,3,1)
! 166: ;;=20.2
! 167: ;;^DIST(.404,.404042,40,3,2)
! 168: ;;=4,20^2^4,8
! 169: ;;^DIST(.404,.404042,40,4,0)
! 170: ;;=4^QUALIFIERS^3
! 171: ;;^DIST(.404,.404042,40,4,1)
! 172: ;;=20.3
! 173: ;;^DIST(.404,.404042,40,4,2)
! 174: ;;=5,20^52^5,8
! 175: ;;^DIST(.404,.404042,40,5,0)
! 176: ;;=6^INPUT TRANSFORM^3
! 177: ;;^DIST(.404,.404042,40,5,1)
! 178: ;;=22
! 179: ;;^DIST(.404,.404042,40,5,2)
! 180: ;;=9,20^52^9,3
! 181: ;;^DIST(.404,.404042,40,6,0)
! 182: ;;=5^HELP (WP)^3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT0F7.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman