XPDIN00M ; ; 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","CAP","SCREEN TO SELECT DATA",13,13,64,7)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","SEND FULL OR PARTIAL DD...",7,7,49,18)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","SEND SECURITY CODE",7,7,49,14)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","SITE'S DATA",13,13,64,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","TRACK PACKAGE NATIONALLY","2^14^4",14,65,3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","UPDATE THE DATA DICTIONARY",7,7,49,16)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","COMPE",57,2)
;;=S Y="("_+$P($G(^XPD(9.6,DA(1),"KRN",DA,"NM",0)),U,4)_")"
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.4",12,"L",8,51,5)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.4",20,"L",8,51,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.402",.01,"L",5,50,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.402",3,"L",5,50,3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.402",4,"L",5,50,4)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",.01,"L",1,45,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",.01,"L",1,46,1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",.01,"L",2,45,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",.01,"L",4,45,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",.01,"L",8,67,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",.01,"L",14,45,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",.02,"L",1,46,13)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",1,"L",14,65,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",3,"L",1,46,11)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",5,"L",14,65,3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",20,"L",8,54,1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",21,"L",9,55,1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",22,"L",9,55,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",913,"L",1,46,5)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",914,"L",1,46,6)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",916,"L",1,46,7)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",.01,"L",6,52,1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",.01,"L",14,66,1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",.01,"L",15,52,1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",1,"L",6,52,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",1,"L",15,52,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",2,"L",6,52,3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",2,"L",15,52,3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",3,"L",6,52,4)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",3,"L",15,52,4)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",4,"L",6,52,5)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",4,"L",15,52,5)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",5,"L",6,52,6)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",5,"L",15,52,6)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",6,"L",6,52,7)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",6,"L",15,52,7)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",7,"L",6,52,8)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",7,"L",15,52,8)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",10,"L",6,52,9)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",10,"L",15,52,9)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",.01,"L",4,58,1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",.01,"L",7,49,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",222.1,"L",7,49,16)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",222.2,"L",7,49,14)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",222.3,"L",7,49,18)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",222.5,"L",13,64,4)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",222.6,"L",13,64,3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",222.7,"L",7,49,7)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",222.8,"L",13,64,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",222.9,"L",13,64,5)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",223,"L",7,49,13)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",224,"L",13,64,7)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.641",.01,"L",11,60,1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6411",.01,"L",12,61,1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.66",.01,"L",9,84,1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.661",.01,"L",10,85,1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.67",0,"L",2,57,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.67",.01,"L",2,57,1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.68",.01,"L",3,48,1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.68",.03,"L",3,48,2)
;;=
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXPDIN00M 4984 printed Sep 23, 2025@19:40:07 Page 2
XPDIN00M ; ; 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","CAP","SCREEN TO SELECT DATA",13,13,64,7)
+2 ;;=
+3 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","SEND FULL OR PARTIAL DD...",7,7,49,18)
+4 ;;=
+5 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","SEND SECURITY CODE",7,7,49,14)
+6 ;;=
+7 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","SITE'S DATA",13,13,64,2)
+8 ;;=
+9 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","TRACK PACKAGE NATIONALLY","2^14^4",14,65,3)
+10 ;;=
+11 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","UPDATE THE DATA DICTIONARY",7,7,49,16)
+12 ;;=
+13 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","COMPE",57,2)
+14 ;;=S Y="("_+$P($G(^XPD(9.6,DA(1),"KRN",DA,"NM",0)),U,4)_")"
+15 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.4",12,"L",8,51,5)
+16 ;;=
+17 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.4",20,"L",8,51,2)
+18 ;;=
+19 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.402",.01,"L",5,50,2)
+20 ;;=
+21 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.402",3,"L",5,50,3)
+22 ;;=
+23 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.402",4,"L",5,50,4)
+24 ;;=
+25 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",.01,"L",1,45,2)
+26 ;;=
+27 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",.01,"L",1,46,1)
+28 ;;=
+29 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",.01,"L",2,45,2)
+30 ;;=
+31 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",.01,"L",4,45,2)
+32 ;;=
+33 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",.01,"L",8,67,2)
+34 ;;=
+35 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",.01,"L",14,45,2)
+36 ;;=
+37 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",.02,"L",1,46,13)
+38 ;;=
+39 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",1,"L",14,65,2)
+40 ;;=
+41 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",3,"L",1,46,11)
+42 ;;=
+43 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",5,"L",14,65,3)
+44 ;;=
+45 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",20,"L",8,54,1)
+46 ;;=
+47 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",21,"L",9,55,1)
+48 ;;=
+49 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",22,"L",9,55,2)
+50 ;;=
+51 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",913,"L",1,46,5)
+52 ;;=
+53 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",914,"L",1,46,6)
+54 ;;=
+55 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",916,"L",1,46,7)
+56 ;;=
+57 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",.01,"L",6,52,1)
+58 ;;=
+59 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",.01,"L",14,66,1)
+60 ;;=
+61 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",.01,"L",15,52,1)
+62 ;;=
+63 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",1,"L",6,52,2)
+64 ;;=
+65 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",1,"L",15,52,2)
+66 ;;=
+67 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",2,"L",6,52,3)
+68 ;;=
+69 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",2,"L",15,52,3)
+70 ;;=
+71 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",3,"L",6,52,4)
+72 ;;=
+73 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",3,"L",15,52,4)
+74 ;;=
+75 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",4,"L",6,52,5)
+76 ;;=
+77 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",4,"L",15,52,5)
+78 ;;=
+79 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",5,"L",6,52,6)
+80 ;;=
+81 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",5,"L",15,52,6)
+82 ;;=
+83 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",6,"L",6,52,7)
+84 ;;=
+85 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",6,"L",15,52,7)
+86 ;;=
+87 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",7,"L",6,52,8)
+88 ;;=
+89 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",7,"L",15,52,8)
+90 ;;=
+91 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",10,"L",6,52,9)
+92 ;;=
+93 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",10,"L",15,52,9)
+94 ;;=
+95 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",.01,"L",4,58,1)
+96 ;;=
+97 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",.01,"L",7,49,2)
+98 ;;=
+99 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",222.1,"L",7,49,16)
+100 ;;=
+101 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",222.2,"L",7,49,14)
+102 ;;=
+103 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",222.3,"L",7,49,18)
+104 ;;=
+105 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",222.5,"L",13,64,4)
+106 ;;=
+107 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",222.6,"L",13,64,3)
+108 ;;=
+109 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",222.7,"L",7,49,7)
+110 ;;=
+111 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",222.8,"L",13,64,2)
+112 ;;=
+113 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",222.9,"L",13,64,5)
+114 ;;=
+115 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",223,"L",7,49,13)
+116 ;;=
+117 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",224,"L",13,64,7)
+118 ;;=
+119 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.641",.01,"L",11,60,1)
+120 ;;=
+121 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6411",.01,"L",12,61,1)
+122 ;;=
+123 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.66",.01,"L",9,84,1)
+124 ;;=
+125 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.661",.01,"L",10,85,1)
+126 ;;=
+127 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.67",0,"L",2,57,2)
+128 ;;=
+129 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.67",.01,"L",2,57,1)
+130 ;;=
+131 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.68",.01,"L",3,48,1)
+132 ;;=
+133 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.68",.03,"L",3,48,2)
+134 ;;=
