XPDIN00L ; ; 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(.403,",11,"AZ",15,0,0,"N")
;;=9,52^1,52^1,52^9,52^1,52
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52)
;;=1^0^9.62^^e^^^^1
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,1,"D")
;;=2^11^30^.01
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,1,"N")
;;=0^2^2^0^2
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,2,"D")
;;=4^11^65^1
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,2,"N")
;;=1^3^3^1^3
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,3,"D")
;;=6^11^65^2
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,3,"N")
;;=2^4^4^2^4
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,4,"D")
;;=7^11^1^3
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,4,"N")
;;=3^5^5^3^5^^^^^^1
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,5,"D")
;;=9^11^65^4
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,5,"N")
;;=4^6^6^4^6
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,6,"D")
;;=11^11^65^5
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,6,"N")
;;=5^7^7^5^7
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,7,"D")
;;=12^11^1^6
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,7,"N")
;;=6^8^8^6^8^^^^^^1
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,8,"D")
;;=13^11^64^7
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,8,"N")
;;=7^9^9^7^9
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,9,"D")
;;=15^11^65^10
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,9,"N")
;;=8^0^0^8^0
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,"FIRST")
;;=1,52
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","ASUB",2,57,1)
;;=3
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","ASUB",8,51,2)
;;=5
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","ASUB",9,55,5)
;;=10
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","ADDRESS FOR USAGE REPORTING",9,9,55,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","AFFECTS RECORD MERGE","8^1^2",8,51,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","ALPHA/BETA TESTING...","8^1^2",8,54,1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DATA COMES WITH FILE...",7,7,49,7)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DATA LIST",13,13,64,3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DATE DISTRIBUTED","1^4^2",1,46,13)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DESCRIPTION","1^4^2",1,46,11)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(0)",6,6,52,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(0)",15,15,52,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(?)",6,6,52,6)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(?)",15,15,52,6)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(?,#)",6,6,52,7)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(?,#)",15,15,52,7)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(??)",6,6,52,8)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(??)",15,15,52,8)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(A)",6,6,52,3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(A)",15,15,52,3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(A,#)",6,6,52,4)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(A,#)",15,15,52,4)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(B)",6,6,52,5)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(B)",15,15,52,5)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","ENVIRONMENT CHECK ROUTINE","1^4^2",1,46,5)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","FILE",7,7,49,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","FILE AFFECTED",5,5,50,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","INSTALLATION MESSAGE",9,9,55,1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","M CODE",6,6,52,9)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","M CODE",15,15,52,9)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","MAY USER OVERRIDE DATA UPDATE",13,13,64,5)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","NAME",6,6,52,1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","NAME",15,15,52,1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","NAME","1^4^2",1,46,1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","NAME OF MERGE ROUTINE",5,5,50,3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","PACKAGE FILE LINK...","2^14^4",14,65,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","POST-INSTALL ROUTINE","1^4^2",1,46,6)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","PRE-INSTALL ROUTINE","1^4^2",1,46,7)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","PRIMARY HELP FRAME","8^1^2",8,51,5)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","RECORD HAS PACKAGE DATA",5,5,50,4)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","RESOLVE POINTERS",13,13,64,4)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","SCREEN TO DETERMINE DD UPDATE",7,7,49,13)
;;=
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXPDIN00L 4925 printed Sep 23, 2025@19:40:07 Page 2
XPDIN00L ; ; 03-JUL-1995
+1 ;;8.0;KERNEL;;JUL 10, 1995
+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,99)
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,",11,"AZ",15,0,0,"N")
+2 ;;=9,52^1,52^1,52^9,52^1,52
+3 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52)
+4 ;;=1^0^9.62^^e^^^^1
+5 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,1,"D")
+6 ;;=2^11^30^.01
+7 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,1,"N")
+8 ;;=0^2^2^0^2
+9 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,2,"D")
+10 ;;=4^11^65^1
+11 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,2,"N")
+12 ;;=1^3^3^1^3
+13 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,3,"D")
+14 ;;=6^11^65^2
+15 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,3,"N")
+16 ;;=2^4^4^2^4
+17 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,4,"D")
+18 ;;=7^11^1^3
+19 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,4,"N")
+20 ;;=3^5^5^3^5^^^^^^1
+21 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,5,"D")
+22 ;;=9^11^65^4
+23 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,5,"N")
+24 ;;=4^6^6^4^6
+25 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,6,"D")
+26 ;;=11^11^65^5
+27 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,6,"N")
+28 ;;=5^7^7^5^7
+29 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,7,"D")
+30 ;;=12^11^1^6
+31 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,7,"N")
+32 ;;=6^8^8^6^8^^^^^^1
+33 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,8,"D")
+34 ;;=13^11^64^7
+35 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,8,"N")
+36 ;;=7^9^9^7^9
+37 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,9,"D")
+38 ;;=15^11^65^10
+39 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,9,"N")
+40 ;;=8^0^0^8^0
+41 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,"FIRST")
+42 ;;=1,52
+43 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","ASUB",2,57,1)
+44 ;;=3
+45 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","ASUB",8,51,2)
+46 ;;=5
+47 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","ASUB",9,55,5)
+48 ;;=10
+49 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","ADDRESS FOR USAGE REPORTING",9,9,55,2)
+50 ;;=
+51 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","AFFECTS RECORD MERGE","8^1^2",8,51,2)
+52 ;;=
+53 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","ALPHA/BETA TESTING...","8^1^2",8,54,1)
+54 ;;=
+55 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DATA COMES WITH FILE...",7,7,49,7)
+56 ;;=
+57 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DATA LIST",13,13,64,3)
+58 ;;=
+59 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DATE DISTRIBUTED","1^4^2",1,46,13)
+60 ;;=
+61 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DESCRIPTION","1^4^2",1,46,11)
+62 ;;=
+63 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(0)",6,6,52,2)
+64 ;;=
+65 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(0)",15,15,52,2)
+66 ;;=
+67 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(?)",6,6,52,6)
+68 ;;=
+69 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(?)",15,15,52,6)
+70 ;;=
+71 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(?,#)",6,6,52,7)
+72 ;;=
+73 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(?,#)",15,15,52,7)
+74 ;;=
+75 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(??)",6,6,52,8)
+76 ;;=
+77 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(??)",15,15,52,8)
+78 ;;=
+79 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(A)",6,6,52,3)
+80 ;;=
+81 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(A)",15,15,52,3)
+82 ;;=
+83 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(A,#)",6,6,52,4)
+84 ;;=
+85 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(A,#)",15,15,52,4)
+86 ;;=
+87 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(B)",6,6,52,5)
+88 ;;=
+89 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(B)",15,15,52,5)
+90 ;;=
+91 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","ENVIRONMENT CHECK ROUTINE","1^4^2",1,46,5)
+92 ;;=
+93 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","FILE",7,7,49,2)
+94 ;;=
+95 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","FILE AFFECTED",5,5,50,2)
+96 ;;=
+97 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","INSTALLATION MESSAGE",9,9,55,1)
+98 ;;=
+99 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","M CODE",6,6,52,9)
+100 ;;=
+101 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","M CODE",15,15,52,9)
+102 ;;=
+103 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","MAY USER OVERRIDE DATA UPDATE",13,13,64,5)
+104 ;;=
+105 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","NAME",6,6,52,1)
+106 ;;=
+107 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","NAME",15,15,52,1)
+108 ;;=
+109 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","NAME","1^4^2",1,46,1)
+110 ;;=
+111 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","NAME OF MERGE ROUTINE",5,5,50,3)
+112 ;;=
+113 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","PACKAGE FILE LINK...","2^14^4",14,65,2)
+114 ;;=
+115 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","POST-INSTALL ROUTINE","1^4^2",1,46,6)
+116 ;;=
+117 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","PRE-INSTALL ROUTINE","1^4^2",1,46,7)
+118 ;;=
+119 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","PRIMARY HELP FRAME","8^1^2",8,51,5)
+120 ;;=
+121 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","RECORD HAS PACKAGE DATA",5,5,50,4)
+122 ;;=
+123 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","RESOLVE POINTERS",13,13,64,4)
+124 ;;=
+125 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","SCREEN TO DETERMINE DD UPDATE",7,7,49,13)
+126 ;;=
