Annotation of freem_fileman/DINIT0F4.m, revision 1.1
1.1 ! snw 1: DINIT0F4 ;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="" ^DINIT0F5 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
! 5: Q
! 6: ENTRY ;
! 7: ;;^DIST(.404,.403041,40,1,20)
! 8: ;;=P^^DIST(.403,+DDGFFM,40,:QEAMZF
! 9: ;;^DIST(.404,.403041,40,1,23)
! 10: ;;=S DDGFPAGE=X
! 11: ;;^DIST(.404,.403051,0)
! 12: ;;=DDGF FORM EDIT^.403
! 13: ;;^DIST(.404,.403051,40,0)
! 14: ;;=^.4044I^11^11
! 15: ;;^DIST(.404,.403051,40,1,0)
! 16: ;;=1^ Form Properties ^1
! 17: ;;^DIST(.404,.403051,40,1,2)
! 18: ;;=^^1,29
! 19: ;;^DIST(.404,.403051,40,2,0)
! 20: ;;=2^NAME^3
! 21: ;;^DIST(.404,.403051,40,2,1)
! 22: ;;=.01
! 23: ;;^DIST(.404,.403051,40,2,2)
! 24: ;;=3,20^30^3,14
! 25: ;;^DIST(.404,.403051,40,2,4)
! 26: ;;=1
! 27: ;;^DIST(.404,.403051,40,3,0)
! 28: ;;=4^PRE ACTION^3
! 29: ;;^DIST(.404,.403051,40,3,1)
! 30: ;;=11
! 31: ;;^DIST(.404,.403051,40,3,2)
! 32: ;;=6,20^54^6,8
! 33: ;;^DIST(.404,.403051,40,4,0)
! 34: ;;=5^POST ACTION^3
! 35: ;;^DIST(.404,.403051,40,4,1)
! 36: ;;=12
! 37: ;;^DIST(.404,.403051,40,4,2)
! 38: ;;=7,20^54^7,7
! 39: ;;^DIST(.404,.403051,40,5,0)
! 40: ;;=8^DESCRIPTION^3
! 41: ;;^DIST(.404,.403051,40,5,1)
! 42: ;;=15
! 43: ;;^DIST(.404,.403051,40,5,2)
! 44: ;;=11,20^1^11,7
! 45: ;;^DIST(.404,.403051,40,6,0)
! 46: ;;=6^DATA VALIDATION^3
! 47: ;;^DIST(.404,.403051,40,6,1)
! 48: ;;=20
! 49: ;;^DIST(.404,.403051,40,6,2)
! 50: ;;=8,20^54^8,3
! 51: ;;^DIST(.404,.403051,40,7,0)
! 52: ;;=9^RECORD SELECTION PAGE^3
! 53: ;;^DIST(.404,.403051,40,7,1)
! 54: ;;=21
! 55: ;;^DIST(.404,.403051,40,7,2)
! 56: ;;=11,69^5^11,46
! 57: ;;^DIST(.404,.403051,40,8,0)
! 58: ;;=7^POST SAVE^3
! 59: ;;^DIST(.404,.403051,40,8,1)
! 60: ;;=14
! 61: ;;^DIST(.404,.403051,40,8,2)
! 62: ;;=9,20^54^9,9
! 63: ;;^DIST(.404,.403051,40,9,0)
! 64: ;;=3^TITLE^3
! 65: ;;^DIST(.404,.403051,40,9,1)
! 66: ;;=6
! 67: ;;^DIST(.404,.403051,40,9,2)
! 68: ;;=4,20^50^4,13
! 69: ;;^DIST(.404,.403051,40,10,0)
! 70: ;;=10^READ ACCESS^3
! 71: ;;^DIST(.404,.403051,40,10,1)
! 72: ;;=1
! 73: ;;^DIST(.404,.403051,40,10,2)
! 74: ;;=13,20^15^13,7
! 75: ;;^DIST(.404,.403051,40,11,0)
! 76: ;;=11^WRITE ACCESS^3
! 77: ;;^DIST(.404,.403051,40,11,1)
! 78: ;;=2
! 79: ;;^DIST(.404,.403051,40,11,2)
! 80: ;;=14,20^15^14,6
! 81: ;;^DIST(.404,.403061,0)
! 82: ;;=DDGF HEADER BLOCK EDIT^.4031
! 83: ;;^DIST(.404,.403061,40,0)
! 84: ;;=^.4044I^2^2
! 85: ;;^DIST(.404,.403061,40,1,0)
! 86: ;;=2^HEADER BLOCK^3
! 87: ;;^DIST(.404,.403061,40,1,1)
! 88: ;;=1
! 89: ;;^DIST(.404,.403061,40,1,2)
! 90: ;;=3,17^30^3,3
! 91: ;;^DIST(.404,.403061,40,1,13)
! 92: ;;=D:X]"" PUT^DDSVALF("NAME","DDGF BLOCK EDIT 2","",DDSEXT,"I")
! 93: ;;^DIST(.404,.403061,40,1,14)
! 94: ;;=D HBVAL^DDGFU
! 95: ;;^DIST(.404,.403061,40,2,0)
! 96: ;;=1^ Edit Header Block Parameters ^1
! 97: ;;^DIST(.404,.403061,40,2,2)
! 98: ;;=^^1,24
! 99: ;;^DIST(.404,.404011,0)
! 100: ;;=DDGF FIELD ADD
! 101: ;;^DIST(.404,.404011,40,0)
! 102: ;;=^.4044I^3^3
! 103: ;;^DIST(.404,.404011,40,1,0)
! 104: ;;=1^Select BLOCK^2
! 105: ;;^DIST(.404,.404011,40,1,2)
! 106: ;;=1,15^30^1,1
! 107: ;;^DIST(.404,.404011,40,1,3)
! 108: ;;=!M
! 109: ;;^DIST(.404,.404011,40,1,3.1)
! 110: ;;=N X,DA,DIC S DA(2)=+DDGFFM,DA(1)=+DDGFPG,X=" ",DIC="^DIST(.403,"_DA(2)_",""40"","_DA(1)_",""40"",",DIC(0)="M" D ^DIC S Y=$S(Y=-1:"",1:"`"_+Y) I Y="",$P($G(^DIST(.403,+DDGFFM,40,+DDGFPG,40,0)),U,4)=1 S Y=+$O(^(0)),Y=$S(Y:"`"_Y,1:"")
! 111: ;;^DIST(.404,.404011,40,1,13)
! 112: ;;=I X]"" D PUT^DDSVALF("FIELD ORDER","","",$O(^DIST(.404,X,40,"B",""),-1)+1\1) D:$D(DUZ)#2 RECALL^DILFD(.4032,X_","_+DDGFPG_","_+DDGFFM_",",DUZ),RECALL^DILFD(.404,X_",",DUZ)
! 113: ;;^DIST(.404,.404011,40,1,20)
! 114: ;;=P^^DIST(.403,+DDGFFM,40,+DDGFPG,40,:QEAFMZ
! 115: ;;^DIST(.404,.404011,40,1,23)
! 116: ;;=S DDGFBLCK=X
! 117: ;;^DIST(.404,.404011,40,2,0)
! 118: ;;=2^FIELD ORDER^2
! 119: ;;^DIST(.404,.404011,40,2,2)
! 120: ;;=2,15^4^2,2
! 121: ;;^DIST(.404,.404011,40,2,3)
! 122: ;;=!M
! 123: ;;^DIST(.404,.404011,40,2,3.1)
! 124: ;;=N V S V=$$GET^DDSVALF("BLOCK") I V]"" S Y=$O(^DIST(.404,V,40,"B",""),-1)+1\1
! 125: ;;^DIST(.404,.404011,40,2,20)
! 126: ;;=N^^0:99.9:1
! 127: ;;^DIST(.404,.404011,40,2,21,0)
! 128: ;;=^^1^1^2940630^
! 129: ;;^DIST(.404,.404011,40,2,21,1,0)
! 130: ;;=This must be a number not already used
! 131: ;;^DIST(.404,.404011,40,2,22)
! 132: ;;=N V S V=$$GET^DDSVALF("BLOCK") I V]"",$O(^DIST(.404,V,40,"B",X,""))]"" K X
! 133: ;;^DIST(.404,.404011,40,2,23)
! 134: ;;=S DDGFFORD=X
! 135: ;;^DIST(.404,.404011,40,3,0)
! 136: ;;=3^FIELD TYPE^2
! 137: ;;^DIST(.404,.404011,40,3,2)
! 138: ;;=3,15^30^3,3
! 139: ;;^DIST(.404,.404011,40,3,3)
! 140: ;;=DATA DICTIONARY
! 141: ;;^DIST(.404,.404011,40,3,20)
! 142: ;;=DD^^.4044,2
! 143: ;;^DIST(.404,.404011,40,3,23)
! 144: ;;=S DDGFTYPE=X
! 145: ;;^DIST(.404,.404021,0)
! 146: ;;=DDGF FIELD CAPTION ONLY^.4044
! 147: ;;^DIST(.404,.404021,40,0)
! 148: ;;=^.4044I^9^6
! 149: ;;^DIST(.404,.404021,40,1,0)
! 150: ;;=1^ Caption-Only Field Properties ^1
! 151: ;;^DIST(.404,.404021,40,1,2)
! 152: ;;=^^1,22
! 153: ;;^DIST(.404,.404021,40,2,0)
! 154: ;;=2^FIELD ORDER^3
! 155: ;;^DIST(.404,.404021,40,2,1)
! 156: ;;=.01
! 157: ;;^DIST(.404,.404021,40,2,2)
! 158: ;;=3,21^4^3,8
! 159: ;;^DIST(.404,.404021,40,6,0)
! 160: ;;=3^CAPTION^2
! 161: ;;^DIST(.404,.404021,40,6,2)
! 162: ;;=4,21^50^4,12
! 163: ;;^DIST(.404,.404021,40,6,3)
! 164: ;;=!M
! 165: ;;^DIST(.404,.404021,40,6,3.1)
! 166: ;;=S Y=DDGFCAP0
! 167: ;;^DIST(.404,.404021,40,6,4)
! 168: ;;=1
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT0F4.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman