Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XPDIN00K

XPDIN00K.m

Go to the documentation of this file.
  1. XPDIN00K ; ; 03-JUL-1995
  1. ;;8.0;KERNEL;;JUL 10, 1995
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51,2,"D")
  1. ;;=10^32^30^20
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51,2,"N")
  1. ;;=5^1,54^1,54^5^1,54^^^^^^1
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51,5,"D")
  1. ;;=8^32^30^12
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51,5,"N")
  1. ;;=0^2^2^0^2
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51,"PTB")
  1. ;;=9.6,1
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51,"PTB",1)
  1. ;;=S X=$$GET^DDSVAL(9.6,.DA,1),DA=X
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,54)
  1. ;;=11^2^9.6^^e^^^^1
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,54,1,"D")
  1. ;;=12^32^3^20
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,54,1,"N")
  1. ;;=2,51^0^0^2,51^0
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,67)
  1. ;;=4^2^9.6^^d^^^^0
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,67,2,"D")
  1. ;;=5^9^30^.01
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,67,3,"D")
  1. ;;=^^^^6^2^^0
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,"FIRST")
  1. ;;=5,51
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,0,0,"N")
  1. ;;=1,84^1,55^1,55^1,84^1,55
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,55)
  1. ;;=3^3^9.6^^e^^^^1
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,55,1,"D")
  1. ;;=5^32^3^21
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,55,1,"N")
  1. ;;=0^2^2^0^2
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,55,2,"D")
  1. ;;=7^32^44^22
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,55,2,"N")
  1. ;;=1^1,84^1,84^1^1,84
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,84)
  1. ;;=10^3^9.66^^e^^4^^1^1
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,84,1,"D")
  1. ;;=11^4^4^.01
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,84,1,"N")
  1. ;;=2,55^0^0^2,55^0^1,-1^1,+1^1,+1^1,-1^1,+1
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,"FIRST")
  1. ;;=1,55
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",10,0,0,"N")
  1. ;;=1,85^1,85^1,85^1,85^1,85
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",10,56)
  1. ;;=4^5^9.66^^e^^^^0
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",10,85)
  1. ;;=5^4^9.661^^e^^2^^1^1
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",10,85,1,"D")
  1. ;;=5^5^4^.01
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",10,85,1,"N")
  1. ;;=0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",10,"FIRST")
  1. ;;=1,85
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",11,0,0,"N")
  1. ;;=1,60^1,60^1,60^1,60^1,60
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",11,60)
  1. ;;=6^3^9.641^^e^^6^^1^1
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",11,60,1,"D")
  1. ;;=6^3^45^.01
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",11,60,1,"N")
  1. ;;=0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",11,62)
  1. ;;=5^3^9.64^^d^^^^0
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",11,"FIRST")
  1. ;;=1,60
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",12,0,0,"N")
  1. ;;=1,61^1,61^1,61^1,61^1,61
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",12,61)
  1. ;;=7^4^9.6411^^e^^6^^1^1
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",12,61,1,"D")
  1. ;;=7^4^45^.01
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",12,61,1,"N")
  1. ;;=0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",12,63)
  1. ;;=6^3^9.641^^d^^^^0
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",12,"FIRST")
  1. ;;=1,61
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,0,0,"N")
  1. ;;=7,64^2,64^2,64^7,64^2,64
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64)
  1. ;;=5^1^9.64^^e^^^^2
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,2,"D")
  1. ;;=7^21^15^222.8
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,2,"N")
  1. ;;=0^4^4^0^4
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,3,"D")
  1. ;;=11^21^30^222.6
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,3,"N")
  1. ;;=4^7^7^5^7
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,4,"D")
  1. ;;=9^21^3^222.5
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,4,"N")
  1. ;;=2^3^5^2^5
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,5,"D")
  1. ;;=9^68^3^222.9
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,5,"N")
  1. ;;=2^3^3^4^3
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,7,"D")
  1. ;;=14^3^72^224
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,7,"N")
  1. ;;=3^0^0^3^0
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,"FIRST")
  1. ;;=2,64
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,0,0,"N")
  1. ;;=3,65^1,66^1,66^3,65^1,66
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,45)
  1. ;;=0^0^9.6^^d^^^^0
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,45,2,"D")
  1. ;;=1^6^30^.01
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,45,4,"D")
  1. ;;=^^^^2^0^^0
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,65)
  1. ;;=0^0^9.6^^e^^^^2
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,65,2,"D")
  1. ;;=14^26^30^1
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,65,2,"N")
  1. ;;=1,66^3^3^1,66^3
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,65,3,"D")
  1. ;;=16^26^3^5
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,65,3,"N")
  1. ;;=2^0^0^2^0
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,66)
  1. ;;=4^0^9.62^^e^^6^^1^1
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,66,1,"D")
  1. ;;=5^2^30^.01
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,66,1,"N")
  1. ;;=0^2,65^2,65^0^2,65^1,-1^1,+1^1,+1^1,-1^1,+1
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,"FIRST")
  1. ;;=1,66