Annotation of freem_fileman/DINIT0F0.m, revision 1.1
1.1 ! snw 1: DINIT0F0 ;SFISC/MKO-FORMS AND BLOCKS FOR FORM EDITOR ;01:25 PM 23 Nov 1994
! 2: ;;21.0;VA FileMan;;Dec 28, 1994
! 3: ;Per VHA Directive 10-93-142, this routine should not be modified.
! 4: D PRE^DINIT29P
! 5: F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT0F1 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
! 6: Q
! 7: ENTRY ;
! 8: ;;^DIST(.403,.40301,0)
! 9: ;;=DDGF BLOCK EDIT^^^0^2930413^2941115.0919^^.403^0^0^1
! 10: ;;^DIST(.403,.40301,40,0)
! 11: ;;=^.4031I^2^2
! 12: ;;^DIST(.403,.40301,40,1,0)
! 13: ;;=1^^1,2^^^1^17,77
! 14: ;;^DIST(.403,.40301,40,1,1)
! 15: ;;=Edit Block Parameters
! 16: ;;^DIST(.403,.40301,40,1,40,0)
! 17: ;;=^.4032PI^.403012^2
! 18: ;;^DIST(.403,.40301,40,1,40,.403011,0)
! 19: ;;=.403011^1^1,1^e
! 20: ;;^DIST(.403,.40301,40,1,40,.403012,0)
! 21: ;;=.403012^2^10,1^e
! 22: ;;^DIST(.403,.40301,40,1,40,.403012,1)
! 23: ;;=PAGE:BLOCK:.01
! 24: ;;^DIST(.403,.40301,40,2,0)
! 25: ;;=11^^5,11^^^1^16,65
! 26: ;;^DIST(.403,.40301,40,2,1)
! 27: ;;=Page 11
! 28: ;;^DIST(.403,.40301,40,2,40,0)
! 29: ;;=^.4032PI^.403013^1
! 30: ;;^DIST(.403,.40301,40,2,40,.403013,0)
! 31: ;;=.403013^1^1,1^e
! 32: ;;^DIST(.403,.40302,0)
! 33: ;;=DDGF PAGE ADD^^^0^2930419^2940908.0956^^.403^0^1^1
! 34: ;;^DIST(.403,.40302,40,0)
! 35: ;;=^.4031I^2^2
! 36: ;;^DIST(.403,.40302,40,1,0)
! 37: ;;=1^^4,18^^^1^8,43
! 38: ;;^DIST(.403,.40302,40,1,1)
! 39: ;;=Add a New Page
! 40: ;;^DIST(.403,.40302,40,1,40,0)
! 41: ;;=^.4032PI^.403021^1
! 42: ;;^DIST(.403,.40302,40,1,40,.403021,0)
! 43: ;;=.403021^1^1,1^e
! 44: ;;^DIST(.403,.40302,40,2,0)
! 45: ;;=11^^4,15^^^1^9,49
! 46: ;;^DIST(.403,.40302,40,2,1)
! 47: ;;=Select New Page Number
! 48: ;;^DIST(.403,.40302,40,2,40,0)
! 49: ;;=^.4032PI^.403022^1
! 50: ;;^DIST(.403,.40302,40,2,40,.403022,0)
! 51: ;;=.403022^1^1,1^e
! 52: ;;^DIST(.403,.40303,0)
! 53: ;;=DDGF PAGE EDIT^^^0^2930419^2941115.0829^^.403^0^0^1
! 54: ;;^DIST(.403,.40303,40,0)
! 55: ;;=^.4031I^1^1
! 56: ;;^DIST(.403,.40303,40,1,0)
! 57: ;;=1^^1,3^^^1^17,77
! 58: ;;^DIST(.403,.40303,40,1,1)
! 59: ;;=Edit a Page
! 60: ;;^DIST(.403,.40303,40,1,40,0)
! 61: ;;=^.4032PI^.403031^1
! 62: ;;^DIST(.403,.40303,40,1,40,.403031,0)
! 63: ;;=.403031^1^1,1^e
! 64: ;;^DIST(.403,.40303,40,1,40,.403031,11)
! 65: ;;=I $$GET^DDSVALF("IS THIS A POP UP PAGE?") N DDGFI F DDGFI="PREVIOUS","NEXT" D UNED^DDSUTL(DDGFI_" PAGE","","",1)
! 66: ;;^DIST(.403,.40304,0)
! 67: ;;=DDGF PAGE SELECT^^^0^2930419^2941122.1340^^.403^0^1^1
! 68: ;;^DIST(.403,.40304,40,0)
! 69: ;;=^.4031I^1^1
! 70: ;;^DIST(.403,.40304,40,1,0)
! 71: ;;=1^^4,10^^^1^8,56
! 72: ;;^DIST(.403,.40304,40,1,1)
! 73: ;;=Select a Page
! 74: ;;^DIST(.403,.40304,40,1,40,0)
! 75: ;;=^.4032PI^.403041^1
! 76: ;;^DIST(.403,.40304,40,1,40,.403041,0)
! 77: ;;=.403041^1^3,3^e
! 78: ;;^DIST(.403,.40305,0)
! 79: ;;=DDGF FORM EDIT^^^0^2930427^2941115.1504^^.403^0^0^1
! 80: ;;^DIST(.403,.40305,40,0)
! 81: ;;=^.4031I^1^1
! 82: ;;^DIST(.403,.40305,40,1,0)
! 83: ;;=1^^1,2^^^1^16,76
! 84: ;;^DIST(.403,.40305,40,1,1)
! 85: ;;=Form Edit
! 86: ;;^DIST(.403,.40305,40,1,40,0)
! 87: ;;=^.4032PI^.403051^1
! 88: ;;^DIST(.403,.40305,40,1,40,.403051,0)
! 89: ;;=.403051^1^1,1^e
! 90: ;;^DIST(.403,.40306,0)
! 91: ;;=DDGF HEADER BLOCK EDIT^^^0^2930504^2941115.0924^^.403^0^0^1
! 92: ;;^DIST(.403,.40306,40,0)
! 93: ;;=^.4031I^1^1
! 94: ;;^DIST(.403,.40306,40,1,0)
! 95: ;;=1^^2,1^^^1^14,76
! 96: ;;^DIST(.403,.40306,40,1,1)
! 97: ;;=Edit/Delete the Header Block
! 98: ;;^DIST(.403,.40306,40,1,40,0)
! 99: ;;=^.4032PI^.403061^2
! 100: ;;^DIST(.403,.40306,40,1,40,.403012,0)
! 101: ;;=.403012^2^5,1^e
! 102: ;;^DIST(.403,.40306,40,1,40,.403012,1)
! 103: ;;=PAGE:1
! 104: ;;^DIST(.403,.40306,40,1,40,.403061,0)
! 105: ;;=.403061^1^1,1^e
! 106: ;;^DIST(.403,.40401,0)
! 107: ;;=DDGF FIELD ADD^^^0^2930331^2941122.1344^^.404^0^1^1
! 108: ;;^DIST(.403,.40401,20)
! 109: ;;=D VAL1^DDGFU
! 110: ;;^DIST(.403,.40401,40,0)
! 111: ;;=^.4031I^1^1
! 112: ;;^DIST(.403,.40401,40,1,0)
! 113: ;;=1^^4,12^^^1^10,59
! 114: ;;^DIST(.403,.40401,40,1,1)
! 115: ;;=New field
! 116: ;;^DIST(.403,.40401,40,1,40,0)
! 117: ;;=^.4032PI^.404011^1
! 118: ;;^DIST(.403,.40401,40,1,40,.404011,0)
! 119: ;;=.404011^1^3,3^e
! 120: ;;^DIST(.403,.40402,0)
! 121: ;;=DDGF FIELD CAPTION ONLY^^^0^2930409^2941123.13^^.404^0^0^1
! 122: ;;^DIST(.403,.40402,40,0)
! 123: ;;=^.4031I^1^1
! 124: ;;^DIST(.403,.40402,40,1,0)
! 125: ;;=1^^1,2^^^1^9,75
! 126: ;;^DIST(.403,.40402,40,1,1)
! 127: ;;=Caption only field
! 128: ;;^DIST(.403,.40402,40,1,40,0)
! 129: ;;=^.4032PI^.404021^1
! 130: ;;^DIST(.403,.40402,40,1,40,.404021,0)
! 131: ;;=.404021^1^1,3^e
! 132: ;;^DIST(.403,.40403,0)
! 133: ;;=DDGF FIELD DD^^^0^2930510^2941123.1313^^.404^0^0^1
! 134: ;;^DIST(.403,.40403,40,0)
! 135: ;;=^.4031I^4^4
! 136: ;;^DIST(.403,.40403,40,1,0)
! 137: ;;=1^^1,1^^^1^16,77
! 138: ;;^DIST(.403,.40403,40,1,1)
! 139: ;;=Page 1
! 140: ;;^DIST(.403,.40403,40,1,40,0)
! 141: ;;=^.4032PI^.404031^1
! 142: ;;^DIST(.403,.40403,40,1,40,.404031,0)
! 143: ;;=.404031^1^1,1^e
! 144: ;;^DIST(.403,.40403,40,2,0)
! 145: ;;=11^^3,3^^^1^15,75
! 146: ;;^DIST(.403,.40403,40,2,1)
! 147: ;;=Single-Valued Field (Other)
! 148: ;;^DIST(.403,.40403,40,2,40,0)
! 149: ;;=^.4032PI^.404032^1
! 150: ;;^DIST(.403,.40403,40,2,40,.404032,0)
! 151: ;;=.404032^1^1,1^e
! 152: ;;^DIST(.403,.40403,40,3,0)
! 153: ;;=21^^3,17^^^1^15,60
! 154: ;;^DIST(.403,.40403,40,3,1)
! 155: ;;=Multiple-Valued Field (Other)
! 156: ;;^DIST(.403,.40403,40,3,40,0)
! 157: ;;=^.4032PI^.404033^1
! 158: ;;^DIST(.403,.40403,40,3,40,.404033,0)
! 159: ;;=.404033^1^1,1^e
! 160: ;;^DIST(.403,.40403,40,4,0)
! 161: ;;=31^^3,17^^^1^13,60
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT0F0.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman