XPDIN00G ; ; 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,"DIBT",39,0)
;;=XPD DISPLAY ENTRY^2940404.1515^@^9.6^^@^2940405
;;^UTILITY(U,$J,"DIBT",39,2,1)
;;=9.6^0^NUMBER^@^
;;^UTILITY(U,$J,"DIBT",39,2,1,"ASK")
;;=
;;^UTILITY(U,$J,"DIBT",39,2,1,"F")
;;=3.99999^4
;;^UTILITY(U,$J,"DIBT",39,2,1,"T")
;;=4^4
;;^UTILITY(U,$J,"DIBT",39,2,2)
;;=9.68^.01^ENTRIES^^
;;^UTILITY(U,$J,"DIBT",39,2,2,9.6)
;;=KRN
;;^UTILITY(U,$J,"DIBT",39,2,2,9.67)
;;=NM
;;^UTILITY(U,$J,"DIE",39,0)
;;=XPD EDIT BUILD^2931105.1421^@^9.6^^@^2931105
;;^UTILITY(U,$J,"DIE",39,"DIAB",1,1,9.602,0)
;;=ALL
;;^UTILITY(U,$J,"DIE",39,"DIAB",1,1,9.64,0)
;;=ALL
;;^UTILITY(U,$J,"DIE",39,"DIAB",1,2,9.68,0)
;;=ALL
;;^UTILITY(U,$J,"DIE",39,"DR",1,9.6)
;;=.01;1;2;3;6;7;11;12;13;20;200.1;200.2;913;914;916;
;;^UTILITY(U,$J,"DIE",39,"DR",2,9.602)
;;=.01:4
;;^UTILITY(U,$J,"DIE",39,"DR",2,9.64)
;;=.01:223
;;^UTILITY(U,$J,"DIE",39,"DR",2,9.67)
;;=10;
;;^UTILITY(U,$J,"DIE",39,"DR",3,9.65)
;;=.01
;;^UTILITY(U,$J,"DIE",39,"DR",3,9.68)
;;=.01
;;^UTILITY(U,$J,"DIPT",57,0)
;;=XPD BUILD ENTRY^2940405.0815^@^9.6^^@^2940405
;;^UTILITY(U,$J,"DIPT",57,"F",1)
;;=.01;N;C1;""~2;C3;N;""~3,.01;N;C5;""~"ENVIRONMENT CHECK ROUTINE: ";N;S1;""~913;N;C30;""~"POST-INIT ROUTINE: ";N;C1;""~914;N;C20;""~
;;^UTILITY(U,$J,"DIPT",57,"F",2)
;;="PRE-INIT ROUTINE: ";N;C1;""~916;N;C20;""~7,.01;S1;N;""~7,10,.01;C5;N;X~7,10,.03;C40;N;X~
;;^UTILITY(U,$J,"DIPT",57,"H")
;;=BUILD ENTRY
;;^UTILITY(U,$J,"DIST(.403,",11,0)
;;=XPD EDIT BUILD^#^^^2931104^^^9.6^0^0^1
;;^UTILITY(U,$J,"DIST(.403,",11,40,0)
;;=^.4031I^15^15
;;^UTILITY(U,$J,"DIST(.403,",11,40,1,0)
;;=1^^1,1^4
;;^UTILITY(U,$J,"DIST(.403,",11,40,1,1)
;;=Page 1
;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,0)
;;=^.4032PI^46^2
;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,45,0)
;;=XPD EDIT BUILD HDR^1^1,1^d
;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,46,0)
;;=XPD EDIT BUILD1^2^1,1^e
;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,"AC",1,45)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,"AC",2,46)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,"B",45,45)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,"B",46,46)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,2,0)
;;=2^^1,1^14^4
;;^UTILITY(U,$J,"DIST(.403,",11,40,2,1)
;;=Page 2
;;^UTILITY(U,$J,"DIST(.403,",11,40,2,12)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,0)
;;=^.4032PI^57^3
;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,45,0)
;;=XPD EDIT BUILD HDR^1^1,1^d
;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,47,0)
;;=XPD EDIT BUILD2^2^1,1^e
;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,57,0)
;;=XPD EDIT BUILD30^3^5,1^e
;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,57,2)
;;=12^^f^1
;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,"AC",1,45)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,"AC",2,47)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,"AC",3,57)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,"B",45,45)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,"B",47,47)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,"B",57,57)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,3,0)
;;=3^^5,1^^^1^17,79
;;^UTILITY(U,$J,"DIST(.403,",11,40,3,1)
;;=Kernel File^1,3,2
;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,0)
;;=^.4032PI^53^2
;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,48,0)
;;=XPD EDIT BUILD3^1^3,2^e
;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,48,2)
;;=9^^n
;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,53,0)
;;=XPD EDIT BUILD31^2^1,2^d
;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,"AC",1,48)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,"AC",2,53)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,"B",48,48)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,"B",53,53)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,4,0)
;;=4^^1,1^2^1
;;^UTILITY(U,$J,"DIST(.403,",11,40,4,1)
;;=File^
;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,0)
;;=^.4032PI^59^3
;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,45,0)
;;=XPD EDIT BUILD HDR^1^1,1^d
;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,58,0)
;;=XPD EDIT BUILD40^2^5,1^e
;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,58,2)
;;=12^^n
;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,59,0)
;;=XPD EDIT BUILD41^3^1,1^d
;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,"AC",1,45)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,"AC",2,58)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,"AC",3,59)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,"B",45,45)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,"B",58,58)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,"B",59,59)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,40,5,0)
;;=5^^6,3^^^1^17,77
;;^UTILITY(U,$J,"DIST(.403,",11,40,5,1)
;;=Record Merge^2,2,8
;;^UTILITY(U,$J,"DIST(.403,",11,40,5,40,0)
;;=^.4032PI^50^1
;;^UTILITY(U,$J,"DIST(.403,",11,40,5,40,50,0)
;;=XPD EDIT BUILD5^1^1,3^e
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXPDIN00G 4995 printed Dec 13, 2024@02:03:57 Page 2
XPDIN00G ; ; 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,"DIBT",39,0)
+2 ;;=XPD DISPLAY ENTRY^2940404.1515^@^9.6^^@^2940405
+3 ;;^UTILITY(U,$J,"DIBT",39,2,1)
+4 ;;=9.6^0^NUMBER^@^
+5 ;;^UTILITY(U,$J,"DIBT",39,2,1,"ASK")
+6 ;;=
+7 ;;^UTILITY(U,$J,"DIBT",39,2,1,"F")
+8 ;;=3.99999^4
+9 ;;^UTILITY(U,$J,"DIBT",39,2,1,"T")
+10 ;;=4^4
+11 ;;^UTILITY(U,$J,"DIBT",39,2,2)
+12 ;;=9.68^.01^ENTRIES^^
+13 ;;^UTILITY(U,$J,"DIBT",39,2,2,9.6)
+14 ;;=KRN
+15 ;;^UTILITY(U,$J,"DIBT",39,2,2,9.67)
+16 ;;=NM
+17 ;;^UTILITY(U,$J,"DIE",39,0)
+18 ;;=XPD EDIT BUILD^2931105.1421^@^9.6^^@^2931105
+19 ;;^UTILITY(U,$J,"DIE",39,"DIAB",1,1,9.602,0)
+20 ;;=ALL
+21 ;;^UTILITY(U,$J,"DIE",39,"DIAB",1,1,9.64,0)
+22 ;;=ALL
+23 ;;^UTILITY(U,$J,"DIE",39,"DIAB",1,2,9.68,0)
+24 ;;=ALL
+25 ;;^UTILITY(U,$J,"DIE",39,"DR",1,9.6)
+26 ;;=.01;1;2;3;6;7;11;12;13;20;200.1;200.2;913;914;916;
+27 ;;^UTILITY(U,$J,"DIE",39,"DR",2,9.602)
+28 ;;=.01:4
+29 ;;^UTILITY(U,$J,"DIE",39,"DR",2,9.64)
+30 ;;=.01:223
+31 ;;^UTILITY(U,$J,"DIE",39,"DR",2,9.67)
+32 ;;=10;
+33 ;;^UTILITY(U,$J,"DIE",39,"DR",3,9.65)
+34 ;;=.01
+35 ;;^UTILITY(U,$J,"DIE",39,"DR",3,9.68)
+36 ;;=.01
+37 ;;^UTILITY(U,$J,"DIPT",57,0)
+38 ;;=XPD BUILD ENTRY^2940405.0815^@^9.6^^@^2940405
+39 ;;^UTILITY(U,$J,"DIPT",57,"F",1)
+40 ;;=.01;N;C1;""~2;C3;N;""~3,.01;N;C5;""~"ENVIRONMENT CHECK ROUTINE: ";N;S1;""~913;N;C30;""~"POST-INIT ROUTINE: ";N;C1;""~914;N;C20;""~
+41 ;;^UTILITY(U,$J,"DIPT",57,"F",2)
+42 ;;="PRE-INIT ROUTINE: ";N;C1;""~916;N;C20;""~7,.01;S1;N;""~7,10,.01;C5;N;X~7,10,.03;C40;N;X~
+43 ;;^UTILITY(U,$J,"DIPT",57,"H")
+44 ;;=BUILD ENTRY
+45 ;;^UTILITY(U,$J,"DIST(.403,",11,0)
+46 ;;=XPD EDIT BUILD^#^^^2931104^^^9.6^0^0^1
+47 ;;^UTILITY(U,$J,"DIST(.403,",11,40,0)
+48 ;;=^.4031I^15^15
+49 ;;^UTILITY(U,$J,"DIST(.403,",11,40,1,0)
+50 ;;=1^^1,1^4
+51 ;;^UTILITY(U,$J,"DIST(.403,",11,40,1,1)
+52 ;;=Page 1
+53 ;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,0)
+54 ;;=^.4032PI^46^2
+55 ;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,45,0)
+56 ;;=XPD EDIT BUILD HDR^1^1,1^d
+57 ;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,46,0)
+58 ;;=XPD EDIT BUILD1^2^1,1^e
+59 ;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,"AC",1,45)
+60 ;;=
+61 ;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,"AC",2,46)
+62 ;;=
+63 ;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,"B",45,45)
+64 ;;=
+65 ;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,"B",46,46)
+66 ;;=
+67 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,0)
+68 ;;=2^^1,1^14^4
+69 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,1)
+70 ;;=Page 2
+71 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,12)
+72 ;;=
+73 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,0)
+74 ;;=^.4032PI^57^3
+75 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,45,0)
+76 ;;=XPD EDIT BUILD HDR^1^1,1^d
+77 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,47,0)
+78 ;;=XPD EDIT BUILD2^2^1,1^e
+79 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,57,0)
+80 ;;=XPD EDIT BUILD30^3^5,1^e
+81 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,57,2)
+82 ;;=12^^f^1
+83 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,"AC",1,45)
+84 ;;=
+85 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,"AC",2,47)
+86 ;;=
+87 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,"AC",3,57)
+88 ;;=
+89 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,"B",45,45)
+90 ;;=
+91 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,"B",47,47)
+92 ;;=
+93 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,"B",57,57)
+94 ;;=
+95 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,0)
+96 ;;=3^^5,1^^^1^17,79
+97 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,1)
+98 ;;=Kernel File^1,3,2
+99 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,0)
+100 ;;=^.4032PI^53^2
+101 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,48,0)
+102 ;;=XPD EDIT BUILD3^1^3,2^e
+103 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,48,2)
+104 ;;=9^^n
+105 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,53,0)
+106 ;;=XPD EDIT BUILD31^2^1,2^d
+107 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,"AC",1,48)
+108 ;;=
+109 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,"AC",2,53)
+110 ;;=
+111 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,"B",48,48)
+112 ;;=
+113 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,"B",53,53)
+114 ;;=
+115 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,0)
+116 ;;=4^^1,1^2^1
+117 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,1)
+118 ;;=File^
+119 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,0)
+120 ;;=^.4032PI^59^3
+121 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,45,0)
+122 ;;=XPD EDIT BUILD HDR^1^1,1^d
+123 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,58,0)
+124 ;;=XPD EDIT BUILD40^2^5,1^e
+125 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,58,2)
+126 ;;=12^^n
+127 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,59,0)
+128 ;;=XPD EDIT BUILD41^3^1,1^d
+129 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,"AC",1,45)
+130 ;;=
+131 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,"AC",2,58)
+132 ;;=
+133 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,"AC",3,59)
+134 ;;=
+135 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,"B",45,45)
+136 ;;=
+137 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,"B",58,58)
+138 ;;=
+139 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,"B",59,59)
+140 ;;=
+141 ;;^UTILITY(U,$J,"DIST(.403,",11,40,5,0)
+142 ;;=5^^6,3^^^1^17,77
+143 ;;^UTILITY(U,$J,"DIST(.403,",11,40,5,1)
+144 ;;=Record Merge^2,2,8
+145 ;;^UTILITY(U,$J,"DIST(.403,",11,40,5,40,0)
+146 ;;=^.4032PI^50^1
+147 ;;^UTILITY(U,$J,"DIST(.403,",11,40,5,40,50,0)
+148 ;;=XPD EDIT BUILD5^1^1,3^e
