XPDIN00P ; ; 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(.404,",48,40,2,2)
;;=1,50^26
;;^UTILITY(U,$J,"DIST(.404,",48,40,2,3)
;;=SEND TO SITE
;;^UTILITY(U,$J,"DIST(.404,",48,40,2,4)
;;=1
;;^UTILITY(U,$J,"DIST(.404,",48,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",48,40,"B",2,2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",49,0)
;;=XPD EDIT BUILD4^9.64
;;^UTILITY(U,$J,"DIST(.404,",49,40,0)
;;=^.4044I^18^7
;;^UTILITY(U,$J,"DIST(.404,",49,40,1,0)
;;=1^ DD Export Options ^1^
;;^UTILITY(U,$J,"DIST(.404,",49,40,1,2)
;;=^^1,27^1
;;^UTILITY(U,$J,"DIST(.404,",49,40,2,0)
;;=2^File^3^
;;^UTILITY(U,$J,"DIST(.404,",49,40,2,1)
;;=.01
;;^UTILITY(U,$J,"DIST(.404,",49,40,2,2)
;;=3,30^45^3,24
;;^UTILITY(U,$J,"DIST(.404,",49,40,7,0)
;;=7^Data Comes With File...^3^
;;^UTILITY(U,$J,"DIST(.404,",49,40,7,1)
;;=222.7
;;^UTILITY(U,$J,"DIST(.404,",49,40,7,2)
;;=12,33^3^12,8
;;^UTILITY(U,$J,"DIST(.404,",49,40,7,3)
;;=NO
;;^UTILITY(U,$J,"DIST(.404,",49,40,7,10)
;;=S:X="y" DDSSTACK=13
;;^UTILITY(U,$J,"DIST(.404,",49,40,7,13)
;;=D:X="y" PUT^DDSVAL(DIE,.DA,222.3,"f","","I")
;;^UTILITY(U,$J,"DIST(.404,",49,40,13,0)
;;=6^Screen to Determine DD Update^3
;;^UTILITY(U,$J,"DIST(.404,",49,40,13,1)
;;=223
;;^UTILITY(U,$J,"DIST(.404,",49,40,13,2)
;;=10,2^76^9,2^1
;;^UTILITY(U,$J,"DIST(.404,",49,40,14,0)
;;=5^Send Security Code^3
;;^UTILITY(U,$J,"DIST(.404,",49,40,14,1)
;;=222.2
;;^UTILITY(U,$J,"DIST(.404,",49,40,14,2)
;;=7,62^3^7,42
;;^UTILITY(U,$J,"DIST(.404,",49,40,14,3)
;;=YES
;;^UTILITY(U,$J,"DIST(.404,",49,40,16,0)
;;=4^Update the Data Dictionary^3
;;^UTILITY(U,$J,"DIST(.404,",49,40,16,1)
;;=222.1
;;^UTILITY(U,$J,"DIST(.404,",49,40,16,2)
;;=7,30^3^7,2
;;^UTILITY(U,$J,"DIST(.404,",49,40,16,3)
;;=YES
;;^UTILITY(U,$J,"DIST(.404,",49,40,18,0)
;;=3^Send Full or Partial DD...^3
;;^UTILITY(U,$J,"DIST(.404,",49,40,18,1)
;;=222.3
;;^UTILITY(U,$J,"DIST(.404,",49,40,18,2)
;;=5,33^7^5,5
;;^UTILITY(U,$J,"DIST(.404,",49,40,18,3)
;;=FULL
;;^UTILITY(U,$J,"DIST(.404,",49,40,18,10)
;;=S:X="p" DDSSTACK=11
;;^UTILITY(U,$J,"DIST(.404,",49,40,18,13)
;;=D:X="p" PUT^DDSVAL(DIE,.DA,222.7,"n","","I")
;;^UTILITY(U,$J,"DIST(.404,",49,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",49,40,"B",2,2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",49,40,"B",3,18)
;;=
;;^UTILITY(U,$J,"DIST(.404,",49,40,"B",4,16)
;;=
;;^UTILITY(U,$J,"DIST(.404,",49,40,"B",5,14)
;;=
;;^UTILITY(U,$J,"DIST(.404,",49,40,"B",6,13)
;;=
;;^UTILITY(U,$J,"DIST(.404,",49,40,"B",7,7)
;;=
;;^UTILITY(U,$J,"DIST(.404,",49,40,"C"," DD EXPORT OPTIONS ",1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",49,40,"C","DATA COMES WITH FILE...",7)
;;=
;;^UTILITY(U,$J,"DIST(.404,",49,40,"C","FILE",2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",49,40,"C","SCREEN TO DETERMINE DD UPDATE",13)
;;=
;;^UTILITY(U,$J,"DIST(.404,",49,40,"C","SEND FULL OR PARTIAL DD...",18)
;;=
;;^UTILITY(U,$J,"DIST(.404,",49,40,"C","SEND SECURITY CODE",14)
;;=
;;^UTILITY(U,$J,"DIST(.404,",49,40,"C","UPDATE THE DATA DICTIONARY",16)
;;=
;;^UTILITY(U,$J,"DIST(.404,",50,0)
;;=XPD EDIT BUILD5^9.402
;;^UTILITY(U,$J,"DIST(.404,",50,40,0)
;;=^.4044I^4^4
;;^UTILITY(U,$J,"DIST(.404,",50,40,1,0)
;;=1^ Affects Record Merge ^1^
;;^UTILITY(U,$J,"DIST(.404,",50,40,1,2)
;;=^^1,23^1
;;^UTILITY(U,$J,"DIST(.404,",50,40,2,0)
;;=2^File Affected^3^
;;^UTILITY(U,$J,"DIST(.404,",50,40,2,1)
;;=.01
;;^UTILITY(U,$J,"DIST(.404,",50,40,2,2)
;;=3,16^45^3,1
;;^UTILITY(U,$J,"DIST(.404,",50,40,3,0)
;;=3^Name of Merge Routine^3^
;;^UTILITY(U,$J,"DIST(.404,",50,40,3,1)
;;=3
;;^UTILITY(U,$J,"DIST(.404,",50,40,3,2)
;;=5,24^8^5,1
;;^UTILITY(U,$J,"DIST(.404,",50,40,4,0)
;;=4^Record has Package Data^3^
;;^UTILITY(U,$J,"DIST(.404,",50,40,4,1)
;;=4
;;^UTILITY(U,$J,"DIST(.404,",50,40,4,2)
;;=10,1^70^8,21^1
;;^UTILITY(U,$J,"DIST(.404,",50,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",50,40,"B",2,2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",50,40,"B",3,3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",50,40,"B",4,4)
;;=
;;^UTILITY(U,$J,"DIST(.404,",50,40,"C"," AFFECTS RECORD MERGE ",1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",50,40,"C","FILE AFFECTED",2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",50,40,"C","NAME OF MERGE ROUTINE",3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",50,40,"C","RECORD HAS PACKAGE DATA",4)
;;=
;;^UTILITY(U,$J,"DIST(.404,",51,0)
;;=XPD EDIT BUILD6^9.4
;;^UTILITY(U,$J,"DIST(.404,",51,11)
;;=I $G(XPDBR) S DDSBR="COM" K XPDBR
;;^UTILITY(U,$J,"DIST(.404,",51,40,0)
;;=^.4044I^5^2
;;^UTILITY(U,$J,"DIST(.404,",51,40,2,0)
;;=2^Select Affects Record Merge^3^
;;^UTILITY(U,$J,"DIST(.404,",51,40,2,1)
;;=20
;;^UTILITY(U,$J,"DIST(.404,",51,40,2,2)
;;=5,31^30^5,2
;;^UTILITY(U,$J,"DIST(.404,",51,40,2,7)
;;=^
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXPDIN00P 5006 printed Apr 09, 2024@21:05:20 Page 2
XPDIN00P ; ; 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(.404,",48,40,2,2)
+2 ;;=1,50^26
+3 ;;^UTILITY(U,$J,"DIST(.404,",48,40,2,3)
+4 ;;=SEND TO SITE
+5 ;;^UTILITY(U,$J,"DIST(.404,",48,40,2,4)
+6 ;;=1
+7 ;;^UTILITY(U,$J,"DIST(.404,",48,40,"B",1,1)
+8 ;;=
+9 ;;^UTILITY(U,$J,"DIST(.404,",48,40,"B",2,2)
+10 ;;=
+11 ;;^UTILITY(U,$J,"DIST(.404,",49,0)
+12 ;;=XPD EDIT BUILD4^9.64
+13 ;;^UTILITY(U,$J,"DIST(.404,",49,40,0)
+14 ;;=^.4044I^18^7
+15 ;;^UTILITY(U,$J,"DIST(.404,",49,40,1,0)
+16 ;;=1^ DD Export Options ^1^
+17 ;;^UTILITY(U,$J,"DIST(.404,",49,40,1,2)
+18 ;;=^^1,27^1
+19 ;;^UTILITY(U,$J,"DIST(.404,",49,40,2,0)
+20 ;;=2^File^3^
+21 ;;^UTILITY(U,$J,"DIST(.404,",49,40,2,1)
+22 ;;=.01
+23 ;;^UTILITY(U,$J,"DIST(.404,",49,40,2,2)
+24 ;;=3,30^45^3,24
+25 ;;^UTILITY(U,$J,"DIST(.404,",49,40,7,0)
+26 ;;=7^Data Comes With File...^3^
+27 ;;^UTILITY(U,$J,"DIST(.404,",49,40,7,1)
+28 ;;=222.7
+29 ;;^UTILITY(U,$J,"DIST(.404,",49,40,7,2)
+30 ;;=12,33^3^12,8
+31 ;;^UTILITY(U,$J,"DIST(.404,",49,40,7,3)
+32 ;;=NO
+33 ;;^UTILITY(U,$J,"DIST(.404,",49,40,7,10)
+34 ;;=S:X="y" DDSSTACK=13
+35 ;;^UTILITY(U,$J,"DIST(.404,",49,40,7,13)
+36 ;;=D:X="y" PUT^DDSVAL(DIE,.DA,222.3,"f","","I")
+37 ;;^UTILITY(U,$J,"DIST(.404,",49,40,13,0)
+38 ;;=6^Screen to Determine DD Update^3
+39 ;;^UTILITY(U,$J,"DIST(.404,",49,40,13,1)
+40 ;;=223
+41 ;;^UTILITY(U,$J,"DIST(.404,",49,40,13,2)
+42 ;;=10,2^76^9,2^1
+43 ;;^UTILITY(U,$J,"DIST(.404,",49,40,14,0)
+44 ;;=5^Send Security Code^3
+45 ;;^UTILITY(U,$J,"DIST(.404,",49,40,14,1)
+46 ;;=222.2
+47 ;;^UTILITY(U,$J,"DIST(.404,",49,40,14,2)
+48 ;;=7,62^3^7,42
+49 ;;^UTILITY(U,$J,"DIST(.404,",49,40,14,3)
+50 ;;=YES
+51 ;;^UTILITY(U,$J,"DIST(.404,",49,40,16,0)
+52 ;;=4^Update the Data Dictionary^3
+53 ;;^UTILITY(U,$J,"DIST(.404,",49,40,16,1)
+54 ;;=222.1
+55 ;;^UTILITY(U,$J,"DIST(.404,",49,40,16,2)
+56 ;;=7,30^3^7,2
+57 ;;^UTILITY(U,$J,"DIST(.404,",49,40,16,3)
+58 ;;=YES
+59 ;;^UTILITY(U,$J,"DIST(.404,",49,40,18,0)
+60 ;;=3^Send Full or Partial DD...^3
+61 ;;^UTILITY(U,$J,"DIST(.404,",49,40,18,1)
+62 ;;=222.3
+63 ;;^UTILITY(U,$J,"DIST(.404,",49,40,18,2)
+64 ;;=5,33^7^5,5
+65 ;;^UTILITY(U,$J,"DIST(.404,",49,40,18,3)
+66 ;;=FULL
+67 ;;^UTILITY(U,$J,"DIST(.404,",49,40,18,10)
+68 ;;=S:X="p" DDSSTACK=11
+69 ;;^UTILITY(U,$J,"DIST(.404,",49,40,18,13)
+70 ;;=D:X="p" PUT^DDSVAL(DIE,.DA,222.7,"n","","I")
+71 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"B",1,1)
+72 ;;=
+73 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"B",2,2)
+74 ;;=
+75 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"B",3,18)
+76 ;;=
+77 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"B",4,16)
+78 ;;=
+79 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"B",5,14)
+80 ;;=
+81 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"B",6,13)
+82 ;;=
+83 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"B",7,7)
+84 ;;=
+85 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"C"," DD EXPORT OPTIONS ",1)
+86 ;;=
+87 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"C","DATA COMES WITH FILE...",7)
+88 ;;=
+89 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"C","FILE",2)
+90 ;;=
+91 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"C","SCREEN TO DETERMINE DD UPDATE",13)
+92 ;;=
+93 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"C","SEND FULL OR PARTIAL DD...",18)
+94 ;;=
+95 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"C","SEND SECURITY CODE",14)
+96 ;;=
+97 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"C","UPDATE THE DATA DICTIONARY",16)
+98 ;;=
+99 ;;^UTILITY(U,$J,"DIST(.404,",50,0)
+100 ;;=XPD EDIT BUILD5^9.402
+101 ;;^UTILITY(U,$J,"DIST(.404,",50,40,0)
+102 ;;=^.4044I^4^4
+103 ;;^UTILITY(U,$J,"DIST(.404,",50,40,1,0)
+104 ;;=1^ Affects Record Merge ^1^
+105 ;;^UTILITY(U,$J,"DIST(.404,",50,40,1,2)
+106 ;;=^^1,23^1
+107 ;;^UTILITY(U,$J,"DIST(.404,",50,40,2,0)
+108 ;;=2^File Affected^3^
+109 ;;^UTILITY(U,$J,"DIST(.404,",50,40,2,1)
+110 ;;=.01
+111 ;;^UTILITY(U,$J,"DIST(.404,",50,40,2,2)
+112 ;;=3,16^45^3,1
+113 ;;^UTILITY(U,$J,"DIST(.404,",50,40,3,0)
+114 ;;=3^Name of Merge Routine^3^
+115 ;;^UTILITY(U,$J,"DIST(.404,",50,40,3,1)
+116 ;;=3
+117 ;;^UTILITY(U,$J,"DIST(.404,",50,40,3,2)
+118 ;;=5,24^8^5,1
+119 ;;^UTILITY(U,$J,"DIST(.404,",50,40,4,0)
+120 ;;=4^Record has Package Data^3^
+121 ;;^UTILITY(U,$J,"DIST(.404,",50,40,4,1)
+122 ;;=4
+123 ;;^UTILITY(U,$J,"DIST(.404,",50,40,4,2)
+124 ;;=10,1^70^8,21^1
+125 ;;^UTILITY(U,$J,"DIST(.404,",50,40,"B",1,1)
+126 ;;=
+127 ;;^UTILITY(U,$J,"DIST(.404,",50,40,"B",2,2)
+128 ;;=
+129 ;;^UTILITY(U,$J,"DIST(.404,",50,40,"B",3,3)
+130 ;;=
+131 ;;^UTILITY(U,$J,"DIST(.404,",50,40,"B",4,4)
+132 ;;=
+133 ;;^UTILITY(U,$J,"DIST(.404,",50,40,"C"," AFFECTS RECORD MERGE ",1)
+134 ;;=
+135 ;;^UTILITY(U,$J,"DIST(.404,",50,40,"C","FILE AFFECTED",2)
+136 ;;=
+137 ;;^UTILITY(U,$J,"DIST(.404,",50,40,"C","NAME OF MERGE ROUTINE",3)
+138 ;;=
+139 ;;^UTILITY(U,$J,"DIST(.404,",50,40,"C","RECORD HAS PACKAGE DATA",4)
+140 ;;=
+141 ;;^UTILITY(U,$J,"DIST(.404,",51,0)
+142 ;;=XPD EDIT BUILD6^9.4
+143 ;;^UTILITY(U,$J,"DIST(.404,",51,11)
+144 ;;=I $G(XPDBR) S DDSBR="COM" K XPDBR
+145 ;;^UTILITY(U,$J,"DIST(.404,",51,40,0)
+146 ;;=^.4044I^5^2
+147 ;;^UTILITY(U,$J,"DIST(.404,",51,40,2,0)
+148 ;;=2^Select Affects Record Merge^3^
+149 ;;^UTILITY(U,$J,"DIST(.404,",51,40,2,1)
+150 ;;=20
+151 ;;^UTILITY(U,$J,"DIST(.404,",51,40,2,2)
+152 ;;=5,31^30^5,2
+153 ;;^UTILITY(U,$J,"DIST(.404,",51,40,2,7)
+154 ;;=^