- DINIT0FI ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;3:27 PM 20 Apr 1999
- ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
- ;;Per VA Directive 6402, this routine should not be modified.
- ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
- ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
- ;;Licensed under the terms of the Apache License, Version 2.0.
- ;
- F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT0FJ S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
- Q
- ENTRY ;
- ;;^DIST(.404,.404031,40,15,20)
- ;;=DD^^.4044,5.2
- ;;^DIST(.404,.404031,40,15,23)
- ;;=S DDGFSUP=X
- ;;^DIST(.404,.404031,40,16,0)
- ;;=6^UNIQUE NAME^3
- ;;^DIST(.404,.404031,40,16,1)
- ;;=3.1
- ;;^DIST(.404,.404031,40,16,2)
- ;;=5,26^50^5,13
- ;;^DIST(.404,.404031,40,17,0)
- ;;=9^EXECUTABLE CAPTION^3
- ;;^DIST(.404,.404031,40,17,1)
- ;;=1.1
- ;;^DIST(.404,.404031,40,17,2)
- ;;=9,26^50^9,6
- ;;^DIST(.404,.404031,40,17,13)
- ;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"),"I")
- ;;^DIST(.404,.404032,0)
- ;;=DDGF FIELD DD OTHER SINGLE^.4044
- ;;^DIST(.404,.404032,40,0)
- ;;=^.4044I^13^10
- ;;^DIST(.404,.404032,40,1,0)
- ;;=1^ Other Parameters ^1
- ;;^DIST(.404,.404032,40,1,2)
- ;;=^^1,27
- ;;^DIST(.404,.404032,40,2,0)
- ;;=2^REQUIRED^3
- ;;^DIST(.404,.404032,40,2,1)
- ;;=6.1
- ;;^DIST(.404,.404032,40,2,2)
- ;;=3,23^3^3,13
- ;;^DIST(.404,.404032,40,3,0)
- ;;=4^DISABLE EDITING^3
- ;;^DIST(.404,.404032,40,3,1)
- ;;=6.4
- ;;^DIST(.404,.404032,40,3,2)
- ;;=4,23^9^4,6
- ;;^DIST(.404,.404032,40,7,0)
- ;;=7^DATA LENGTH^2
- ;;^DIST(.404,.404032,40,7,2)
- ;;=7,23^3^7,10
- ;;^DIST(.404,.404032,40,7,3)
- ;;=!M
- ;;^DIST(.404,.404032,40,7,3.1)
- ;;=S Y=$G(DDGFDL0)
- ;;^DIST(.404,.404032,40,7,4)
- ;;=1
- ;;^DIST(.404,.404032,40,7,20)
- ;;=DD^^.4044,4.2
- ;;^DIST(.404,.404032,40,7,23)
- ;;=S DDGFDL=X
- ;;^DIST(.404,.404032,40,8,0)
- ;;=8^CAPTION COORDINATE^2
- ;;^DIST(.404,.404032,40,8,2)
- ;;=8,23^7^8,3
- ;;^DIST(.404,.404032,40,8,3)
- ;;=!M
- ;;^DIST(.404,.404032,40,8,3.1)
- ;;=S Y=$G(DDGFCC0)
- ;;^DIST(.404,.404032,40,8,20)
- ;;=DD^^.4044,5.1
- ;;^DIST(.404,.404032,40,8,23)
- ;;=S DDGFCC=X
- ;;^DIST(.404,.404032,40,9,0)
- ;;=9^DATA COORDINATE^2
- ;;^DIST(.404,.404032,40,9,2)
- ;;=9,23^7^9,6
- ;;^DIST(.404,.404032,40,9,3)
- ;;=!M
- ;;^DIST(.404,.404032,40,9,3.1)
- ;;=S Y=$G(DDGFDC0)
- ;;^DIST(.404,.404032,40,9,4)
- ;;=1
- ;;^DIST(.404,.404032,40,9,20)
- ;;=DD^^.4044,4.1
- ;;^DIST(.404,.404032,40,9,23)
- ;;=S DDGFDC=X
- ;;^DIST(.404,.404032,40,10,0)
- ;;=10^DATA VALIDATION^3
- ;;^DIST(.404,.404032,40,10,1)
- ;;=14
- ;;^DIST(.404,.404032,40,10,2)
- ;;=11,23^49^11,6
- ;;^DIST(.404,.404032,40,11,0)
- ;;=5^RIGHT JUSTIFY^3
- ;;^DIST(.404,.404032,40,11,1)
- ;;=6.3
- ;;^DIST(.404,.404032,40,11,2)
- ;;=4,52^3^4,37
- ;;^DIST(.404,.404032,40,12,0)
- ;;=6^SUB PAGE LINK^3
- ;;^DIST(.404,.404032,40,12,1)
- ;;=8
- ;;^DIST(.404,.404032,40,12,2)
- ;;=5,23^5^5,8
- ;;^DIST(.404,.404032,40,13,0)
- ;;=3^DISPLAY GROUP^3
- ;;^DIST(.404,.404032,40,13,1)
- ;;=3
- ;;^DIST(.404,.404032,40,13,2)
- ;;=3,52^20^3,37
- ;;^DIST(.404,.404033,0)
- ;;=DDGF FIELD DD OTHER MULTIPLE^.4044
- ;;^DIST(.404,.404033,40,0)
- ;;=^.4044I^12^9
- ;;^DIST(.404,.404033,40,1,0)
- ;;=1^ Other Parameters ^1
- ;;^DIST(.404,.404033,40,1,2)
- ;;=^^1,14^1
- ;;^DIST(.404,.404033,40,2,0)
- ;;=2^SUB PAGE LINK^3
- ;;^DIST(.404,.404033,40,2,1)
- ;;=8
- ;;^DIST(.404,.404033,40,2,2)
- ;;=3,23^3^3,8
- ;;^DIST(.404,.404033,40,3,0)
- ;;=3^DISALLOW LAYGO^3
- ;;^DIST(.404,.404033,40,3,1)
- ;;=6.5
- ;;^DIST(.404,.404033,40,3,2)
- ;;=4,23^3^4,7
- ;;^DIST(.404,.404033,40,7,0)
- ;;=7^CAPTION COORDINATE^2
- ;;^DIST(.404,.404033,40,7,2)
- ;;=10,23^7^10,3
- ;;^DIST(.404,.404033,40,7,3)
- ;;=!M
- ;;^DIST(.404,.404033,40,7,3.1)
- ;;=S Y=$G(DDGFCC0)
- ;;^DIST(.404,.404033,40,7,20)
- ;;=DD^^.4044,5.1
- ;;^DIST(.404,.404033,40,7,23)
- ;;=S DDGFCC=X
- ;;^DIST(.404,.404033,40,8,0)
- ;;=8^DATA COORDINATE^2
- ;;^DIST(.404,.404033,40,8,2)
- ;;=11,23^7^11,6
- ;;^DIST(.404,.404033,40,8,3)
- ;;=!M
- ;;^DIST(.404,.404033,40,8,3.1)
- ;;=S Y=$G(DDGFDC0)
- ;;^DIST(.404,.404033,40,8,4)
- ;;=1
- ;;^DIST(.404,.404033,40,8,20)
- ;;=DD^^.4044,4.1
- ;;^DIST(.404,.404033,40,8,23)
- ;;=S DDGFDC=X
- ;;^DIST(.404,.404033,40,9,0)
- ;;=6^DATA LENGTH^2
- ;;^DIST(.404,.404033,40,9,2)
- ;;=9,23^3^9,10
- ;;^DIST(.404,.404033,40,9,3)
- ;;=!M
- ;;^DIST(.404,.404033,40,9,3.1)
- ;;=S Y=$G(DDGFDL0)
- ;;^DIST(.404,.404033,40,9,4)
- ;;=1
- ;;^DIST(.404,.404033,40,9,20)
- ;;=DD^^.4044,4.2
- ;;^DIST(.404,.404033,40,9,23)
- ;;=S DDGFDL=X
- ;;^DIST(.404,.404033,40,10,0)
- ;;=4^RIGHT JUSTIFY^3
- ;;^DIST(.404,.404033,40,10,1)
- ;;=6.3
- ;;^DIST(.404,.404033,40,10,2)
- ;;=6,23^3^6,8
- ;;^DIST(.404,.404033,40,11,0)
- ;;=5^DISPLAY GROUP^3
- ;;^DIST(.404,.404033,40,11,1)
- ;;=3
- ;;^DIST(.404,.404033,40,11,2)
- ;;=7,23^20^7,8
- ;;^DIST(.404,.404033,40,12,0)
- ;;=4^ASK 'OK'^3
- ;;^DIST(.404,.404033,40,12,1)
- ;;=6.6
- ;;^DIST(.404,.404033,40,12,2)
- ;;=5,23^3^5,13
- ;;^DIST(.404,.404034,0)
- ;;=DDGF FIELD DD OTHER WP^.4044
- ;;^DIST(.404,.404034,40,0)
- ;;=^.4044I^10^7
- ;;^DIST(.404,.404034,40,1,0)
- ;;=1^ Other Parameters ^1
- ;;^DIST(.404,.404034,40,1,2)
- ;;=^^1,14^1
- ;;^DIST(.404,.404034,40,2,0)
- ;;=2^REQUIRED^3
- ;;^DIST(.404,.404034,40,2,1)
- ;;=6.1
- ;;^DIST(.404,.404034,40,2,2)
- ;;=3,23^3^3,13
- ;;^DIST(.404,.404034,40,3,0)
- ;;=3^DISABLE EDITING^3
- ;;^DIST(.404,.404034,40,3,1)
- ;;=6.4
- ;;^DIST(.404,.404034,40,3,2)
- ;;=4,23^3^4,6
- ;;^DIST(.404,.404034,40,3,14)
- ;;=I X=2 D HLP^DDSUTL("Word processing fields are always reachable. To make the field uneditable, enter 'YES'.") S DDSERROR=1
- ;;^DIST(.404,.404034,40,7,0)
- ;;=4^DISPLAY GROUP^3
- ;;^DIST(.404,.404034,40,7,1)
- ;;=3
- ;;^DIST(.404,.404034,40,7,2)
- ;;=5,23^20^5,8
- ;;^DIST(.404,.404034,40,8,0)
- ;;=5^DATA LENGTH^2
- ;;^DIST(.404,.404034,40,8,2)
- ;;=7,23^3^7,10
- ;;^DIST(.404,.404034,40,8,3)
- ;;=!M
- ;;^DIST(.404,.404034,40,8,3.1)
- ;;=S Y=$G(DDGFDL0)
- ;;^DIST(.404,.404034,40,8,4)
- ;;=1
- ;;^DIST(.404,.404034,40,8,20)
- ;;=DD^^.4044,4.2
- ;;^DIST(.404,.404034,40,8,23)
- ;;=S DDGFDL=X
- ;;^DIST(.404,.404034,40,9,0)
- ;;=6^CAPTION COORDINATE^2
- ;;^DIST(.404,.404034,40,9,2)
- ;;=8,23^7^8,3
- ;;^DIST(.404,.404034,40,9,3)
- ;;=!M
- ;;^DIST(.404,.404034,40,9,3.1)
- ;;=S Y=$G(DDGFCC0)
- ;;^DIST(.404,.404034,40,9,20)
- ;;=DD^^.4044,5.1
- ;;^DIST(.404,.404034,40,9,23)
- ;;=S DDGFCC=X
- ;;^DIST(.404,.404034,40,10,0)
- ;;=7^DATA COORDINATE^2
- ;;^DIST(.404,.404034,40,10,2)
- ;;=9,23^7^9,6
- ;;^DIST(.404,.404034,40,10,3)
- ;;=!M
- ;;^DIST(.404,.404034,40,10,3.1)
- ;;=S Y=$G(DDGFDC0)
- ;;^DIST(.404,.404034,40,10,4)
- ;;=1
- ;;^DIST(.404,.404034,40,10,20)
- ;;=DD^^.4044,4.1
- ;;^DIST(.404,.404034,40,10,23)
- ;;=S DDGFDC=X
- ;;^DIST(.404,.404041,0)
- ;;=DDGF FIELD FORM ONLY^.4044
- ;;^DIST(.404,.404041,40,0)
- ;;=^.4044I^17^14
- ;;^DIST(.404,.404041,40,1,0)
- ;;=1^ Form Only Field Properties ^1
- ;;^DIST(.404,.404041,40,1,2)
- ;;=^^1,25
- ;;^DIST(.404,.404041,40,2,0)
- ;;=2^FIELD ORDER^3
- ;;^DIST(.404,.404041,40,2,1)
- ;;=.01
- ;;^DIST(.404,.404041,40,2,2)
- ;;=3,26^4^3,13
- ;;^DIST(.404,.404041,40,5,0)
- ;;=8^DEFAULT^3
- ;;^DIST(.404,.404041,40,5,1)
- ;;=6
- ;;^DIST(.404,.404041,40,5,2)
- ;;=8,26^50^8,17
- ;;^DIST(.404,.404041,40,5,13)
- ;;=D:X'="!M" PUT^DDSVAL(.4044,.DA,6.01,"")
- ;;^DIST(.404,.404041,40,7,0)
- ;;=11^BRANCHING LOGIC^3
- ;;^DIST(.404,.404041,40,7,1)
- ;;=10
- ;;^DIST(.404,.404041,40,7,2)
- ;;=12,26^50^12,9
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT0FI 7375 printed Jan 18, 2025@03:51:24 Page 2
- DINIT0FI ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;3:27 PM 20 Apr 1999
- +1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
- +2 ;;Per VA Directive 6402, this routine should not be modified.
- +3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
- +4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
- +5 ;;Licensed under the terms of the Apache License, Version 2.0.
- +6 ;
- +7 FOR I=1:2
- SET X=$TEXT(ENTRY+I)
- if X=""
- GOTO ^DINIT0FJ
- SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
- SET X=$EXTRACT(X,4,999)
- SET @X=Y
- +8 QUIT
- ENTRY ;
- +1 ;;^DIST(.404,.404031,40,15,20)
- +2 ;;=DD^^.4044,5.2
- +3 ;;^DIST(.404,.404031,40,15,23)
- +4 ;;=S DDGFSUP=X
- +5 ;;^DIST(.404,.404031,40,16,0)
- +6 ;;=6^UNIQUE NAME^3
- +7 ;;^DIST(.404,.404031,40,16,1)
- +8 ;;=3.1
- +9 ;;^DIST(.404,.404031,40,16,2)
- +10 ;;=5,26^50^5,13
- +11 ;;^DIST(.404,.404031,40,17,0)
- +12 ;;=9^EXECUTABLE CAPTION^3
- +13 ;;^DIST(.404,.404031,40,17,1)
- +14 ;;=1.1
- +15 ;;^DIST(.404,.404031,40,17,2)
- +16 ;;=9,26^50^9,6
- +17 ;;^DIST(.404,.404031,40,17,13)
- +18 ;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"),"I")
- +19 ;;^DIST(.404,.404032,0)
- +20 ;;=DDGF FIELD DD OTHER SINGLE^.4044
- +21 ;;^DIST(.404,.404032,40,0)
- +22 ;;=^.4044I^13^10
- +23 ;;^DIST(.404,.404032,40,1,0)
- +24 ;;=1^ Other Parameters ^1
- +25 ;;^DIST(.404,.404032,40,1,2)
- +26 ;;=^^1,27
- +27 ;;^DIST(.404,.404032,40,2,0)
- +28 ;;=2^REQUIRED^3
- +29 ;;^DIST(.404,.404032,40,2,1)
- +30 ;;=6.1
- +31 ;;^DIST(.404,.404032,40,2,2)
- +32 ;;=3,23^3^3,13
- +33 ;;^DIST(.404,.404032,40,3,0)
- +34 ;;=4^DISABLE EDITING^3
- +35 ;;^DIST(.404,.404032,40,3,1)
- +36 ;;=6.4
- +37 ;;^DIST(.404,.404032,40,3,2)
- +38 ;;=4,23^9^4,6
- +39 ;;^DIST(.404,.404032,40,7,0)
- +40 ;;=7^DATA LENGTH^2
- +41 ;;^DIST(.404,.404032,40,7,2)
- +42 ;;=7,23^3^7,10
- +43 ;;^DIST(.404,.404032,40,7,3)
- +44 ;;=!M
- +45 ;;^DIST(.404,.404032,40,7,3.1)
- +46 ;;=S Y=$G(DDGFDL0)
- +47 ;;^DIST(.404,.404032,40,7,4)
- +48 ;;=1
- +49 ;;^DIST(.404,.404032,40,7,20)
- +50 ;;=DD^^.4044,4.2
- +51 ;;^DIST(.404,.404032,40,7,23)
- +52 ;;=S DDGFDL=X
- +53 ;;^DIST(.404,.404032,40,8,0)
- +54 ;;=8^CAPTION COORDINATE^2
- +55 ;;^DIST(.404,.404032,40,8,2)
- +56 ;;=8,23^7^8,3
- +57 ;;^DIST(.404,.404032,40,8,3)
- +58 ;;=!M
- +59 ;;^DIST(.404,.404032,40,8,3.1)
- +60 ;;=S Y=$G(DDGFCC0)
- +61 ;;^DIST(.404,.404032,40,8,20)
- +62 ;;=DD^^.4044,5.1
- +63 ;;^DIST(.404,.404032,40,8,23)
- +64 ;;=S DDGFCC=X
- +65 ;;^DIST(.404,.404032,40,9,0)
- +66 ;;=9^DATA COORDINATE^2
- +67 ;;^DIST(.404,.404032,40,9,2)
- +68 ;;=9,23^7^9,6
- +69 ;;^DIST(.404,.404032,40,9,3)
- +70 ;;=!M
- +71 ;;^DIST(.404,.404032,40,9,3.1)
- +72 ;;=S Y=$G(DDGFDC0)
- +73 ;;^DIST(.404,.404032,40,9,4)
- +74 ;;=1
- +75 ;;^DIST(.404,.404032,40,9,20)
- +76 ;;=DD^^.4044,4.1
- +77 ;;^DIST(.404,.404032,40,9,23)
- +78 ;;=S DDGFDC=X
- +79 ;;^DIST(.404,.404032,40,10,0)
- +80 ;;=10^DATA VALIDATION^3
- +81 ;;^DIST(.404,.404032,40,10,1)
- +82 ;;=14
- +83 ;;^DIST(.404,.404032,40,10,2)
- +84 ;;=11,23^49^11,6
- +85 ;;^DIST(.404,.404032,40,11,0)
- +86 ;;=5^RIGHT JUSTIFY^3
- +87 ;;^DIST(.404,.404032,40,11,1)
- +88 ;;=6.3
- +89 ;;^DIST(.404,.404032,40,11,2)
- +90 ;;=4,52^3^4,37
- +91 ;;^DIST(.404,.404032,40,12,0)
- +92 ;;=6^SUB PAGE LINK^3
- +93 ;;^DIST(.404,.404032,40,12,1)
- +94 ;;=8
- +95 ;;^DIST(.404,.404032,40,12,2)
- +96 ;;=5,23^5^5,8
- +97 ;;^DIST(.404,.404032,40,13,0)
- +98 ;;=3^DISPLAY GROUP^3
- +99 ;;^DIST(.404,.404032,40,13,1)
- +100 ;;=3
- +101 ;;^DIST(.404,.404032,40,13,2)
- +102 ;;=3,52^20^3,37
- +103 ;;^DIST(.404,.404033,0)
- +104 ;;=DDGF FIELD DD OTHER MULTIPLE^.4044
- +105 ;;^DIST(.404,.404033,40,0)
- +106 ;;=^.4044I^12^9
- +107 ;;^DIST(.404,.404033,40,1,0)
- +108 ;;=1^ Other Parameters ^1
- +109 ;;^DIST(.404,.404033,40,1,2)
- +110 ;;=^^1,14^1
- +111 ;;^DIST(.404,.404033,40,2,0)
- +112 ;;=2^SUB PAGE LINK^3
- +113 ;;^DIST(.404,.404033,40,2,1)
- +114 ;;=8
- +115 ;;^DIST(.404,.404033,40,2,2)
- +116 ;;=3,23^3^3,8
- +117 ;;^DIST(.404,.404033,40,3,0)
- +118 ;;=3^DISALLOW LAYGO^3
- +119 ;;^DIST(.404,.404033,40,3,1)
- +120 ;;=6.5
- +121 ;;^DIST(.404,.404033,40,3,2)
- +122 ;;=4,23^3^4,7
- +123 ;;^DIST(.404,.404033,40,7,0)
- +124 ;;=7^CAPTION COORDINATE^2
- +125 ;;^DIST(.404,.404033,40,7,2)
- +126 ;;=10,23^7^10,3
- +127 ;;^DIST(.404,.404033,40,7,3)
- +128 ;;=!M
- +129 ;;^DIST(.404,.404033,40,7,3.1)
- +130 ;;=S Y=$G(DDGFCC0)
- +131 ;;^DIST(.404,.404033,40,7,20)
- +132 ;;=DD^^.4044,5.1
- +133 ;;^DIST(.404,.404033,40,7,23)
- +134 ;;=S DDGFCC=X
- +135 ;;^DIST(.404,.404033,40,8,0)
- +136 ;;=8^DATA COORDINATE^2
- +137 ;;^DIST(.404,.404033,40,8,2)
- +138 ;;=11,23^7^11,6
- +139 ;;^DIST(.404,.404033,40,8,3)
- +140 ;;=!M
- +141 ;;^DIST(.404,.404033,40,8,3.1)
- +142 ;;=S Y=$G(DDGFDC0)
- +143 ;;^DIST(.404,.404033,40,8,4)
- +144 ;;=1
- +145 ;;^DIST(.404,.404033,40,8,20)
- +146 ;;=DD^^.4044,4.1
- +147 ;;^DIST(.404,.404033,40,8,23)
- +148 ;;=S DDGFDC=X
- +149 ;;^DIST(.404,.404033,40,9,0)
- +150 ;;=6^DATA LENGTH^2
- +151 ;;^DIST(.404,.404033,40,9,2)
- +152 ;;=9,23^3^9,10
- +153 ;;^DIST(.404,.404033,40,9,3)
- +154 ;;=!M
- +155 ;;^DIST(.404,.404033,40,9,3.1)
- +156 ;;=S Y=$G(DDGFDL0)
- +157 ;;^DIST(.404,.404033,40,9,4)
- +158 ;;=1
- +159 ;;^DIST(.404,.404033,40,9,20)
- +160 ;;=DD^^.4044,4.2
- +161 ;;^DIST(.404,.404033,40,9,23)
- +162 ;;=S DDGFDL=X
- +163 ;;^DIST(.404,.404033,40,10,0)
- +164 ;;=4^RIGHT JUSTIFY^3
- +165 ;;^DIST(.404,.404033,40,10,1)
- +166 ;;=6.3
- +167 ;;^DIST(.404,.404033,40,10,2)
- +168 ;;=6,23^3^6,8
- +169 ;;^DIST(.404,.404033,40,11,0)
- +170 ;;=5^DISPLAY GROUP^3
- +171 ;;^DIST(.404,.404033,40,11,1)
- +172 ;;=3
- +173 ;;^DIST(.404,.404033,40,11,2)
- +174 ;;=7,23^20^7,8
- +175 ;;^DIST(.404,.404033,40,12,0)
- +176 ;;=4^ASK 'OK'^3
- +177 ;;^DIST(.404,.404033,40,12,1)
- +178 ;;=6.6
- +179 ;;^DIST(.404,.404033,40,12,2)
- +180 ;;=5,23^3^5,13
- +181 ;;^DIST(.404,.404034,0)
- +182 ;;=DDGF FIELD DD OTHER WP^.4044
- +183 ;;^DIST(.404,.404034,40,0)
- +184 ;;=^.4044I^10^7
- +185 ;;^DIST(.404,.404034,40,1,0)
- +186 ;;=1^ Other Parameters ^1
- +187 ;;^DIST(.404,.404034,40,1,2)
- +188 ;;=^^1,14^1
- +189 ;;^DIST(.404,.404034,40,2,0)
- +190 ;;=2^REQUIRED^3
- +191 ;;^DIST(.404,.404034,40,2,1)
- +192 ;;=6.1
- +193 ;;^DIST(.404,.404034,40,2,2)
- +194 ;;=3,23^3^3,13
- +195 ;;^DIST(.404,.404034,40,3,0)
- +196 ;;=3^DISABLE EDITING^3
- +197 ;;^DIST(.404,.404034,40,3,1)
- +198 ;;=6.4
- +199 ;;^DIST(.404,.404034,40,3,2)
- +200 ;;=4,23^3^4,6
- +201 ;;^DIST(.404,.404034,40,3,14)
- +202 ;;=I X=2 D HLP^DDSUTL("Word processing fields are always reachable. To make the field uneditable, enter 'YES'.") S DDSERROR=1
- +203 ;;^DIST(.404,.404034,40,7,0)
- +204 ;;=4^DISPLAY GROUP^3
- +205 ;;^DIST(.404,.404034,40,7,1)
- +206 ;;=3
- +207 ;;^DIST(.404,.404034,40,7,2)
- +208 ;;=5,23^20^5,8
- +209 ;;^DIST(.404,.404034,40,8,0)
- +210 ;;=5^DATA LENGTH^2
- +211 ;;^DIST(.404,.404034,40,8,2)
- +212 ;;=7,23^3^7,10
- +213 ;;^DIST(.404,.404034,40,8,3)
- +214 ;;=!M
- +215 ;;^DIST(.404,.404034,40,8,3.1)
- +216 ;;=S Y=$G(DDGFDL0)
- +217 ;;^DIST(.404,.404034,40,8,4)
- +218 ;;=1
- +219 ;;^DIST(.404,.404034,40,8,20)
- +220 ;;=DD^^.4044,4.2
- +221 ;;^DIST(.404,.404034,40,8,23)
- +222 ;;=S DDGFDL=X
- +223 ;;^DIST(.404,.404034,40,9,0)
- +224 ;;=6^CAPTION COORDINATE^2
- +225 ;;^DIST(.404,.404034,40,9,2)
- +226 ;;=8,23^7^8,3
- +227 ;;^DIST(.404,.404034,40,9,3)
- +228 ;;=!M
- +229 ;;^DIST(.404,.404034,40,9,3.1)
- +230 ;;=S Y=$G(DDGFCC0)
- +231 ;;^DIST(.404,.404034,40,9,20)
- +232 ;;=DD^^.4044,5.1
- +233 ;;^DIST(.404,.404034,40,9,23)
- +234 ;;=S DDGFCC=X
- +235 ;;^DIST(.404,.404034,40,10,0)
- +236 ;;=7^DATA COORDINATE^2
- +237 ;;^DIST(.404,.404034,40,10,2)
- +238 ;;=9,23^7^9,6
- +239 ;;^DIST(.404,.404034,40,10,3)
- +240 ;;=!M
- +241 ;;^DIST(.404,.404034,40,10,3.1)
- +242 ;;=S Y=$G(DDGFDC0)
- +243 ;;^DIST(.404,.404034,40,10,4)
- +244 ;;=1
- +245 ;;^DIST(.404,.404034,40,10,20)
- +246 ;;=DD^^.4044,4.1
- +247 ;;^DIST(.404,.404034,40,10,23)
- +248 ;;=S DDGFDC=X
- +249 ;;^DIST(.404,.404041,0)
- +250 ;;=DDGF FIELD FORM ONLY^.4044
- +251 ;;^DIST(.404,.404041,40,0)
- +252 ;;=^.4044I^17^14
- +253 ;;^DIST(.404,.404041,40,1,0)
- +254 ;;=1^ Form Only Field Properties ^1
- +255 ;;^DIST(.404,.404041,40,1,2)
- +256 ;;=^^1,25
- +257 ;;^DIST(.404,.404041,40,2,0)
- +258 ;;=2^FIELD ORDER^3
- +259 ;;^DIST(.404,.404041,40,2,1)
- +260 ;;=.01
- +261 ;;^DIST(.404,.404041,40,2,2)
- +262 ;;=3,26^4^3,13
- +263 ;;^DIST(.404,.404041,40,5,0)
- +264 ;;=8^DEFAULT^3
- +265 ;;^DIST(.404,.404041,40,5,1)
- +266 ;;=6
- +267 ;;^DIST(.404,.404041,40,5,2)
- +268 ;;=8,26^50^8,17
- +269 ;;^DIST(.404,.404041,40,5,13)
- +270 ;;=D:X'="!M" PUT^DDSVAL(.4044,.DA,6.01,"")
- +271 ;;^DIST(.404,.404041,40,7,0)
- +272 ;;=11^BRANCHING LOGIC^3
- +273 ;;^DIST(.404,.404041,40,7,1)
- +274 ;;=10
- +275 ;;^DIST(.404,.404041,40,7,2)
- +276 ;;=12,26^50^12,9