Annotation of freem_fileman/DINIT0F3.m, revision 1.1
1.1 ! snw 1: DINIT0F3 ;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="" ^DINIT0F4 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
! 5: Q
! 6: ENTRY ;
! 7: ;;^DIST(.404,.403013,40,7,2)
! 8: ;;=10,24^3^10,8
! 9: ;;^DIST(.404,.403013,40,8,0)
! 10: ;;=8^FIELD FOR SELECTION^3
! 11: ;;^DIST(.404,.403013,40,8,1)
! 12: ;;=9
! 13: ;;^DIST(.404,.403013,40,8,2)
! 14: ;;=11,24^30^11,3
! 15: ;;^DIST(.404,.403021,0)
! 16: ;;=DDGF PAGE ADD^.4031
! 17: ;;^DIST(.404,.403021,40,0)
! 18: ;;=^.4044I^1^1
! 19: ;;^DIST(.404,.403021,40,1,0)
! 20: ;;=1^NEW PAGE NUMBER^2
! 21: ;;^DIST(.404,.403021,40,1,2)
! 22: ;;=3,20^5^3,3
! 23: ;;^DIST(.404,.403021,40,1,12)
! 24: ;;=S DDACT="EX"
! 25: ;;^DIST(.404,.403021,40,1,20)
! 26: ;;=DD^^.4031,.01
! 27: ;;^DIST(.404,.403021,40,1,23)
! 28: ;;=S DDGFPNUM=X
! 29: ;;^DIST(.404,.403022,0)
! 30: ;;=DDGF PAGE ADD ARE YOU SURE^.4031
! 31: ;;^DIST(.404,.403022,40,0)
! 32: ;;=^.4044I^2^2
! 33: ;;^DIST(.404,.403022,40,1,0)
! 34: ;;=1^!M^1
! 35: ;;^DIST(.404,.403022,40,1,.1)
! 36: ;;=S Y="Are you adding Page "_DDGFPNUM
! 37: ;;^DIST(.404,.403022,40,1,2)
! 38: ;;=^^3,3
! 39: ;;^DIST(.404,.403022,40,2,0)
! 40: ;;=2^as a new page on this form?^2
! 41: ;;^DIST(.404,.403022,40,2,2)
! 42: ;;=4,31^3^4,3^1
! 43: ;;^DIST(.404,.403022,40,2,12)
! 44: ;;=S DDACT="EX"
! 45: ;;^DIST(.404,.403022,40,2,20)
! 46: ;;=Y
! 47: ;;^DIST(.404,.403022,40,2,23)
! 48: ;;=S DDGFANS=X
! 49: ;;^DIST(.404,.403031,0)
! 50: ;;=DDGF PAGE EDIT^.4031
! 51: ;;^DIST(.404,.403031,40,0)
! 52: ;;=^.4044I^16^13
! 53: ;;^DIST(.404,.403031,40,1,0)
! 54: ;;=1^ Page Properties ^1
! 55: ;;^DIST(.404,.403031,40,1,2)
! 56: ;;=^^1,27
! 57: ;;^DIST(.404,.403031,40,2,0)
! 58: ;;=2^PAGE NUMBER^3
! 59: ;;^DIST(.404,.403031,40,2,1)
! 60: ;;=.01
! 61: ;;^DIST(.404,.403031,40,2,2)
! 62: ;;=3,21^5^3,8
! 63: ;;^DIST(.404,.403031,40,4,0)
! 64: ;;=4^HEADER BLOCK^3
! 65: ;;^DIST(.404,.403031,40,4,1)
! 66: ;;=1
! 67: ;;^DIST(.404,.403031,40,4,2)
! 68: ;;=5,21^30^5,7
! 69: ;;^DIST(.404,.403031,40,5,0)
! 70: ;;=8^NEXT PAGE^3
! 71: ;;^DIST(.404,.403031,40,5,1)
! 72: ;;=3
! 73: ;;^DIST(.404,.403031,40,5,2)
! 74: ;;=9,21^5^9,10
! 75: ;;^DIST(.404,.403031,40,6,0)
! 76: ;;=9^PREVIOUS PAGE^3
! 77: ;;^DIST(.404,.403031,40,6,1)
! 78: ;;=4
! 79: ;;^DIST(.404,.403031,40,6,2)
! 80: ;;=10,21^5^10,6
! 81: ;;^DIST(.404,.403031,40,7,0)
! 82: ;;=12^PRE ACTION^3
! 83: ;;^DIST(.404,.403031,40,7,1)
! 84: ;;=11
! 85: ;;^DIST(.404,.403031,40,7,2)
! 86: ;;=14,21^53^14,9
! 87: ;;^DIST(.404,.403031,40,8,0)
! 88: ;;=13^POST ACTION^3
! 89: ;;^DIST(.404,.403031,40,8,1)
! 90: ;;=12
! 91: ;;^DIST(.404,.403031,40,8,2)
! 92: ;;=15,21^53^15,8
! 93: ;;^DIST(.404,.403031,40,9,0)
! 94: ;;=11^DESCRIPTION (WP)^3
! 95: ;;^DIST(.404,.403031,40,9,1)
! 96: ;;=15
! 97: ;;^DIST(.404,.403031,40,9,2)
! 98: ;;=13,21^1^13,3
! 99: ;;^DIST(.404,.403031,40,12,0)
! 100: ;;=10^PARENT FIELD^3
! 101: ;;^DIST(.404,.403031,40,12,1)
! 102: ;;=8
! 103: ;;^DIST(.404,.403031,40,12,2)
! 104: ;;=11,21^53^11,7
! 105: ;;^DIST(.404,.403031,40,13,0)
! 106: ;;=6^IS THIS A POP UP PAGE?^2
! 107: ;;^DIST(.404,.403031,40,13,2)
! 108: ;;=7,67^3^7,44^1
! 109: ;;^DIST(.404,.403031,40,13,3)
! 110: ;;=!M
! 111: ;;^DIST(.404,.403031,40,13,3.1)
! 112: ;;=S:$G(DDGFLRC)]"" Y=1
! 113: ;;^DIST(.404,.403031,40,13,13)
! 114: ;;=N LRC,PP,NP S LRC="LOWER RIGHT COORDINATE",PP="PREVIOUS PAGE",NP="NEXT PAGE" D:X PUT^DDSVALF(LRC,"","","15,75"):$$GET^DDSVALF(LRC)="" D:'X PUT^DDSVALF(LRC) N PG F PG=NP,PP D UNED^DDSUTL(PG,"","",$E(1,X)) D:X PUT^DDSVAL(DIE,.DA,PG)
! 115: ;;^DIST(.404,.403031,40,13,20)
! 116: ;;=DD^^.4031,5
! 117: ;;^DIST(.404,.403031,40,14,0)
! 118: ;;=5^PAGE COORDINATE^2
! 119: ;;^DIST(.404,.403031,40,14,2)
! 120: ;;=7,21^7^7,4
! 121: ;;^DIST(.404,.403031,40,14,3)
! 122: ;;=!M
! 123: ;;^DIST(.404,.403031,40,14,3.1)
! 124: ;;=S Y=$G(DDGFTLC0)
! 125: ;;^DIST(.404,.403031,40,14,4)
! 126: ;;=1
! 127: ;;^DIST(.404,.403031,40,14,20)
! 128: ;;=DD^^.4031,2
! 129: ;;^DIST(.404,.403031,40,14,23)
! 130: ;;=S DDGFTLC=X
! 131: ;;^DIST(.404,.403031,40,15,0)
! 132: ;;=7^LOWER RIGHT COORDINATE^2
! 133: ;;^DIST(.404,.403031,40,15,2)
! 134: ;;=8,67^7^8,43
! 135: ;;^DIST(.404,.403031,40,15,3)
! 136: ;;=!M
! 137: ;;^DIST(.404,.403031,40,15,3.1)
! 138: ;;=S Y=$G(DDGFLRC0)
! 139: ;;^DIST(.404,.403031,40,15,13)
! 140: ;;=I DDSOLD=""!(X="") D PUT^DDSVALF("IS THIS A POP UP PAGE?","","",$S(X="":"",1:1),"I") N PG,NP,PP S NP="NEXT PAGE",PP="PREVIOUS PAGE" F PG=NP,PP D UNED^DDSUTL(PG,"","",$E(1,X]"")) D:X]"" PUT^DDSVAL(DIE,.DA,PG)
! 141: ;;^DIST(.404,.403031,40,15,20)
! 142: ;;=DD^^.4031,6
! 143: ;;^DIST(.404,.403031,40,15,23)
! 144: ;;=S DDGFLRC=X
! 145: ;;^DIST(.404,.403031,40,16,0)
! 146: ;;=3^PAGE NAME^2
! 147: ;;^DIST(.404,.403031,40,16,2)
! 148: ;;=4,21^30^4,10
! 149: ;;^DIST(.404,.403031,40,16,3)
! 150: ;;=!M
! 151: ;;^DIST(.404,.403031,40,16,3.1)
! 152: ;;=S Y=$G(DDGFPNM0)
! 153: ;;^DIST(.404,.403031,40,16,4)
! 154: ;;=1
! 155: ;;^DIST(.404,.403031,40,16,20)
! 156: ;;=DD^^.4031,7
! 157: ;;^DIST(.404,.403031,40,16,23)
! 158: ;;=S DDGFPNM=X
! 159: ;;^DIST(.404,.403041,0)
! 160: ;;=DDGF PAGE SELECT^.4031
! 161: ;;^DIST(.404,.403041,40,0)
! 162: ;;=^.4044I^1^1
! 163: ;;^DIST(.404,.403041,40,1,0)
! 164: ;;=1^Select PAGE^2
! 165: ;;^DIST(.404,.403041,40,1,2)
! 166: ;;=1,14^30^1,1
! 167: ;;^DIST(.404,.403041,40,1,3)
! 168: ;;=!M
! 169: ;;^DIST(.404,.403041,40,1,3.1)
! 170: ;;=S Y=$P(^DIST(.403,+DDGFFM,40,DDGFPAGE,0),U)
! 171: ;;^DIST(.404,.403041,40,1,12)
! 172: ;;=S DDACT="EX"
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT0F3.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman