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 ;;=
