249 lines
6.6 KiB
Mathematica
249 lines
6.6 KiB
Mathematica
DINIT0F1 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;2:11 PM 11 Jan 2000
|
|
;;22.0;VA FileMan;**20**;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="" ^DINIT0F2 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
|
|
Q
|
|
ENTRY ;
|
|
;;^DIST(.403,.001,40,18,0)
|
|
;;=8^^10,3^^^1^17,77
|
|
;;^DIST(.403,.001,40,18,1)
|
|
;;=Page 8
|
|
;;^DIST(.403,.001,40,18,11)
|
|
;;=D PRE8^DICATTD8
|
|
;;^DIST(.403,.001,40,18,12)
|
|
;;=D POST8^DICATTD8
|
|
;;^DIST(.403,.001,40,18,40,0)
|
|
;;=^.4032IP^.00115^1
|
|
;;^DIST(.403,.001,40,18,40,.00115,0)
|
|
;;=.00115^1^2,3^e
|
|
;;^DIST(.403,.001,40,19,0)
|
|
;;=10^^1,1
|
|
;;^DIST(.403,.001,40,19,1)
|
|
;;=Page 10
|
|
;;^DIST(.403,.001,40,19,40,0)
|
|
;;=^.4032IP^.00116^1
|
|
;;^DIST(.403,.001,40,19,40,.00116,0)
|
|
;;=.00116^1^1,1^e
|
|
;;^DIST(.403,.001,40,20,0)
|
|
;;=5^^14,1^^^1^17,78
|
|
;;^DIST(.403,.001,40,20,1)
|
|
;;=Page 5
|
|
;;^DIST(.403,.001,40,20,12)
|
|
;;=I DICATT4="",DUZ(0)="@" S DDSSTACK=4
|
|
;;^DIST(.403,.001,40,20,40,0)
|
|
;;=^.4032IP^.00117^1
|
|
;;^DIST(.403,.001,40,20,40,.00117,0)
|
|
;;=.00117^1^1,1^e
|
|
;;^DIST(.403,.001,40,21,0)
|
|
;;=6^^7,3^^^1^13,77
|
|
;;^DIST(.403,.001,40,21,1)
|
|
;;=Page 6
|
|
;;^DIST(.403,.001,40,21,40,0)
|
|
;;=^.4032IP^.00118^1
|
|
;;^DIST(.403,.001,40,21,40,.00118,0)
|
|
;;=.00118^1^1,1^e
|
|
;;^DIST(.403,.1001,0)
|
|
;;=DIPTED^@^^^2980611.1708^2990303.0831^^.4^0^0^1
|
|
;;^DIST(.403,.1001,14)
|
|
;;=D SAVEFLDS^DIPTED(DA)
|
|
;;^DIST(.403,.1001,40,0)
|
|
;;=^.4031I^2^2
|
|
;;^DIST(.403,.1001,40,1,0)
|
|
;;=1^^1,1^2
|
|
;;^DIST(.403,.1001,40,1,1)
|
|
;;=Page 1
|
|
;;^DIST(.403,.1001,40,1,40,0)
|
|
;;=^.4032IP^.10011^1
|
|
;;^DIST(.403,.1001,40,1,40,.10011,0)
|
|
;;=.10011^1^1,1^e
|
|
;;^DIST(.403,.1001,40,2,0)
|
|
;;=2^^1,1^^1
|
|
;;^DIST(.403,.1001,40,2,1)
|
|
;;=Page 2
|
|
;;^DIST(.403,.1001,40,2,40,0)
|
|
;;=^.4032IP^.10012^1
|
|
;;^DIST(.403,.1001,40,2,40,.10012,0)
|
|
;;=.10012^1^1,1^e
|
|
;;^DIST(.403,.1101,0)
|
|
;;=DIKC EDIT^^^^2970612.1058^3000110.1335^^.11^0^0^1
|
|
;;^DIST(.403,.1101,14)
|
|
;;=D POSTSV^DIKCFORM
|
|
;;^DIST(.403,.1101,20)
|
|
;;=D FORMDV^DIKCFORM
|
|
;;^DIST(.403,.1101,40,0)
|
|
;;=^.4031I^2^4
|
|
;;^DIST(.403,.1101,40,1,0)
|
|
;;=1^^1,1^2^2
|
|
;;^DIST(.403,.1101,40,1,1)
|
|
;;=Page 1
|
|
;;^DIST(.403,.1101,40,1,40,0)
|
|
;;=^.4032IP^.110101^2
|
|
;;^DIST(.403,.1101,40,1,40,.110101,0)
|
|
;;=.110101^2^4,1^e
|
|
;;^DIST(.403,.1101,40,1,40,.110102,0)
|
|
;;=.110102^1^1,1^d
|
|
;;^DIST(.403,.1101,40,2,0)
|
|
;;=2^^1,1^1^1
|
|
;;^DIST(.403,.1101,40,2,1)
|
|
;;=Page 2
|
|
;;^DIST(.403,.1101,40,2,40,0)
|
|
;;=^.4032IP^.110103^4
|
|
;;^DIST(.403,.1101,40,2,40,.110103,0)
|
|
;;=.110103^4^10,1^e
|
|
;;^DIST(.403,.1101,40,2,40,.110104,0)
|
|
;;=.110104^3^6,2^e
|
|
;;^DIST(.403,.1101,40,2,40,.110104,2)
|
|
;;=5^^f
|
|
;;^DIST(.403,.1101,40,2,40,.110105,0)
|
|
;;=.110105^2^3,1^d
|
|
;;^DIST(.403,.1101,40,2,40,.110106,0)
|
|
;;=.110106^1^1,1^d
|
|
;;^DIST(.403,.1101,40,3,0)
|
|
;;=2.1^^6,1^^^1^17,79
|
|
;;^DIST(.403,.1101,40,3,1)
|
|
;;=Page 2.1
|
|
;;^DIST(.403,.1101,40,3,11)
|
|
;;=S DIKCPG21=1
|
|
;;^DIST(.403,.1101,40,3,12)
|
|
;;=K DIKCPG21
|
|
;;^DIST(.403,.1101,40,3,40,0)
|
|
;;=^.4032IP^.110107^1
|
|
;;^DIST(.403,.1101,40,3,40,.110107,0)
|
|
;;=.110107^1^1,1^e
|
|
;;^DIST(.403,.1101,40,3,40,.110107,11)
|
|
;;=K DIKCCRV D BKPRE21^DIKCFORM
|
|
;;^DIST(.403,.1101,40,3,40,.110107,12)
|
|
;;=I $D(DIKCCRV)#2 D BLDLOG^DIKCFORM(DA(1)) K DIKCCRV
|
|
;;^DIST(.403,.1101,40,4,0)
|
|
;;=2.2^^10,1^^^1^17,79
|
|
;;^DIST(.403,.1101,40,4,1)
|
|
;;=Page 2.2
|
|
;;^DIST(.403,.1101,40,4,40,0)
|
|
;;=^.4032IP^.110108^1
|
|
;;^DIST(.403,.1101,40,4,40,.110108,0)
|
|
;;=.110108^1^1,1^e
|
|
;;^DIST(.403,.1101,40,4,40,.110108,11)
|
|
;;=K DIKCCRV
|
|
;;^DIST(.403,.1101,40,4,40,.110108,12)
|
|
;;=I $D(DIKCCRV)#2 D BLDLOG^DIKCFORM(DA(1)) K DIKCCRV
|
|
;;^DIST(.403,.1102,0)
|
|
;;=DIKC EDIT UI^^^^2970612.1058^2981229.1134^^.11^0^0^1
|
|
;;^DIST(.403,.1102,14)
|
|
;;=D POSTSV^DIKCFORM
|
|
;;^DIST(.403,.1102,40,0)
|
|
;;=^.4031I^2^2
|
|
;;^DIST(.403,.1102,40,1,0)
|
|
;;=1^^1,1
|
|
;;^DIST(.403,.1102,40,1,1)
|
|
;;=Page 1
|
|
;;^DIST(.403,.1102,40,1,40,0)
|
|
;;=^.4032IP^.11021^2
|
|
;;^DIST(.403,.1102,40,1,40,.11021,0)
|
|
;;=.11021^2^3,1^e
|
|
;;^DIST(.403,.1102,40,1,40,.11022,0)
|
|
;;=.11022^1^1,1^d
|
|
;;^DIST(.403,.1102,40,1,40,.11023,0)
|
|
;;=.11023^4^11,3^e
|
|
;;^DIST(.403,.1102,40,1,40,.11023,2)
|
|
;;=4^^f^1
|
|
;;^DIST(.403,.1102,40,1,40,.11024,0)
|
|
;;=.11024^3^9,2^e
|
|
;;^DIST(.403,.1102,40,2,0)
|
|
;;=1.1^^7,1^^^1^15,79
|
|
;;^DIST(.403,.1102,40,2,1)
|
|
;;=Page 1.1^ORDER,4,1
|
|
;;^DIST(.403,.1102,40,2,40,0)
|
|
;;=^.4032IP^.11025^1
|
|
;;^DIST(.403,.1102,40,2,40,.11025,0)
|
|
;;=.11025^1^1,1^e
|
|
;;^DIST(.403,.3101,0)
|
|
;;=DIKK EDIT^^^^2970721.144^2990311.1203^^.31^0^0^1
|
|
;;^DIST(.403,.3101,20)
|
|
;;=D FORMDV^DIKKFORM
|
|
;;^DIST(.403,.3101,40,0)
|
|
;;=^.4031I^3^3
|
|
;;^DIST(.403,.3101,40,1,0)
|
|
;;=1^^1,1^2
|
|
;;^DIST(.403,.3101,40,1,1)
|
|
;;=Page 1
|
|
;;^DIST(.403,.3101,40,1,40,0)
|
|
;;=^.4032IP^.310101^6
|
|
;;^DIST(.403,.3101,40,1,40,.310101,0)
|
|
;;=.310101^1^1,1^d
|
|
;;^DIST(.403,.3101,40,1,40,.310102,0)
|
|
;;=.310102^2^3,1^e
|
|
;;^DIST(.403,.3101,40,1,40,.310103,0)
|
|
;;=.310103^3^5,3^d
|
|
;;^DIST(.403,.3101,40,1,40,.310104,0)
|
|
;;=.310104^4^9,3^e
|
|
;;^DIST(.403,.3101,40,1,40,.310104,2)
|
|
;;=5
|
|
;;^DIST(.403,.3101,40,1,40,.310105,0)
|
|
;;=.310105^5^15,1^d
|
|
;;^DIST(.403,.3101,40,1,40,.310105,1)
|
|
;;=UNIQUENESS INDEX
|
|
;;^DIST(.403,.3101,40,1,40,.310106,0)
|
|
;;=.310106^6^15,1^e
|
|
;;^DIST(.403,.3101,40,2,0)
|
|
;;=1.1^^1,1^^^1^17,79
|
|
;;^DIST(.403,.3101,40,2,1)
|
|
;;=Page 1.1^DETAILS,DIKK EDIT UNIQUENESS INDEX,1
|
|
;;^DIST(.403,.3101,40,2,40,0)
|
|
;;=^.4032IP^.310107^4
|
|
;;^DIST(.403,.3101,40,2,40,.310107,0)
|
|
;;=.310107^1^1,1^d
|
|
;;^DIST(.403,.3101,40,2,40,.310107,1)
|
|
;;=UNIQUENESS INDEX
|
|
;;^DIST(.403,.3101,40,2,40,.310108,0)
|
|
;;=.310108^2^2,3^e
|
|
;;^DIST(.403,.3101,40,2,40,.310108,1)
|
|
;;=UNIQUENESS INDEX
|
|
;;^DIST(.403,.3101,40,2,40,.310109,0)
|
|
;;=.310109^3^8,3^d
|
|
;;^DIST(.403,.3101,40,2,40,.31011,0)
|
|
;;=.31011^4^10,3^e
|
|
;;^DIST(.403,.3101,40,2,40,.31011,1)
|
|
;;=UNIQUENESS INDEX
|
|
;;^DIST(.403,.3101,40,2,40,.31011,2)
|
|
;;=4^^f^1
|
|
;;^DIST(.403,.3101,40,3,0)
|
|
;;=1.2^^8,2^^^1^16,78
|
|
;;^DIST(.403,.3101,40,3,1)
|
|
;;=Page 1.2^ORDER,DIKK EDIT UI FIELD REP,1.1
|
|
;;^DIST(.403,.3101,40,3,40,0)
|
|
;;=^.4032IP^.310111^1
|
|
;;^DIST(.403,.3101,40,3,40,.310111,0)
|
|
;;=.310111^1^1,1^e
|
|
;;^DIST(.403,.3101,40,3,40,.310111,11)
|
|
;;=K DIKKCRV
|
|
;;^DIST(.403,.3101,40,3,40,.310111,12)
|
|
;;=I $D(DIKKCRV) D BLDLOG^DIKCFORM(DA(1)) K DIKKCRV
|
|
;;^DIST(.403,.40001,0)
|
|
;;=DIBTED^@^^^2980904.1357^2990130.0900^^.401^0^0^1
|
|
;;^DIST(.403,.40001,12)
|
|
;;=D SAVEFLDS^DIBTED(DA)
|
|
;;^DIST(.403,.40001,40,0)
|
|
;;=^.4031I^2^2
|
|
;;^DIST(.403,.40001,40,1,0)
|
|
;;=1^^1,1^2
|
|
;;^DIST(.403,.40001,40,1,1)
|
|
;;=Page 1
|
|
;;^DIST(.403,.40001,40,1,40,0)
|
|
;;=^.4032IP^.400011^1
|
|
;;^DIST(.403,.40001,40,1,40,.400011,0)
|
|
;;=.400011^1^1,1^e
|
|
;;^DIST(.403,.40001,40,2,0)
|
|
;;=2^^1,1^^1
|
|
;;^DIST(.403,.40001,40,2,1)
|
|
;;=Page 2
|
|
;;^DIST(.403,.40001,40,2,40,0)
|
|
;;=^.4032IP^.400012^1
|
|
;;^DIST(.403,.40001,40,2,40,.400012,0)
|
|
;;=.400012^1^1,1^e
|
|
;;^DIST(.403,.40101,0)
|
|
;;=DIETED^@^^^2980801.074^2990303.0830^^.402^0^0^1
|
|
;;^DIST(.403,.40101,14)
|
|
;;=D SAVEFLDS^DIETED(DA)
|
|
;;^DIST(.403,.40101,40,0)
|
|
;;=^.4031I^2^2
|