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

AZHNI002.m

Go to the documentation of this file.
  1. AZHNI002 ; ; 05-AUG-1998
  1. ;;4.1T4;AZHN DALE'S WORK PACKAGE;;AUG 05, 1998
  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,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
  1. Q Q
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,11,"D")
  1. ;;=11^43^9^11,366^^^^^^1
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,11,"N")
  1. ;;=12^1,382^6^13^12
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,12,"D")
  1. ;;=10^34^5^12,366
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,12,"N")
  1. ;;=20^13^15^16^13
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,13,"D")
  1. ;;=11^28^9^13,366^^^^^^1
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,13,"N")
  1. ;;=16^1,382^11^8^14
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,14,"D")
  1. ;;=10^62^4^14,366^^^^^^1
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,14,"N")
  1. ;;=24^6^10^15^15
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,15,"D")
  1. ;;=10^47^7^15,366^^^^^^1
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,15,"N")
  1. ;;=22^11^14^12^16
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,16,"D")
  1. ;;=10^23^5^16,366^^^^^^1
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,16,"N")
  1. ;;=19^8^12^7^17
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,17,"D")
  1. ;;=7^64^15^17,366
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,17,"N")
  1. ;;=12,365^4^3^2^19
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,19,"D")
  1. ;;=9^9^18^19,366
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,19,"N")
  1. ;;=3^7^20^9^20
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,20,"D")
  1. ;;=9^34^3^20,366
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,20,"N")
  1. ;;=3^12^22^19^22
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,22,"D")
  1. ;;=9^46^2^22,366
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,22,"N")
  1. ;;=4^12^23^20^23
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,23,"D")
  1. ;;=9^53^4^23,366^^^^^^1
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,23,"N")
  1. ;;=4^15^24^22^24
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,24,"D")
  1. ;;=9^62^5^24,366
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,24,"N")
  1. ;;=4^14^5^23^25
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,25,"D")
  1. ;;=11^70^8^25,366
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,366,25,"N")
  1. ;;=14^1,382^1,382^6^1,382
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382)
  1. ;;=13^0^9002036.3^^e^^^^1
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,1,"D")
  1. ;;=13^7^7^.05
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,1,"N")
  1. ;;=8,366^2^2^25,366^2
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,2,"D")
  1. ;;=15^8^3^13
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,2,"N")
  1. ;;=1^3^4^1^3
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,3,"D")
  1. ;;=16^7^3^14
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,3,"N")
  1. ;;=2^0^5^4^4
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,4,"D")
  1. ;;=15^13^30^.13
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,4,"N")
  1. ;;=1^3^3^2^5
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,5,"D")
  1. ;;=16^14^40^.14
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,382,5,"N")
  1. ;;=4^0^0^3^0
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ",1,"FIRST")
  1. ;;=3,365
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","ACC",1,1,365,6)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","ACT",1,1,366,24)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","AUI",1,1,365,8)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","BARCD",1,1,365,7)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","CAT",1,1,365,9)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","COST/U",1,1,366,13)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","DT EST",1,1,366,25)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","DUE IN",1,1,366,14)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","DUE OUT",1,1,366,10)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","EOQTP",1,1,366,19)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","EST/CHG",1,1,365,11)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","INDEX",1,1,382,1)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","LPP",1,1,366,11)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","LSTIS",1,1,366,9)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","LTM",1,1,366,6)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","MO",1,1,366,22)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","NATL STK#",1,1,365,4)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","ORD#",1,1,366,4)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","PAMIQ",1,1,366,15)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","QTY",1,1,366,23)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","QTYOH",1,1,366,7)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","RPQ",1,1,366,12)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","SLC",1,1,366,17)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","SPQ",1,1,366,16)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","SRC",1,1,366,2)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","SUBOBJ",1,1,365,10)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","SUBSTA",1,1,382,2)
  1. ;;=