- AZHNI002 ; ; 05-AUG-1998
- ;;4.1T4;AZHN DALE'S WORK PACKAGE;;AUG 05, 1998
- 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,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
- Q Q
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,11,"D")
- ;;=11^43^9^11,366^^^^^^1
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,11,"N")
- ;;=12^1,382^6^13^12
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,12,"D")
- ;;=10^34^5^12,366
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,12,"N")
- ;;=20^13^15^16^13
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,13,"D")
- ;;=11^28^9^13,366^^^^^^1
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,13,"N")
- ;;=16^1,382^11^8^14
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,14,"D")
- ;;=10^62^4^14,366^^^^^^1
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,14,"N")
- ;;=24^6^10^15^15
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,15,"D")
- ;;=10^47^7^15,366^^^^^^1
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,15,"N")
- ;;=22^11^14^12^16
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,16,"D")
- ;;=10^23^5^16,366^^^^^^1
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,16,"N")
- ;;=19^8^12^7^17
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,17,"D")
- ;;=7^64^15^17,366
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,17,"N")
- ;;=12,365^4^3^2^19
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,19,"D")
- ;;=9^9^18^19,366
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,19,"N")
- ;;=3^7^20^9^20
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,20,"D")
- ;;=9^34^3^20,366
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,20,"N")
- ;;=3^12^22^19^22
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,22,"D")
- ;;=9^46^2^22,366
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,22,"N")
- ;;=4^12^23^20^23
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,23,"D")
- ;;=9^53^4^23,366^^^^^^1
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,23,"N")
- ;;=4^15^24^22^24
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,24,"D")
- ;;=9^62^5^24,366
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,24,"N")
- ;;=4^14^5^23^25
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,25,"D")
- ;;=11^70^8^25,366
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,25,"N")
- ;;=14^1,382^1,382^6^1,382
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382)
- ;;=13^0^9002036.3^^e^^^^1
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,1,"D")
- ;;=13^7^7^.05
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,1,"N")
- ;;=8,366^2^2^25,366^2
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,2,"D")
- ;;=15^8^3^13
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,2,"N")
- ;;=1^3^4^1^3
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,3,"D")
- ;;=16^7^3^14
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,3,"N")
- ;;=2^0^5^4^4
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,4,"D")
- ;;=15^13^30^.13
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,4,"N")
- ;;=1^3^3^2^5
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,5,"D")
- ;;=16^14^40^.14
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,5,"N")
- ;;=4^0^0^3^0
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,"FIRST")
- ;;=3,365
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","ACC",1,1,365,6)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","ACT",1,1,366,24)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","AUI",1,1,365,8)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","BARCD",1,1,365,7)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","CAT",1,1,365,9)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","COST/U",1,1,366,13)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","DT EST",1,1,366,25)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","DUE IN",1,1,366,14)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","DUE OUT",1,1,366,10)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","EOQTP",1,1,366,19)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","EST/CHG",1,1,365,11)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","INDEX",1,1,382,1)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","LPP",1,1,366,11)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","LSTIS",1,1,366,9)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","LTM",1,1,366,6)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","MO",1,1,366,22)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","NATL STK#",1,1,365,4)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","ORD#",1,1,366,4)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","PAMIQ",1,1,366,15)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","QTY",1,1,366,23)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","QTYOH",1,1,366,7)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","RPQ",1,1,366,12)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","SLC",1,1,366,17)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","SPQ",1,1,366,16)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","SRC",1,1,366,2)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","SUBOBJ",1,1,365,10)
- ;;=
- ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","SUBSTA",1,1,382,2)
- ;;=
- AZHNI002 ; ; 05-AUG-1998
- +1 ;;4.1T4;AZHN DALE'S WORK PACKAGE;;AUG 05, 1998
- +2 FOR I=1:2
- SET X=$TEXT(Q+I)
- IF X=""
- QUIT
- SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
- SET X=$EXTRACT(X,4,999)
- IF $ASCII(Y)=126
- SET I=I+1
- SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
- IF $ASCII(Y)=61
- SET Y=$EXTRACT(Y,2,999)
- XECUTE NO
- IF '$TEST
- SET @X=Y
- Q QUIT
- +1 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,11,"D")
- +2 ;;=11^43^9^11,366^^^^^^1
- +3 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,11,"N")
- +4 ;;=12^1,382^6^13^12
- +5 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,12,"D")
- +6 ;;=10^34^5^12,366
- +7 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,12,"N")
- +8 ;;=20^13^15^16^13
- +9 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,13,"D")
- +10 ;;=11^28^9^13,366^^^^^^1
- +11 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,13,"N")
- +12 ;;=16^1,382^11^8^14
- +13 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,14,"D")
- +14 ;;=10^62^4^14,366^^^^^^1
- +15 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,14,"N")
- +16 ;;=24^6^10^15^15
- +17 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,15,"D")
- +18 ;;=10^47^7^15,366^^^^^^1
- +19 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,15,"N")
- +20 ;;=22^11^14^12^16
- +21 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,16,"D")
- +22 ;;=10^23^5^16,366^^^^^^1
- +23 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,16,"N")
- +24 ;;=19^8^12^7^17
- +25 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,17,"D")
- +26 ;;=7^64^15^17,366
- +27 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,17,"N")
- +28 ;;=12,365^4^3^2^19
- +29 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,19,"D")
- +30 ;;=9^9^18^19,366
- +31 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,19,"N")
- +32 ;;=3^7^20^9^20
- +33 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,20,"D")
- +34 ;;=9^34^3^20,366
- +35 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,20,"N")
- +36 ;;=3^12^22^19^22
- +37 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,22,"D")
- +38 ;;=9^46^2^22,366
- +39 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,22,"N")
- +40 ;;=4^12^23^20^23
- +41 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,23,"D")
- +42 ;;=9^53^4^23,366^^^^^^1
- +43 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,23,"N")
- +44 ;;=4^15^24^22^24
- +45 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,24,"D")
- +46 ;;=9^62^5^24,366
- +47 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,24,"N")
- +48 ;;=4^14^5^23^25
- +49 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,25,"D")
- +50 ;;=11^70^8^25,366
- +51 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,25,"N")
- +52 ;;=14^1,382^1,382^6^1,382
- +53 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382)
- +54 ;;=13^0^9002036.3^^e^^^^1
- +55 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,1,"D")
- +56 ;;=13^7^7^.05
- +57 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,1,"N")
- +58 ;;=8,366^2^2^25,366^2
- +59 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,2,"D")
- +60 ;;=15^8^3^13
- +61 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,2,"N")
- +62 ;;=1^3^4^1^3
- +63 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,3,"D")
- +64 ;;=16^7^3^14
- +65 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,3,"N")
- +66 ;;=2^0^5^4^4
- +67 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,4,"D")
- +68 ;;=15^13^30^.13
- +69 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,4,"N")
- +70 ;;=1^3^3^2^5
- +71 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,5,"D")
- +72 ;;=16^14^40^.14
- +73 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,5,"N")
- +74 ;;=4^0^0^3^0
- +75 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,"FIRST")
- +76 ;;=3,365
- +77 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","ACC",1,1,365,6)
- +78 ;;=
- +79 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","ACT",1,1,366,24)
- +80 ;;=
- +81 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","AUI",1,1,365,8)
- +82 ;;=
- +83 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","BARCD",1,1,365,7)
- +84 ;;=
- +85 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","CAT",1,1,365,9)
- +86 ;;=
- +87 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","COST/U",1,1,366,13)
- +88 ;;=
- +89 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","DT EST",1,1,366,25)
- +90 ;;=
- +91 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","DUE IN",1,1,366,14)
- +92 ;;=
- +93 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","DUE OUT",1,1,366,10)
- +94 ;;=
- +95 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","EOQTP",1,1,366,19)
- +96 ;;=
- +97 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","EST/CHG",1,1,365,11)
- +98 ;;=
- +99 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","INDEX",1,1,382,1)
- +100 ;;=
- +101 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","LPP",1,1,366,11)
- +102 ;;=
- +103 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","LSTIS",1,1,366,9)
- +104 ;;=
- +105 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","LTM",1,1,366,6)
- +106 ;;=
- +107 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","MO",1,1,366,22)
- +108 ;;=
- +109 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","NATL STK#",1,1,365,4)
- +110 ;;=
- +111 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","ORD#",1,1,366,4)
- +112 ;;=
- +113 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","PAMIQ",1,1,366,15)
- +114 ;;=
- +115 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","QTY",1,1,366,23)
- +116 ;;=
- +117 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","QTYOH",1,1,366,7)
- +118 ;;=
- +119 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","RPQ",1,1,366,12)
- +120 ;;=
- +121 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","SLC",1,1,366,17)
- +122 ;;=
- +123 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","SPQ",1,1,366,16)
- +124 ;;=
- +125 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","SRC",1,1,366,2)
- +126 ;;=
- +127 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","SUBOBJ",1,1,365,10)
- +128 ;;=
- +129 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","SUBSTA",1,1,382,2)
- +130 ;;=