283 lines
6.6 KiB
Mathematica
283 lines
6.6 KiB
Mathematica
DINIT0F7 ;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="" ^DINIT0F8 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
|
|
Q
|
|
ENTRY ;
|
|
;;^DIST(.404,.00109,40,1,4)
|
|
;;=1
|
|
;;^DIST(.404,.00109,40,1,20)
|
|
;;=F^^1:20
|
|
;;^DIST(.404,.00109,40,1,22)
|
|
;;=D C^DICATTD3
|
|
;;^DIST(.404,.00109,40,2,0)
|
|
;;=36^WILL STAND FOR^2^^MEANS1
|
|
;;^DIST(.404,.00109,40,2,2)
|
|
;;=2,30^30^2,14
|
|
;;^DIST(.404,.00109,40,2,3)
|
|
;;=!M
|
|
;;^DIST(.404,.00109,40,2,3.1)
|
|
;;=D Y^DICATTD3(1,2)
|
|
;;^DIST(.404,.00109,40,2,4)
|
|
;;=1
|
|
;;^DIST(.404,.00109,40,2,20)
|
|
;;=F^^1:70
|
|
;;^DIST(.404,.00109,40,2,22)
|
|
;;=D C^DICATTD3
|
|
;;^DIST(.404,.00109,40,3,0)
|
|
;;=37^CODE^2^^CODE2
|
|
;;^DIST(.404,.00109,40,3,2)
|
|
;;=3,8^4^3,2
|
|
;;^DIST(.404,.00109,40,3,3)
|
|
;;=!M
|
|
;;^DIST(.404,.00109,40,3,3.1)
|
|
;;=D Y^DICATTD3(2,1)
|
|
;;^DIST(.404,.00109,40,3,20)
|
|
;;=F^^1:20
|
|
;;^DIST(.404,.00109,40,3,22)
|
|
;;=D C^DICATTD3
|
|
;;^DIST(.404,.00109,40,4,0)
|
|
;;=38^WILL STAND FOR^2^^MEANS2
|
|
;;^DIST(.404,.00109,40,4,2)
|
|
;;=3,30^30^3,14
|
|
;;^DIST(.404,.00109,40,4,3)
|
|
;;=!M
|
|
;;^DIST(.404,.00109,40,4,3.1)
|
|
;;=D Y^DICATTD3(2,2)
|
|
;;^DIST(.404,.00109,40,4,20)
|
|
;;=F^^1:70
|
|
;;^DIST(.404,.00109,40,4,22)
|
|
;;=D C^DICATTD3
|
|
;;^DIST(.404,.00109,40,5,0)
|
|
;;=39^CODE^2^^CODE3
|
|
;;^DIST(.404,.00109,40,5,2)
|
|
;;=4,8^4^4,2
|
|
;;^DIST(.404,.00109,40,5,3)
|
|
;;=!M
|
|
;;^DIST(.404,.00109,40,5,3.1)
|
|
;;=D Y^DICATTD3(3,1)
|
|
;;^DIST(.404,.00109,40,5,20)
|
|
;;=F^^1:20
|
|
;;^DIST(.404,.00109,40,5,22)
|
|
;;=D C^DICATTD3
|
|
;;^DIST(.404,.00109,40,6,0)
|
|
;;=40^WILL STAND FOR^2^^MEANS3
|
|
;;^DIST(.404,.00109,40,6,2)
|
|
;;=4,30^30^4,14
|
|
;;^DIST(.404,.00109,40,6,3)
|
|
;;=!M
|
|
;;^DIST(.404,.00109,40,6,3.1)
|
|
;;=D Y^DICATTD3(3,2)
|
|
;;^DIST(.404,.00109,40,6,20)
|
|
;;=F^^1:70
|
|
;;^DIST(.404,.00109,40,6,22)
|
|
;;=D C^DICATTD3
|
|
;;^DIST(.404,.00109,40,7,0)
|
|
;;=41^CODE^2^^CODE4
|
|
;;^DIST(.404,.00109,40,7,2)
|
|
;;=5,8^4^5,2
|
|
;;^DIST(.404,.00109,40,7,3)
|
|
;;=!M
|
|
;;^DIST(.404,.00109,40,7,3.1)
|
|
;;=D Y^DICATTD3(4,1)
|
|
;;^DIST(.404,.00109,40,7,20)
|
|
;;=F^^1:20
|
|
;;^DIST(.404,.00109,40,7,22)
|
|
;;=D C^DICATTD3
|
|
;;^DIST(.404,.00109,40,8,0)
|
|
;;=42^WILL STAND FOR^2^^MEANS4
|
|
;;^DIST(.404,.00109,40,8,2)
|
|
;;=5,30^30^5,14
|
|
;;^DIST(.404,.00109,40,8,3)
|
|
;;=!M
|
|
;;^DIST(.404,.00109,40,8,3.1)
|
|
;;=D Y^DICATTD3(4,2)
|
|
;;^DIST(.404,.00109,40,8,20)
|
|
;;=F^^1:70
|
|
;;^DIST(.404,.00109,40,8,22)
|
|
;;=D C^DICATTD3
|
|
;;^DIST(.404,.00109,40,9,0)
|
|
;;=43^CODE^2^^CODE5
|
|
;;^DIST(.404,.00109,40,9,2)
|
|
;;=6,8^4^6,2
|
|
;;^DIST(.404,.00109,40,9,3)
|
|
;;=!M
|
|
;;^DIST(.404,.00109,40,9,3.1)
|
|
;;=D Y^DICATTD3(5,1)
|
|
;;^DIST(.404,.00109,40,9,20)
|
|
;;=F^^1:20
|
|
;;^DIST(.404,.00109,40,9,22)
|
|
;;=D C^DICATTD3
|
|
;;^DIST(.404,.00109,40,10,0)
|
|
;;=44^WILL STAND FOR^2^^MEANS5
|
|
;;^DIST(.404,.00109,40,10,2)
|
|
;;=6,30^30^6,14
|
|
;;^DIST(.404,.00109,40,10,3)
|
|
;;=!M
|
|
;;^DIST(.404,.00109,40,10,3.1)
|
|
;;=D Y^DICATTD3(5,2)
|
|
;;^DIST(.404,.00109,40,10,20)
|
|
;;=F^^1:70
|
|
;;^DIST(.404,.00109,40,10,22)
|
|
;;=D C^DICATTD3
|
|
;;^DIST(.404,.00109,40,11,0)
|
|
;;=45^CODE^2^^CODE6
|
|
;;^DIST(.404,.00109,40,11,2)
|
|
;;=7,8^4^7,2
|
|
;;^DIST(.404,.00109,40,11,3)
|
|
;;=!M
|
|
;;^DIST(.404,.00109,40,11,3.1)
|
|
;;=D Y^DICATTD3(6,1)
|
|
;;^DIST(.404,.00109,40,11,20)
|
|
;;=F^^1:20
|
|
;;^DIST(.404,.00109,40,11,22)
|
|
;;=D C^DICATTD3
|
|
;;^DIST(.404,.00109,40,12,0)
|
|
;;=46^WILL STAND FOR^2^^MEANS6
|
|
;;^DIST(.404,.00109,40,12,2)
|
|
;;=7,30^30^7,14
|
|
;;^DIST(.404,.00109,40,12,3)
|
|
;;=!M
|
|
;;^DIST(.404,.00109,40,12,3.1)
|
|
;;=D Y^DICATTD3(6,2)
|
|
;;^DIST(.404,.00109,40,12,20)
|
|
;;=F^^1:70
|
|
;;^DIST(.404,.00109,40,12,22)
|
|
;;=D C^DICATTD3
|
|
;;^DIST(.404,.00109,40,13,0)
|
|
;;=47^CODE^2^^CODE7
|
|
;;^DIST(.404,.00109,40,13,2)
|
|
;;=8,8^4^8,2
|
|
;;^DIST(.404,.00109,40,13,3)
|
|
;;=!M
|
|
;;^DIST(.404,.00109,40,13,3.1)
|
|
;;=D Y^DICATTD3(7,1)
|
|
;;^DIST(.404,.00109,40,13,20)
|
|
;;=F^^1:20
|
|
;;^DIST(.404,.00109,40,13,22)
|
|
;;=D C^DICATTD3
|
|
;;^DIST(.404,.00109,40,14,0)
|
|
;;=48^WILL STAND FOR^2^^MEANS7
|
|
;;^DIST(.404,.00109,40,14,2)
|
|
;;=8,30^30^8,14
|
|
;;^DIST(.404,.00109,40,14,3)
|
|
;;=!M
|
|
;;^DIST(.404,.00109,40,14,3.1)
|
|
;;=D Y^DICATTD3(7,2)
|
|
;;^DIST(.404,.00109,40,14,20)
|
|
;;=F^^1:70
|
|
;;^DIST(.404,.00109,40,14,22)
|
|
;;=D C^DICATTD3
|
|
;;^DIST(.404,.00109,40,15,0)
|
|
;;=49^CODE^2^^CODE8
|
|
;;^DIST(.404,.00109,40,15,2)
|
|
;;=9,8^4^9,2
|
|
;;^DIST(.404,.00109,40,15,3)
|
|
;;=!M
|
|
;;^DIST(.404,.00109,40,15,3.1)
|
|
;;=D Y^DICATTD3(8,1)
|
|
;;^DIST(.404,.00109,40,15,20)
|
|
;;=F^^1:20
|
|
;;^DIST(.404,.00109,40,15,22)
|
|
;;=D C^DICATTD3
|
|
;;^DIST(.404,.00109,40,16,0)
|
|
;;=50^WILL STAND FOR^2^^MEANS8
|
|
;;^DIST(.404,.00109,40,16,2)
|
|
;;=9,30^30^9,14
|
|
;;^DIST(.404,.00109,40,16,3)
|
|
;;=!M
|
|
;;^DIST(.404,.00109,40,16,3.1)
|
|
;;=D Y^DICATTD3(8,2)
|
|
;;^DIST(.404,.00109,40,16,20)
|
|
;;=F^^1:70
|
|
;;^DIST(.404,.00109,40,16,22)
|
|
;;=D C^DICATTD3
|
|
;;^DIST(.404,.00109,40,17,0)
|
|
;;=51^CODE^2^^CODE9
|
|
;;^DIST(.404,.00109,40,17,2)
|
|
;;=10,8^4^10,2
|
|
;;^DIST(.404,.00109,40,17,3)
|
|
;;=!M
|
|
;;^DIST(.404,.00109,40,17,3.1)
|
|
;;=D Y^DICATTD3(9,1)
|
|
;;^DIST(.404,.00109,40,17,20)
|
|
;;=F^^1:20
|
|
;;^DIST(.404,.00109,40,17,22)
|
|
;;=D C^DICATTD3
|
|
;;^DIST(.404,.00109,40,18,0)
|
|
;;=52^WILL STAND FOR^2^^MEANS9
|
|
;;^DIST(.404,.00109,40,18,2)
|
|
;;=10,30^30^10,14
|
|
;;^DIST(.404,.00109,40,18,3)
|
|
;;=!M
|
|
;;^DIST(.404,.00109,40,18,3.1)
|
|
;;=D Y^DICATTD3(9,2)
|
|
;;^DIST(.404,.00109,40,18,20)
|
|
;;=F^^1:70
|
|
;;^DIST(.404,.00109,40,18,22)
|
|
;;=D C^DICATTD3
|
|
;;^DIST(.404,.00109,40,19,0)
|
|
;;=53^CODE^2^^CODE10
|
|
;;^DIST(.404,.00109,40,19,2)
|
|
;;=11,8^4^11,2
|
|
;;^DIST(.404,.00109,40,19,3)
|
|
;;=!M
|
|
;;^DIST(.404,.00109,40,19,3.1)
|
|
;;=D Y^DICATTD3(10,1)
|
|
;;^DIST(.404,.00109,40,19,20)
|
|
;;=F^^1:20
|
|
;;^DIST(.404,.00109,40,19,22)
|
|
;;=D C^DICATTD3
|
|
;;^DIST(.404,.00109,40,20,0)
|
|
;;=54^WILL STAND FOR^2^^MEANS10
|
|
;;^DIST(.404,.00109,40,20,2)
|
|
;;=11,30^30^11,14
|
|
;;^DIST(.404,.00109,40,20,3)
|
|
;;=!M
|
|
;;^DIST(.404,.00109,40,20,3.1)
|
|
;;=D Y^DICATTD3(10,2)
|
|
;;^DIST(.404,.00109,40,20,20)
|
|
;;=F^^1:70
|
|
;;^DIST(.404,.00109,40,20,22)
|
|
;;=D C^DICATTD3
|
|
;;^DIST(.404,.00109,40,21,0)
|
|
;;=55^CODE^2^^CODE11
|
|
;;^DIST(.404,.00109,40,21,2)
|
|
;;=12,8^4^12,2
|
|
;;^DIST(.404,.00109,40,21,3)
|
|
;;=!M
|
|
;;^DIST(.404,.00109,40,21,3.1)
|
|
;;=D Y^DICATTD3(11,1)
|
|
;;^DIST(.404,.00109,40,21,20)
|
|
;;=F^^1:20
|
|
;;^DIST(.404,.00109,40,21,22)
|
|
;;=D C^DICATTD3
|
|
;;^DIST(.404,.00109,40,22,0)
|
|
;;=56^WILL STAND FOR^2^^MEANS11
|
|
;;^DIST(.404,.00109,40,22,2)
|
|
;;=12,30^30^12,14
|
|
;;^DIST(.404,.00109,40,22,3)
|
|
;;=!M
|
|
;;^DIST(.404,.00109,40,22,3.1)
|
|
;;=D Y^DICATTD3(11,2)
|
|
;;^DIST(.404,.00109,40,22,20)
|
|
;;=F^^1:70
|
|
;;^DIST(.404,.00109,40,22,22)
|
|
;;=D C^DICATTD3
|
|
;;^DIST(.404,.00109,40,23,0)
|
|
;;=57^CODE^2^^CODE12
|
|
;;^DIST(.404,.00109,40,23,2)
|
|
;;=13,8^4^13,2
|
|
;;^DIST(.404,.00109,40,23,3)
|
|
;;=!M
|
|
;;^DIST(.404,.00109,40,23,3.1)
|
|
;;=D Y^DICATTD3(12,1)
|
|
;;^DIST(.404,.00109,40,23,20)
|
|
;;=F^^1:20
|
|
;;^DIST(.404,.00109,40,23,22)
|
|
;;=D C^DICATTD3
|
|
;;^DIST(.404,.00109,40,24,0)
|
|
;;=58^WILL STAND FOR^2^^MEANS12
|
|
;;^DIST(.404,.00109,40,24,2)
|
|
;;=13,30^30^13,14
|