- DINIT0FJ ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:49 AM 30 Mar 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="" ^DINIT0FK S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
- Q
- ENTRY ;
- ;;^DIST(.404,.404041,40,8,0)
- ;;=12^PRE ACTION^3
- ;;^DIST(.404,.404041,40,8,1)
- ;;=11
- ;;^DIST(.404,.404041,40,8,2)
- ;;=13,26^50^13,14
- ;;^DIST(.404,.404041,40,9,0)
- ;;=13^POST ACTION^3
- ;;^DIST(.404,.404041,40,9,1)
- ;;=12
- ;;^DIST(.404,.404041,40,9,2)
- ;;=14,26^50^14,13
- ;;^DIST(.404,.404041,40,10,0)
- ;;=14^POST ACTION ON CHANGE^3
- ;;^DIST(.404,.404041,40,10,1)
- ;;=13
- ;;^DIST(.404,.404041,40,10,2)
- ;;=15,26^50^15,3
- ;;^DIST(.404,.404041,40,11,0)
- ;;=9^EXECUTABLE CAPTION^3
- ;;^DIST(.404,.404041,40,11,1)
- ;;=1.1
- ;;^DIST(.404,.404041,40,11,2)
- ;;=9,26^50^9,6
- ;;^DIST(.404,.404041,40,11,13)
- ;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"))
- ;;^DIST(.404,.404041,40,12,0)
- ;;=10^EXECUTABLE DEFAULT^3
- ;;^DIST(.404,.404041,40,12,1)
- ;;=6.01
- ;;^DIST(.404,.404041,40,12,2)
- ;;=10,26^50^10,6
- ;;^DIST(.404,.404041,40,12,13)
- ;;=D PUT^DDSVAL(.4044,.DA,6,$S(X="":"",1:"!M"))
- ;;^DIST(.404,.404041,40,13,0)
- ;;=3^FORM ONLY FIELD PARAMETERS...^2
- ;;^DIST(.404,.404041,40,13,2)
- ;;=3,73^1^3,43^1
- ;;^DIST(.404,.404041,40,13,7)
- ;;=^11
- ;;^DIST(.404,.404041,40,13,20)
- ;;=F^^0:0
- ;;^DIST(.404,.404041,40,13,21,0)
- ;;=^^1^1^2940928
- ;;^DIST(.404,.404041,40,13,21,1,0)
- ;;=Press <RET> to edit the properties of this form-only field
- ;;^DIST(.404,.404041,40,14,0)
- ;;=4^OTHER PARAMETERS...^2
- ;;^DIST(.404,.404041,40,14,2)
- ;;=4,26^1^4,6^1
- ;;^DIST(.404,.404041,40,14,7)
- ;;=^21
- ;;^DIST(.404,.404041,40,14,20)
- ;;=F^^0:0
- ;;^DIST(.404,.404041,40,14,21,0)
- ;;=^^1^1^2940928
- ;;^DIST(.404,.404041,40,14,21,1,0)
- ;;=Press <RET> to edit additional properties of this form-only field
- ;;^DIST(.404,.404041,40,15,0)
- ;;=7^CAPTION^2
- ;;^DIST(.404,.404041,40,15,2)
- ;;=7,26^50^7,17
- ;;^DIST(.404,.404041,40,15,3)
- ;;=!M
- ;;^DIST(.404,.404041,40,15,3.1)
- ;;=S Y=$G(DDGFCAP0)
- ;;^DIST(.404,.404041,40,15,13)
- ;;=D FOCAP^DDGFU
- ;;^DIST(.404,.404041,40,15,20)
- ;;=DD^^.4044,1
- ;;^DIST(.404,.404041,40,15,23)
- ;;=S DDGFCAP=X
- ;;^DIST(.404,.404041,40,16,0)
- ;;=5^SUPPRESS COLON AFTER CAPTION?^2
- ;;^DIST(.404,.404041,40,16,2)
- ;;=4,73^3^4,43^1
- ;;^DIST(.404,.404041,40,16,3)
- ;;=!M
- ;;^DIST(.404,.404041,40,16,3.1)
- ;;=S Y=$G(DDGFSUP0)
- ;;^DIST(.404,.404041,40,16,20)
- ;;=DD^^.4044,5.2
- ;;^DIST(.404,.404041,40,16,23)
- ;;=S DDGFSUP=X
- ;;^DIST(.404,.404041,40,17,0)
- ;;=6^UNIQUE NAME^3
- ;;^DIST(.404,.404041,40,17,1)
- ;;=3.1
- ;;^DIST(.404,.404041,40,17,2)
- ;;=5,26^50^5,13
- ;;^DIST(.404,.404042,0)
- ;;=DDGF FIELD FORM ONLY PARAMS^.4044
- ;;^DIST(.404,.404042,40,0)
- ;;=^.4044I^9^8
- ;;^DIST(.404,.404042,40,1,0)
- ;;=1^ Other Form Only Field Parameters ^1
- ;;^DIST(.404,.404042,40,1,2)
- ;;=^^1,22
- ;;^DIST(.404,.404042,40,2,0)
- ;;=2^READ TYPE^3
- ;;^DIST(.404,.404042,40,2,1)
- ;;=20.1
- ;;^DIST(.404,.404042,40,2,2)
- ;;=3,20^15^3,9
- ;;^DIST(.404,.404042,40,2,4)
- ;;=1
- ;;^DIST(.404,.404042,40,3,0)
- ;;=3^PARAMETERS^3
- ;;^DIST(.404,.404042,40,3,1)
- ;;=20.2
- ;;^DIST(.404,.404042,40,3,2)
- ;;=4,20^2^4,8
- ;;^DIST(.404,.404042,40,4,0)
- ;;=4^QUALIFIERS^3
- ;;^DIST(.404,.404042,40,4,1)
- ;;=20.3
- ;;^DIST(.404,.404042,40,4,2)
- ;;=5,20^52^5,8
- ;;^DIST(.404,.404042,40,5,0)
- ;;=6^INPUT TRANSFORM^3
- ;;^DIST(.404,.404042,40,5,1)
- ;;=22
- ;;^DIST(.404,.404042,40,5,2)
- ;;=9,20^52^9,3
- ;;^DIST(.404,.404042,40,6,0)
- ;;=5^HELP (WP)^3
- ;;^DIST(.404,.404042,40,6,1)
- ;;=21
- ;;^DIST(.404,.404042,40,6,2)
- ;;=7,20^1^7,9
- ;;^DIST(.404,.404042,40,8,0)
- ;;=7^SCREEN^3
- ;;^DIST(.404,.404042,40,8,1)
- ;;=24
- ;;^DIST(.404,.404042,40,8,2)
- ;;=10,20^52^10,12
- ;;^DIST(.404,.404042,40,9,0)
- ;;=8^SAVE CODE^3
- ;;^DIST(.404,.404042,40,9,1)
- ;;=23
- ;;^DIST(.404,.404042,40,9,2)
- ;;=11,20^52^11,9
- ;;^DIST(.404,.404051,0)
- ;;=DDGF FIELD COMPUTED^.4044
- ;;^DIST(.404,.404051,40,0)
- ;;=^.4044I^8^8
- ;;^DIST(.404,.404051,40,1,0)
- ;;=1^ Computed Field Properties ^1
- ;;^DIST(.404,.404051,40,1,2)
- ;;=^^1,26
- ;;^DIST(.404,.404051,40,2,0)
- ;;=2^FIELD ORDER^3
- ;;^DIST(.404,.404051,40,2,1)
- ;;=.01
- ;;^DIST(.404,.404051,40,2,2)
- ;;=3,24^4^3,11
- ;;^DIST(.404,.404051,40,3,0)
- ;;=3^OTHER PARAMETERS...^2
- ;;^DIST(.404,.404051,40,3,2)
- ;;=4,24^1^4,4^1
- ;;^DIST(.404,.404051,40,3,7)
- ;;=^11
- ;;^DIST(.404,.404051,40,3,20)
- ;;=F^^1:1
- ;;^DIST(.404,.404051,40,3,21,0)
- ;;=^^1^1^2930916
- ;;^DIST(.404,.404051,40,3,21,1,0)
- ;;=Press 'RETURN' to edit additional properties of this Data Dictionary field
- ;;^DIST(.404,.404051,40,4,0)
- ;;=4^SUPPRESS COLON AFTER CAPTION?^2
- ;;^DIST(.404,.404051,40,4,2)
- ;;=4,71^3^4,41^1
- ;;^DIST(.404,.404051,40,4,3)
- ;;=!M
- ;;^DIST(.404,.404051,40,4,3.1)
- ;;=S Y=DDGFSUP0
- ;;^DIST(.404,.404051,40,4,20)
- ;;=DD^^.4044,5.2
- ;;^DIST(.404,.404051,40,4,23)
- ;;=S DDGFSUP=X
- ;;^DIST(.404,.404051,40,5,0)
- ;;=5^UNIQUE NAME^3
- ;;^DIST(.404,.404051,40,5,1)
- ;;=3.1
- ;;^DIST(.404,.404051,40,5,2)
- ;;=5,24^50^5,11
- ;;^DIST(.404,.404051,40,6,0)
- ;;=6^CAPTION^2
- ;;^DIST(.404,.404051,40,6,2)
- ;;=7,24^50^7,15
- ;;^DIST(.404,.404051,40,6,3)
- ;;=!M
- ;;^DIST(.404,.404051,40,6,3.1)
- ;;=S Y=DDGFCAP0
- ;;^DIST(.404,.404051,40,6,13)
- ;;=D COMPCAP^DDGFU
- ;;^DIST(.404,.404051,40,6,20)
- ;;=DD^^.4044,1
- ;;^DIST(.404,.404051,40,6,23)
- ;;=S DDGFCAP=X
- ;;^DIST(.404,.404051,40,7,0)
- ;;=7^EXECUTABLE CAPTION^3
- ;;^DIST(.404,.404051,40,7,1)
- ;;=1.1
- ;;^DIST(.404,.404051,40,7,2)
- ;;=8,24^50^8,4
- ;;^DIST(.404,.404051,40,7,13)
- ;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"))
- ;;^DIST(.404,.404051,40,8,0)
- ;;=8^COMPUTED EXPRESSION^3
- ;;^DIST(.404,.404051,40,8,1)
- ;;=30
- ;;^DIST(.404,.404051,40,8,2)
- ;;=10,24^50^10,3
- ;;^DIST(.404,.404051,40,8,4)
- ;;=1
- ;;^DIST(.404,.404052,0)
- ;;=DDGF FIELD COMPUTED OTHER^.4044
- ;;^DIST(.404,.404052,40,0)
- ;;=^.4044I^8^5
- ;;^DIST(.404,.404052,40,1,0)
- ;;=1^ Other Computed Field Properties ^1
- ;;^DIST(.404,.404052,40,1,2)
- ;;=^^1,6
- ;;^DIST(.404,.404052,40,5,0)
- ;;=3^DATA LENGTH^2
- ;;^DIST(.404,.404052,40,5,2)
- ;;=5,25^3^5,12
- ;;^DIST(.404,.404052,40,5,3)
- ;;=!M
- ;;^DIST(.404,.404052,40,5,3.1)
- ;;=S Y=$G(DDGFDL0)
- ;;^DIST(.404,.404052,40,5,20)
- ;;=DD^^.4044,4.2
- ;;^DIST(.404,.404052,40,5,23)
- ;;=S DDGFDL=X
- ;;^DIST(.404,.404052,40,6,0)
- ;;=4^CAPTION COORDINATE^2
- ;;^DIST(.404,.404052,40,6,2)
- ;;=6,25^7^6,5
- ;;^DIST(.404,.404052,40,6,3)
- ;;=!M
- ;;^DIST(.404,.404052,40,6,3.1)
- ;;=S Y=$G(DDGFCC0)
- ;;^DIST(.404,.404052,40,6,20)
- ;;=DD^^.4044,5.1
- ;;^DIST(.404,.404052,40,6,23)
- ;;=S DDGFCC=X
- ;;^DIST(.404,.404052,40,7,0)
- ;;=5^DATA COORDINATE^2
- ;;^DIST(.404,.404052,40,7,2)
- ;;=7,25^7^7,8
- ;;^DIST(.404,.404052,40,7,3)
- ;;=!M
- ;;^DIST(.404,.404052,40,7,3.1)
- ;;=S Y=$G(DDGFDC0)
- ;;^DIST(.404,.404052,40,7,20)
- ;;=DD^^.4044,4.1
- ;;^DIST(.404,.404052,40,7,23)
- ;;=S DDGFDC=X
- ;;^DIST(.404,.404052,40,8,0)
- ;;=2^RIGHT JUSTIFY^3
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT0FJ 7265 printed Jan 18, 2025@03:51:25 Page 2
- DINIT0FJ ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:49 AM 30 Mar 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 ^DINIT0FK
- SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
- SET X=$EXTRACT(X,4,999)
- SET @X=Y
- +8 QUIT
- ENTRY ;
- +1 ;;^DIST(.404,.404041,40,8,0)
- +2 ;;=12^PRE ACTION^3
- +3 ;;^DIST(.404,.404041,40,8,1)
- +4 ;;=11
- +5 ;;^DIST(.404,.404041,40,8,2)
- +6 ;;=13,26^50^13,14
- +7 ;;^DIST(.404,.404041,40,9,0)
- +8 ;;=13^POST ACTION^3
- +9 ;;^DIST(.404,.404041,40,9,1)
- +10 ;;=12
- +11 ;;^DIST(.404,.404041,40,9,2)
- +12 ;;=14,26^50^14,13
- +13 ;;^DIST(.404,.404041,40,10,0)
- +14 ;;=14^POST ACTION ON CHANGE^3
- +15 ;;^DIST(.404,.404041,40,10,1)
- +16 ;;=13
- +17 ;;^DIST(.404,.404041,40,10,2)
- +18 ;;=15,26^50^15,3
- +19 ;;^DIST(.404,.404041,40,11,0)
- +20 ;;=9^EXECUTABLE CAPTION^3
- +21 ;;^DIST(.404,.404041,40,11,1)
- +22 ;;=1.1
- +23 ;;^DIST(.404,.404041,40,11,2)
- +24 ;;=9,26^50^9,6
- +25 ;;^DIST(.404,.404041,40,11,13)
- +26 ;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"))
- +27 ;;^DIST(.404,.404041,40,12,0)
- +28 ;;=10^EXECUTABLE DEFAULT^3
- +29 ;;^DIST(.404,.404041,40,12,1)
- +30 ;;=6.01
- +31 ;;^DIST(.404,.404041,40,12,2)
- +32 ;;=10,26^50^10,6
- +33 ;;^DIST(.404,.404041,40,12,13)
- +34 ;;=D PUT^DDSVAL(.4044,.DA,6,$S(X="":"",1:"!M"))
- +35 ;;^DIST(.404,.404041,40,13,0)
- +36 ;;=3^FORM ONLY FIELD PARAMETERS...^2
- +37 ;;^DIST(.404,.404041,40,13,2)
- +38 ;;=3,73^1^3,43^1
- +39 ;;^DIST(.404,.404041,40,13,7)
- +40 ;;=^11
- +41 ;;^DIST(.404,.404041,40,13,20)
- +42 ;;=F^^0:0
- +43 ;;^DIST(.404,.404041,40,13,21,0)
- +44 ;;=^^1^1^2940928
- +45 ;;^DIST(.404,.404041,40,13,21,1,0)
- +46 ;;=Press <RET> to edit the properties of this form-only field
- +47 ;;^DIST(.404,.404041,40,14,0)
- +48 ;;=4^OTHER PARAMETERS...^2
- +49 ;;^DIST(.404,.404041,40,14,2)
- +50 ;;=4,26^1^4,6^1
- +51 ;;^DIST(.404,.404041,40,14,7)
- +52 ;;=^21
- +53 ;;^DIST(.404,.404041,40,14,20)
- +54 ;;=F^^0:0
- +55 ;;^DIST(.404,.404041,40,14,21,0)
- +56 ;;=^^1^1^2940928
- +57 ;;^DIST(.404,.404041,40,14,21,1,0)
- +58 ;;=Press <RET> to edit additional properties of this form-only field
- +59 ;;^DIST(.404,.404041,40,15,0)
- +60 ;;=7^CAPTION^2
- +61 ;;^DIST(.404,.404041,40,15,2)
- +62 ;;=7,26^50^7,17
- +63 ;;^DIST(.404,.404041,40,15,3)
- +64 ;;=!M
- +65 ;;^DIST(.404,.404041,40,15,3.1)
- +66 ;;=S Y=$G(DDGFCAP0)
- +67 ;;^DIST(.404,.404041,40,15,13)
- +68 ;;=D FOCAP^DDGFU
- +69 ;;^DIST(.404,.404041,40,15,20)
- +70 ;;=DD^^.4044,1
- +71 ;;^DIST(.404,.404041,40,15,23)
- +72 ;;=S DDGFCAP=X
- +73 ;;^DIST(.404,.404041,40,16,0)
- +74 ;;=5^SUPPRESS COLON AFTER CAPTION?^2
- +75 ;;^DIST(.404,.404041,40,16,2)
- +76 ;;=4,73^3^4,43^1
- +77 ;;^DIST(.404,.404041,40,16,3)
- +78 ;;=!M
- +79 ;;^DIST(.404,.404041,40,16,3.1)
- +80 ;;=S Y=$G(DDGFSUP0)
- +81 ;;^DIST(.404,.404041,40,16,20)
- +82 ;;=DD^^.4044,5.2
- +83 ;;^DIST(.404,.404041,40,16,23)
- +84 ;;=S DDGFSUP=X
- +85 ;;^DIST(.404,.404041,40,17,0)
- +86 ;;=6^UNIQUE NAME^3
- +87 ;;^DIST(.404,.404041,40,17,1)
- +88 ;;=3.1
- +89 ;;^DIST(.404,.404041,40,17,2)
- +90 ;;=5,26^50^5,13
- +91 ;;^DIST(.404,.404042,0)
- +92 ;;=DDGF FIELD FORM ONLY PARAMS^.4044
- +93 ;;^DIST(.404,.404042,40,0)
- +94 ;;=^.4044I^9^8
- +95 ;;^DIST(.404,.404042,40,1,0)
- +96 ;;=1^ Other Form Only Field Parameters ^1
- +97 ;;^DIST(.404,.404042,40,1,2)
- +98 ;;=^^1,22
- +99 ;;^DIST(.404,.404042,40,2,0)
- +100 ;;=2^READ TYPE^3
- +101 ;;^DIST(.404,.404042,40,2,1)
- +102 ;;=20.1
- +103 ;;^DIST(.404,.404042,40,2,2)
- +104 ;;=3,20^15^3,9
- +105 ;;^DIST(.404,.404042,40,2,4)
- +106 ;;=1
- +107 ;;^DIST(.404,.404042,40,3,0)
- +108 ;;=3^PARAMETERS^3
- +109 ;;^DIST(.404,.404042,40,3,1)
- +110 ;;=20.2
- +111 ;;^DIST(.404,.404042,40,3,2)
- +112 ;;=4,20^2^4,8
- +113 ;;^DIST(.404,.404042,40,4,0)
- +114 ;;=4^QUALIFIERS^3
- +115 ;;^DIST(.404,.404042,40,4,1)
- +116 ;;=20.3
- +117 ;;^DIST(.404,.404042,40,4,2)
- +118 ;;=5,20^52^5,8
- +119 ;;^DIST(.404,.404042,40,5,0)
- +120 ;;=6^INPUT TRANSFORM^3
- +121 ;;^DIST(.404,.404042,40,5,1)
- +122 ;;=22
- +123 ;;^DIST(.404,.404042,40,5,2)
- +124 ;;=9,20^52^9,3
- +125 ;;^DIST(.404,.404042,40,6,0)
- +126 ;;=5^HELP (WP)^3
- +127 ;;^DIST(.404,.404042,40,6,1)
- +128 ;;=21
- +129 ;;^DIST(.404,.404042,40,6,2)
- +130 ;;=7,20^1^7,9
- +131 ;;^DIST(.404,.404042,40,8,0)
- +132 ;;=7^SCREEN^3
- +133 ;;^DIST(.404,.404042,40,8,1)
- +134 ;;=24
- +135 ;;^DIST(.404,.404042,40,8,2)
- +136 ;;=10,20^52^10,12
- +137 ;;^DIST(.404,.404042,40,9,0)
- +138 ;;=8^SAVE CODE^3
- +139 ;;^DIST(.404,.404042,40,9,1)
- +140 ;;=23
- +141 ;;^DIST(.404,.404042,40,9,2)
- +142 ;;=11,20^52^11,9
- +143 ;;^DIST(.404,.404051,0)
- +144 ;;=DDGF FIELD COMPUTED^.4044
- +145 ;;^DIST(.404,.404051,40,0)
- +146 ;;=^.4044I^8^8
- +147 ;;^DIST(.404,.404051,40,1,0)
- +148 ;;=1^ Computed Field Properties ^1
- +149 ;;^DIST(.404,.404051,40,1,2)
- +150 ;;=^^1,26
- +151 ;;^DIST(.404,.404051,40,2,0)
- +152 ;;=2^FIELD ORDER^3
- +153 ;;^DIST(.404,.404051,40,2,1)
- +154 ;;=.01
- +155 ;;^DIST(.404,.404051,40,2,2)
- +156 ;;=3,24^4^3,11
- +157 ;;^DIST(.404,.404051,40,3,0)
- +158 ;;=3^OTHER PARAMETERS...^2
- +159 ;;^DIST(.404,.404051,40,3,2)
- +160 ;;=4,24^1^4,4^1
- +161 ;;^DIST(.404,.404051,40,3,7)
- +162 ;;=^11
- +163 ;;^DIST(.404,.404051,40,3,20)
- +164 ;;=F^^1:1
- +165 ;;^DIST(.404,.404051,40,3,21,0)
- +166 ;;=^^1^1^2930916
- +167 ;;^DIST(.404,.404051,40,3,21,1,0)
- +168 ;;=Press 'RETURN' to edit additional properties of this Data Dictionary field
- +169 ;;^DIST(.404,.404051,40,4,0)
- +170 ;;=4^SUPPRESS COLON AFTER CAPTION?^2
- +171 ;;^DIST(.404,.404051,40,4,2)
- +172 ;;=4,71^3^4,41^1
- +173 ;;^DIST(.404,.404051,40,4,3)
- +174 ;;=!M
- +175 ;;^DIST(.404,.404051,40,4,3.1)
- +176 ;;=S Y=DDGFSUP0
- +177 ;;^DIST(.404,.404051,40,4,20)
- +178 ;;=DD^^.4044,5.2
- +179 ;;^DIST(.404,.404051,40,4,23)
- +180 ;;=S DDGFSUP=X
- +181 ;;^DIST(.404,.404051,40,5,0)
- +182 ;;=5^UNIQUE NAME^3
- +183 ;;^DIST(.404,.404051,40,5,1)
- +184 ;;=3.1
- +185 ;;^DIST(.404,.404051,40,5,2)
- +186 ;;=5,24^50^5,11
- +187 ;;^DIST(.404,.404051,40,6,0)
- +188 ;;=6^CAPTION^2
- +189 ;;^DIST(.404,.404051,40,6,2)
- +190 ;;=7,24^50^7,15
- +191 ;;^DIST(.404,.404051,40,6,3)
- +192 ;;=!M
- +193 ;;^DIST(.404,.404051,40,6,3.1)
- +194 ;;=S Y=DDGFCAP0
- +195 ;;^DIST(.404,.404051,40,6,13)
- +196 ;;=D COMPCAP^DDGFU
- +197 ;;^DIST(.404,.404051,40,6,20)
- +198 ;;=DD^^.4044,1
- +199 ;;^DIST(.404,.404051,40,6,23)
- +200 ;;=S DDGFCAP=X
- +201 ;;^DIST(.404,.404051,40,7,0)
- +202 ;;=7^EXECUTABLE CAPTION^3
- +203 ;;^DIST(.404,.404051,40,7,1)
- +204 ;;=1.1
- +205 ;;^DIST(.404,.404051,40,7,2)
- +206 ;;=8,24^50^8,4
- +207 ;;^DIST(.404,.404051,40,7,13)
- +208 ;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"))
- +209 ;;^DIST(.404,.404051,40,8,0)
- +210 ;;=8^COMPUTED EXPRESSION^3
- +211 ;;^DIST(.404,.404051,40,8,1)
- +212 ;;=30
- +213 ;;^DIST(.404,.404051,40,8,2)
- +214 ;;=10,24^50^10,3
- +215 ;;^DIST(.404,.404051,40,8,4)
- +216 ;;=1
- +217 ;;^DIST(.404,.404052,0)
- +218 ;;=DDGF FIELD COMPUTED OTHER^.4044
- +219 ;;^DIST(.404,.404052,40,0)
- +220 ;;=^.4044I^8^5
- +221 ;;^DIST(.404,.404052,40,1,0)
- +222 ;;=1^ Other Computed Field Properties ^1
- +223 ;;^DIST(.404,.404052,40,1,2)
- +224 ;;=^^1,6
- +225 ;;^DIST(.404,.404052,40,5,0)
- +226 ;;=3^DATA LENGTH^2
- +227 ;;^DIST(.404,.404052,40,5,2)
- +228 ;;=5,25^3^5,12
- +229 ;;^DIST(.404,.404052,40,5,3)
- +230 ;;=!M
- +231 ;;^DIST(.404,.404052,40,5,3.1)
- +232 ;;=S Y=$G(DDGFDL0)
- +233 ;;^DIST(.404,.404052,40,5,20)
- +234 ;;=DD^^.4044,4.2
- +235 ;;^DIST(.404,.404052,40,5,23)
- +236 ;;=S DDGFDL=X
- +237 ;;^DIST(.404,.404052,40,6,0)
- +238 ;;=4^CAPTION COORDINATE^2
- +239 ;;^DIST(.404,.404052,40,6,2)
- +240 ;;=6,25^7^6,5
- +241 ;;^DIST(.404,.404052,40,6,3)
- +242 ;;=!M
- +243 ;;^DIST(.404,.404052,40,6,3.1)
- +244 ;;=S Y=$G(DDGFCC0)
- +245 ;;^DIST(.404,.404052,40,6,20)
- +246 ;;=DD^^.4044,5.1
- +247 ;;^DIST(.404,.404052,40,6,23)
- +248 ;;=S DDGFCC=X
- +249 ;;^DIST(.404,.404052,40,7,0)
- +250 ;;=5^DATA COORDINATE^2
- +251 ;;^DIST(.404,.404052,40,7,2)
- +252 ;;=7,25^7^7,8
- +253 ;;^DIST(.404,.404052,40,7,3)
- +254 ;;=!M
- +255 ;;^DIST(.404,.404052,40,7,3.1)
- +256 ;;=S Y=$G(DDGFDC0)
- +257 ;;^DIST(.404,.404052,40,7,20)
- +258 ;;=DD^^.4044,4.1
- +259 ;;^DIST(.404,.404052,40,7,23)
- +260 ;;=S DDGFDC=X
- +261 ;;^DIST(.404,.404052,40,8,0)
- +262 ;;=2^RIGHT JUSTIFY^3