269 lines
6.6 KiB
Mathematica
269 lines
6.6 KiB
Mathematica
DINIT0FJ ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:49 AM 30 Mar 1999
|
|
;;22.0;VA FileMan;;Mar 30, 1999
|
|
;Per VHA Directive 10-93-142, this routine should not be modified.
|
|
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
|