167 lines
4.7 KiB
Mathematica
167 lines
4.7 KiB
Mathematica
XPDIN00S ; ; 03-JUL-1995
|
|
;;8.0;KERNEL;;JUL 10, 1995
|
|
F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
|
|
Q Q
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,2,1)
|
|
;;=222.8
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,2,2)
|
|
;;=3,21^15^3,8
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,2,3)
|
|
;;=OVERWRITE
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,3,0)
|
|
;;=5^Data List^3
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,3,1)
|
|
;;=222.6
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,3,2)
|
|
;;=7,21^30^7,10
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,4,0)
|
|
;;=3^Resolve Pointers^3
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,4,1)
|
|
;;=222.5
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,4,2)
|
|
;;=5,21^3^5,3
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,4,3)
|
|
;;=NO
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,5,0)
|
|
;;=4^May User Override Data Update^3
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,5,1)
|
|
;;=222.9
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,5,2)
|
|
;;=5,68^3^5,37
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,5,3)
|
|
;;=NO
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,7,0)
|
|
;;=6^Screen to Select Data^3
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,7,1)
|
|
;;=224
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,7,2)
|
|
;;=10,3^72^9,3^1
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,"B",1,1)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,"B",2,2)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,"B",3,4)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,"B",4,5)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,"B",5,3)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,"B",6,7)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,"C"," DATA EXPORT OPTIONS ",1)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,"C","DATA LIST",3)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,"C","MAY USER OVERRIDE DATA UPDATE",5)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,"C","RESOLVE POINTERS",4)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,"C","SCREEN TO SELECT DATA",7)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",64,40,"C","SITE'S DATA",2)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",65,0)
|
|
;;=XPD EDIT BUILD11^9.6
|
|
;;^UTILITY(U,$J,"DIST(.404,",65,40,0)
|
|
;;=^.4044I^4^4
|
|
;;^UTILITY(U,$J,"DIST(.404,",65,40,1,0)
|
|
;;=1^4^1^
|
|
;;^UTILITY(U,$J,"DIST(.404,",65,40,1,2)
|
|
;;=^^1,71^
|
|
;;^UTILITY(U,$J,"DIST(.404,",65,40,2,0)
|
|
;;=3^Package File Link...^3
|
|
;;^UTILITY(U,$J,"DIST(.404,",65,40,2,1)
|
|
;;=1
|
|
;;^UTILITY(U,$J,"DIST(.404,",65,40,2,2)
|
|
;;=15,27^30^15,5
|
|
;;^UTILITY(U,$J,"DIST(.404,",65,40,2,10)
|
|
;;=S:X]"" DDSSTACK=8
|
|
;;^UTILITY(U,$J,"DIST(.404,",65,40,3,0)
|
|
;;=4^Track Package Nationally^3
|
|
;;^UTILITY(U,$J,"DIST(.404,",65,40,3,1)
|
|
;;=5
|
|
;;^UTILITY(U,$J,"DIST(.404,",65,40,3,2)
|
|
;;=17,27^3^17,1
|
|
;;^UTILITY(U,$J,"DIST(.404,",65,40,3,3)
|
|
;;=NO
|
|
;;^UTILITY(U,$J,"DIST(.404,",65,40,3,10)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",65,40,3,11)
|
|
;;=S:$$GET^DDSVAL(DIE,.DA,1)="" DDSBR="^^COM"
|
|
;;^UTILITY(U,$J,"DIST(.404,",65,40,4,0)
|
|
;;=2^Install Questions^1^
|
|
;;^UTILITY(U,$J,"DIST(.404,",65,40,4,2)
|
|
;;=^^4,28^1
|
|
;;^UTILITY(U,$J,"DIST(.404,",65,40,"B",1,1)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",65,40,"B",2,4)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",65,40,"B",3,2)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",65,40,"B",4,3)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",65,40,"C",4,1)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",65,40,"C","INSTALL QUESTIONS",4)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",65,40,"C","PACKAGE FILE LINK...",2)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",65,40,"C","TRACK PACKAGE NATIONALLY",3)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",66,0)
|
|
;;=XPD EDIT BUILD12^9.62
|
|
;;^UTILITY(U,$J,"DIST(.404,",66,40,0)
|
|
;;=^.4044I^1^1
|
|
;;^UTILITY(U,$J,"DIST(.404,",66,40,1,0)
|
|
;;=1^^3
|
|
;;^UTILITY(U,$J,"DIST(.404,",66,40,1,1)
|
|
;;=.01
|
|
;;^UTILITY(U,$J,"DIST(.404,",66,40,1,2)
|
|
;;=2,3^30
|
|
;;^UTILITY(U,$J,"DIST(.404,",66,40,1,10)
|
|
;;=S DDSSTACK=15
|
|
;;^UTILITY(U,$J,"DIST(.404,",66,40,"B",1,1)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",67,0)
|
|
;;=XPD EDIT BUILD60^9.6
|
|
;;^UTILITY(U,$J,"DIST(.404,",67,40,0)
|
|
;;=^.4044I^3^3
|
|
;;^UTILITY(U,$J,"DIST(.404,",67,40,1,0)
|
|
;;=1^ Edit PACKAGE File ^1^
|
|
;;^UTILITY(U,$J,"DIST(.404,",67,40,1,2)
|
|
;;=^^1,26^1
|
|
;;^UTILITY(U,$J,"DIST(.404,",67,40,2,0)
|
|
;;=2^Name^3
|
|
;;^UTILITY(U,$J,"DIST(.404,",67,40,2,1)
|
|
;;=.01
|
|
;;^UTILITY(U,$J,"DIST(.404,",67,40,2,2)
|
|
;;=2,8^30^2,2
|
|
;;^UTILITY(U,$J,"DIST(.404,",67,40,3,0)
|
|
;;=3^!M^1^
|
|
;;^UTILITY(U,$J,"DIST(.404,",67,40,3,.1)
|
|
;;=S $P(Y,"-",76)=""
|
|
;;^UTILITY(U,$J,"DIST(.404,",67,40,3,2)
|
|
;;=^^3,1^
|
|
;;^UTILITY(U,$J,"DIST(.404,",67,40,"B",1,1)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",67,40,"B",2,2)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",67,40,"B",3,3)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",67,40,"C"," EDIT PACKAGE FILE ",1)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",67,40,"C","NAME",2)
|
|
;;=
|
|
;;^UTILITY(U,$J,"DIST(.404,",84,0)
|
|
;;=XPD EDIT BUILD9A^9.66
|
|
;;^UTILITY(U,$J,"DIST(.404,",84,40,0)
|
|
;;=^.4044I^1^1
|
|
;;^UTILITY(U,$J,"DIST(.404,",84,40,1,0)
|
|
;;=1^^3
|
|
;;^UTILITY(U,$J,"DIST(.404,",84,40,1,1)
|
|
;;=.01
|
|
;;^UTILITY(U,$J,"DIST(.404,",84,40,1,2)
|
|
;;=2,2^4
|
|
;;^UTILITY(U,$J,"DIST(.404,",84,40,1,10)
|
|
;;=S DDSSTACK=10
|