Annotation of freem_fileman/DINIT0F2.m, revision 1.1
1.1 ! snw 1: DINIT0F2 ;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="" ^DINIT0F3 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
! 5: Q
! 6: ENTRY ;
! 7: ;;^DIST(.404,.403011,0)
! 8: ;;=DDGF BLOCK EDIT 1^.4032
! 9: ;;^DIST(.404,.403011,11)
! 10: ;;=I $$GET^DDSVAL(DIE,.DA,3)="d" D UNED^DDSUTL("DISABLE NAVIGATION","DDGF BLOCK EDIT 2","",1)
! 11: ;;^DIST(.404,.403011,40,0)
! 12: ;;=^.4044I^10^8
! 13: ;;^DIST(.404,.403011,40,1,0)
! 14: ;;=1^ Block Properties Stored in FORM File ^1
! 15: ;;^DIST(.404,.403011,40,1,2)
! 16: ;;=^^1,20^1
! 17: ;;^DIST(.404,.403011,40,2,0)
! 18: ;;=3^BLOCK ORDER^3
! 19: ;;^DIST(.404,.403011,40,2,1)
! 20: ;;=1
! 21: ;;^DIST(.404,.403011,40,2,2)
! 22: ;;=3,69^4^3,56
! 23: ;;^DIST(.404,.403011,40,2,4)
! 24: ;;=1
! 25: ;;^DIST(.404,.403011,40,3,0)
! 26: ;;=4^TYPE OF BLOCK^3
! 27: ;;^DIST(.404,.403011,40,3,1)
! 28: ;;=3
! 29: ;;^DIST(.404,.403011,40,3,2)
! 30: ;;=4,18^7^4,3
! 31: ;;^DIST(.404,.403011,40,3,4)
! 32: ;;=1
! 33: ;;^DIST(.404,.403011,40,3,13)
! 34: ;;=D:X="d" PUT^DDSVAL(.404,$$GET^DDSVAL(DIE,.DA,.01),2,"") D UNED^DDSUTL("DISABLE NAVIGATION","DDGF BLOCK EDIT 2","",$E(1,X="d"))
! 35: ;;^DIST(.404,.403011,40,5,0)
! 36: ;;=6^POINTER LINK^3
! 37: ;;^DIST(.404,.403011,40,5,1)
! 38: ;;=4
! 39: ;;^DIST(.404,.403011,40,5,2)
! 40: ;;=6,18^57^6,4
! 41: ;;^DIST(.404,.403011,40,6,0)
! 42: ;;=2^BLOCK NAME^3
! 43: ;;^DIST(.404,.403011,40,6,1)
! 44: ;;=.01
! 45: ;;^DIST(.404,.403011,40,6,2)
! 46: ;;=3,18^30^3,6
! 47: ;;^DIST(.404,.403011,40,8,0)
! 48: ;;=7^PRE ACTION^3
! 49: ;;^DIST(.404,.403011,40,8,1)
! 50: ;;=11
! 51: ;;^DIST(.404,.403011,40,8,2)
! 52: ;;=7,18^57^7,6
! 53: ;;^DIST(.404,.403011,40,9,0)
! 54: ;;=9^POST ACTION^3
! 55: ;;^DIST(.404,.403011,40,9,1)
! 56: ;;=12
! 57: ;;^DIST(.404,.403011,40,9,2)
! 58: ;;=8,18^57^8,5
! 59: ;;^DIST(.404,.403011,40,10,0)
! 60: ;;=5^OTHER PARAMETERS...^2
! 61: ;;^DIST(.404,.403011,40,10,2)
! 62: ;;=4,69^1^4,49^1
! 63: ;;^DIST(.404,.403011,40,10,7)
! 64: ;;=^11
! 65: ;;^DIST(.404,.403011,40,10,20)
! 66: ;;=F^^0:0
! 67: ;;^DIST(.404,.403011,40,10,21,0)
! 68: ;;=^^1^1^2940928^
! 69: ;;^DIST(.404,.403011,40,10,21,1,0)
! 70: ;;=Press <RET> to edit additional properties of the block
! 71: ;;^DIST(.404,.403012,0)
! 72: ;;=DDGF BLOCK EDIT 2^.404
! 73: ;;^DIST(.404,.403012,40,0)
! 74: ;;=^.4044I^7^7
! 75: ;;^DIST(.404,.403012,40,1,0)
! 76: ;;=1^----------------- Block Properties Stored in BLOCK File ------------------^1
! 77: ;;^DIST(.404,.403012,40,1,2)
! 78: ;;=^^1,2^1
! 79: ;;^DIST(.404,.403012,40,2,0)
! 80: ;;=2^NAME^2
! 81: ;;^DIST(.404,.403012,40,2,2)
! 82: ;;=3,16^30^3,10
! 83: ;;^DIST(.404,.403012,40,2,3)
! 84: ;;=!M
! 85: ;;^DIST(.404,.403012,40,2,3.1)
! 86: ;;=S Y=DDGFBKNO
! 87: ;;^DIST(.404,.403012,40,2,20)
! 88: ;;=DD^^.404,.01
! 89: ;;^DIST(.404,.403012,40,2,23)
! 90: ;;=S DDGFBKNN=X
! 91: ;;^DIST(.404,.403012,40,3,0)
! 92: ;;=3^DESCRIPTION (WP)^3
! 93: ;;^DIST(.404,.403012,40,3,1)
! 94: ;;=15
! 95: ;;^DIST(.404,.403012,40,3,2)
! 96: ;;=3,69^1^3,51
! 97: ;;^DIST(.404,.403012,40,4,0)
! 98: ;;=4^DD NUMBER^3
! 99: ;;^DIST(.404,.403012,40,4,1)
! 100: ;;=1
! 101: ;;^DIST(.404,.403012,40,4,2)
! 102: ;;=4,16^16^4,5
! 103: ;;^DIST(.404,.403012,40,5,0)
! 104: ;;=5^DISABLE NAVIGATION^3
! 105: ;;^DIST(.404,.403012,40,5,1)
! 106: ;;=2
! 107: ;;^DIST(.404,.403012,40,5,2)
! 108: ;;=4,69^5^4,49
! 109: ;;^DIST(.404,.403012,40,6,0)
! 110: ;;=6^PRE ACTION^3
! 111: ;;^DIST(.404,.403012,40,6,1)
! 112: ;;=11
! 113: ;;^DIST(.404,.403012,40,6,2)
! 114: ;;=6,16^59^6,4
! 115: ;;^DIST(.404,.403012,40,7,0)
! 116: ;;=7^POST ACTION^3
! 117: ;;^DIST(.404,.403012,40,7,1)
! 118: ;;=12
! 119: ;;^DIST(.404,.403012,40,7,2)
! 120: ;;=7,16^59^7,3
! 121: ;;^DIST(.404,.403013,0)
! 122: ;;=DDGF BLOCK EDIT OTHER^.4032
! 123: ;;^DIST(.404,.403013,11)
! 124: ;;=I $$GET^DDSVAL(DIE,.DA,"REPLICATION")<2 N DDGFZ F DDGFZ="INDEX","INITIAL POSITION","DISALLOW LAYGO","FIELD FOR SELECTION" D UNED^DDSUTL(DDGFZ,"","",1)
! 125: ;;^DIST(.404,.403013,40,0)
! 126: ;;=^.4044I^8^8
! 127: ;;^DIST(.404,.403013,40,1,0)
! 128: ;;=1^ Other Block Parameters ^1
! 129: ;;^DIST(.404,.403013,40,1,2)
! 130: ;;=^^1,16
! 131: ;;^DIST(.404,.403013,40,2,0)
! 132: ;;=2^BLOCK COORDINATE^2
! 133: ;;^DIST(.404,.403013,40,2,2)
! 134: ;;=3,24^7^3,6
! 135: ;;^DIST(.404,.403013,40,2,3)
! 136: ;;=!M
! 137: ;;^DIST(.404,.403013,40,2,3.1)
! 138: ;;=S Y=DDGFBKCO
! 139: ;;^DIST(.404,.403013,40,2,4)
! 140: ;;=1
! 141: ;;^DIST(.404,.403013,40,2,20)
! 142: ;;=DD^^.4032,2
! 143: ;;^DIST(.404,.403013,40,2,23)
! 144: ;;=S DDGFBKCN=X
! 145: ;;^DIST(.404,.403013,40,3,0)
! 146: ;;=3^Parameters for Repeating Blocks^1
! 147: ;;^DIST(.404,.403013,40,3,2)
! 148: ;;=^^5,3
! 149: ;;^DIST(.404,.403013,40,4,0)
! 150: ;;=4^REPLICATION^3
! 151: ;;^DIST(.404,.403013,40,4,1)
! 152: ;;=5
! 153: ;;^DIST(.404,.403013,40,4,2)
! 154: ;;=7,24^3^7,11
! 155: ;;^DIST(.404,.403013,40,4,13)
! 156: ;;=Q:DDSOLD>1&(X>1) N DDGFZ F DDGFZ="INDEX","INITIAL POSITION","DISALLOW LAYGO","FIELD FOR SELECTION" D UNED^DDSUTL(DDGFZ,"","",X<2) D:X<2 PUT^DDSVAL(DIE,.DA,DDGFZ)
! 157: ;;^DIST(.404,.403013,40,5,0)
! 158: ;;=5^INDEX^3
! 159: ;;^DIST(.404,.403013,40,5,1)
! 160: ;;=6
! 161: ;;^DIST(.404,.403013,40,5,2)
! 162: ;;=8,24^30^8,17
! 163: ;;^DIST(.404,.403013,40,6,0)
! 164: ;;=6^INITIAL POSITION^3
! 165: ;;^DIST(.404,.403013,40,6,1)
! 166: ;;=7
! 167: ;;^DIST(.404,.403013,40,6,2)
! 168: ;;=9,24^5^9,6
! 169: ;;^DIST(.404,.403013,40,7,0)
! 170: ;;=7^DISALLOW LAYGO^3
! 171: ;;^DIST(.404,.403013,40,7,1)
! 172: ;;=8
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT0F2.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman