XPDIN007 ; ; 03-JUL-1995
;;8.0;KERNEL;;JUL 10, 1995
Q:'DIFQ(9.6) 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
;;^DD(9.641,.01,21,11,0)
;;=
;;^DD(9.641,.01,21,12,0)
;;=After selecting a valid DD NUMBER you will then be prompted to select
;;^DD(9.641,.01,21,13,0)
;;=field number(s).
;;^DD(9.641,.01,21,14,0)
;;=
;;^DD(9.641,.01,21,15,0)
;;=If a DD NUMBER is selected and no fields are selected, KIDS will send all
;;^DD(9.641,.01,21,16,0)
;;=the fields contained within, including multiple fields below the selected
;;^DD(9.641,.01,21,17,0)
;;=level.
;;^DD(9.641,.01,"DT")
;;=2940829
;;^DD(9.641,.02,0)
;;=CHECKSUM^F^^0;2^K:$L(X)>30!($L(X)<3) X
;;^DD(9.641,.02,3)
;;=Answer must be 3-30 characters in length.
;;^DD(9.641,.02,21,0)
;;=^^1^1^2950330^
;;^DD(9.641,.02,21,1,0)
;;=This field contains the checksum for this subDD
;;^DD(9.641,.02,"DT")
;;=2950330
;;^DD(9.641,1,0)
;;=FIELD NUMBER^9.6411^^1;0
;;^DD(9.641,1,"DT")
;;=2940525
;;^DD(9.6411,0)
;;=FIELD NUMBER SUB-FIELD^^.02^2
;;^DD(9.6411,0,"DT")
;;=2950330
;;^DD(9.6411,0,"NM","FIELD NUMBER")
;;=
;;^DD(9.6411,0,"UP")
;;=9.641
;;^DD(9.6411,.01,0)
;;=FIELD NUMBER^MFX^^0;1^K:X[""""!($A(X)=45) X I $D(X) S X=$$FLDCHK^DIFROMSD(D2,+$G(X),"MN") K:X'>0 X S:$D(X) DINUM=+X,X=$P(X,"^",2)
;;^DD(9.6411,.01,1,0)
;;=^.1
;;^DD(9.6411,.01,1,1,0)
;;=9.64^APDD^MUMPS
;;^DD(9.6411,.01,1,1,1)
;;=S ^XPD(9.6,DA(3),4,"APDD",DA(2),DA(1),DA)=""
;;^DD(9.6411,.01,1,1,2)
;;=K ^XPD(9.6,DA(3),4,"APDD",DA(2),DA(1),DA)
;;^DD(9.6411,.01,1,1,"%D",0)
;;=^^2^2^2950117^
;;^DD(9.6411,.01,1,1,"%D",1,0)
;;=Used to create an array structure containing Partial DDs. This array
;;^DD(9.6411,.01,1,1,"%D",2,0)
;;=is passed to FIA^DIFROMSU as a list of DD numbers and fields to transport.
;;^DD(9.6411,.01,1,1,"DT")
;;=2940525
;;^DD(9.6411,.01,3)
;;=Enter a valid field NUMBER.
;;^DD(9.6411,.01,4)
;;=D DDIOLFLD^DIFROMSD(D2,"M")
;;^DD(9.6411,.01,21,0)
;;=^^13^13^2940903^
;;^DD(9.6411,.01,21,1,0)
;;=
;;^DD(9.6411,.01,21,2,0)
;;=Select field(s) to be sent for this Partial Data Dictionary.
;;^DD(9.6411,.01,21,3,0)
;;=
;;^DD(9.6411,.01,21,4,0)
;;=Only the attributes for the field(s) selected are sent. Attributes such
;;^DD(9.6411,.01,21,5,0)
;;=as identifers, "ID" nodes for a field, are not sent when sending a
;;^DD(9.6411,.01,21,6,0)
;;=partial. Some attributes are considered file attributes, such as
;;^DD(9.6411,.01,21,7,0)
;;=identifiers, and are only sent with a Full Data Dictionary.
;;^DD(9.6411,.01,21,8,0)
;;=
;;^DD(9.6411,.01,21,9,0)
;;=If the .01 field for a sub-file, multiple, is selected, the field at the
;;^DD(9.6411,.01,21,10,0)
;;=level above, which points to the multiple, is automatically sent.
;;^DD(9.6411,.01,21,11,0)
;;=
;;^DD(9.6411,.01,21,12,0)
;;=If no field is selected, all fields will be sent, as well as the multiple
;;^DD(9.6411,.01,21,13,0)
;;=fields below this level.
;;^DD(9.6411,.01,"DT")
;;=2940906
;;^DD(9.6411,.02,0)
;;=CHECKSUM^F^^0;2^K:$L(X)>30!($L(X)<3) X
;;^DD(9.6411,.02,3)
;;=Answer must be 3-30 characters in length.
;;^DD(9.6411,.02,21,0)
;;=^^1^1^2950330^
;;^DD(9.6411,.02,21,1,0)
;;=This field contains the checksum for this field.
;;^DD(9.6411,.02,"DT")
;;=2950330
;;^DD(9.65,0)
;;=GLOBAL SUB-FIELD^^1^2
;;^DD(9.65,0,"DT")
;;=2950105
;;^DD(9.65,0,"IX","B",9.65,.01)
;;=
;;^DD(9.65,0,"NM","GLOBAL")
;;=
;;^DD(9.65,0,"UP")
;;=9.6
;;^DD(9.65,.01,0)
;;=GLOBAL^MFXO^^0;1^D GLOBALE^XPDET(.X)
;;^DD(9.65,.01,1,0)
;;=^.1
;;^DD(9.65,.01,1,1,0)
;;=9.65^B
;;^DD(9.65,.01,1,1,1)
;;=S ^XPD(9.6,DA(1),"GLO","B",$E(X,1,30),DA)=""
;;^DD(9.65,.01,1,1,2)
;;=K ^XPD(9.6,DA(1),"GLO","B",$E(X,1,30),DA)
;;^DD(9.65,.01,2)
;;=S Y(0)=Y S Y=$TR(Y,"'","""")
;;^DD(9.65,.01,2.1)
;;=S Y=$TR(Y,"'","""")
;;^DD(9.65,.01,3)
;;=Answer must be 2-30 characters in length and not begining with "^".
;;^DD(9.65,.01,7.5)
;;=S X=$TR(X,"""","'")
;;^DD(9.65,.01,21,0)
;;=^^2^2^2950105^^^
;;^DD(9.65,.01,21,1,0)
;;=Enter a global name or a closed global root you want to transport.
;;^DD(9.65,.01,21,2,0)
;;=The global should not begin with a "^". i.e. %ZIS(2).
;;^DD(9.65,.01,"DT")
;;=2950106
;;^DD(9.65,1,0)
;;=KILL GLOBAL BEFORE INSTALL^S^y:YES;n:NO;^0;2^Q
;;^DD(9.65,1,21,0)
;;=^^5^5^2950105^
;;^DD(9.65,1,21,1,0)
;;=YES means that you want this global killed before it is installed
;;^DD(9.65,1,21,2,0)
;;=at the installing site.
;;^DD(9.65,1,21,3,0)
;;=
;;^DD(9.65,1,21,4,0)
;;=NO means you want this global install on top of the existing global
;;^DD(9.65,1,21,5,0)
;;=at the installing site.
;;^DD(9.65,1,"DT")
;;=2950105
;;^DD(9.66,0)
;;=PACKAGE NAMESPACE OR PREFIX SUB-FIELD^^1^2
;;^DD(9.66,0,"DT")
;;=2940307
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXPDIN007 4998 printed Apr 09, 2024@21:11:02 Page 2
XPDIN007 ; ; 03-JUL-1995
+1 ;;8.0;KERNEL;;JUL 10, 1995
+2 if 'DIFQ(9.6)
QUIT
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 ;;^DD(9.641,.01,21,11,0)
+2 ;;=
+3 ;;^DD(9.641,.01,21,12,0)
+4 ;;=After selecting a valid DD NUMBER you will then be prompted to select
+5 ;;^DD(9.641,.01,21,13,0)
+6 ;;=field number(s).
+7 ;;^DD(9.641,.01,21,14,0)
+8 ;;=
+9 ;;^DD(9.641,.01,21,15,0)
+10 ;;=If a DD NUMBER is selected and no fields are selected, KIDS will send all
+11 ;;^DD(9.641,.01,21,16,0)
+12 ;;=the fields contained within, including multiple fields below the selected
+13 ;;^DD(9.641,.01,21,17,0)
+14 ;;=level.
+15 ;;^DD(9.641,.01,"DT")
+16 ;;=2940829
+17 ;;^DD(9.641,.02,0)
+18 ;;=CHECKSUM^F^^0;2^K:$L(X)>30!($L(X)<3) X
+19 ;;^DD(9.641,.02,3)
+20 ;;=Answer must be 3-30 characters in length.
+21 ;;^DD(9.641,.02,21,0)
+22 ;;=^^1^1^2950330^
+23 ;;^DD(9.641,.02,21,1,0)
+24 ;;=This field contains the checksum for this subDD
+25 ;;^DD(9.641,.02,"DT")
+26 ;;=2950330
+27 ;;^DD(9.641,1,0)
+28 ;;=FIELD NUMBER^9.6411^^1;0
+29 ;;^DD(9.641,1,"DT")
+30 ;;=2940525
+31 ;;^DD(9.6411,0)
+32 ;;=FIELD NUMBER SUB-FIELD^^.02^2
+33 ;;^DD(9.6411,0,"DT")
+34 ;;=2950330
+35 ;;^DD(9.6411,0,"NM","FIELD NUMBER")
+36 ;;=
+37 ;;^DD(9.6411,0,"UP")
+38 ;;=9.641
+39 ;;^DD(9.6411,.01,0)
+40 ;;=FIELD NUMBER^MFX^^0;1^K:X[""""!($A(X)=45) X I $D(X) S X=$$FLDCHK^DIFROMSD(D2,+$G(X),"MN") K:X'>0 X S:$D(X) DINUM=+X,X=$P(X,"^",2)
+41 ;;^DD(9.6411,.01,1,0)
+42 ;;=^.1
+43 ;;^DD(9.6411,.01,1,1,0)
+44 ;;=9.64^APDD^MUMPS
+45 ;;^DD(9.6411,.01,1,1,1)
+46 ;;=S ^XPD(9.6,DA(3),4,"APDD",DA(2),DA(1),DA)=""
+47 ;;^DD(9.6411,.01,1,1,2)
+48 ;;=K ^XPD(9.6,DA(3),4,"APDD",DA(2),DA(1),DA)
+49 ;;^DD(9.6411,.01,1,1,"%D",0)
+50 ;;=^^2^2^2950117^
+51 ;;^DD(9.6411,.01,1,1,"%D",1,0)
+52 ;;=Used to create an array structure containing Partial DDs. This array
+53 ;;^DD(9.6411,.01,1,1,"%D",2,0)
+54 ;;=is passed to FIA^DIFROMSU as a list of DD numbers and fields to transport.
+55 ;;^DD(9.6411,.01,1,1,"DT")
+56 ;;=2940525
+57 ;;^DD(9.6411,.01,3)
+58 ;;=Enter a valid field NUMBER.
+59 ;;^DD(9.6411,.01,4)
+60 ;;=D DDIOLFLD^DIFROMSD(D2,"M")
+61 ;;^DD(9.6411,.01,21,0)
+62 ;;=^^13^13^2940903^
+63 ;;^DD(9.6411,.01,21,1,0)
+64 ;;=
+65 ;;^DD(9.6411,.01,21,2,0)
+66 ;;=Select field(s) to be sent for this Partial Data Dictionary.
+67 ;;^DD(9.6411,.01,21,3,0)
+68 ;;=
+69 ;;^DD(9.6411,.01,21,4,0)
+70 ;;=Only the attributes for the field(s) selected are sent. Attributes such
+71 ;;^DD(9.6411,.01,21,5,0)
+72 ;;=as identifers, "ID" nodes for a field, are not sent when sending a
+73 ;;^DD(9.6411,.01,21,6,0)
+74 ;;=partial. Some attributes are considered file attributes, such as
+75 ;;^DD(9.6411,.01,21,7,0)
+76 ;;=identifiers, and are only sent with a Full Data Dictionary.
+77 ;;^DD(9.6411,.01,21,8,0)
+78 ;;=
+79 ;;^DD(9.6411,.01,21,9,0)
+80 ;;=If the .01 field for a sub-file, multiple, is selected, the field at the
+81 ;;^DD(9.6411,.01,21,10,0)
+82 ;;=level above, which points to the multiple, is automatically sent.
+83 ;;^DD(9.6411,.01,21,11,0)
+84 ;;=
+85 ;;^DD(9.6411,.01,21,12,0)
+86 ;;=If no field is selected, all fields will be sent, as well as the multiple
+87 ;;^DD(9.6411,.01,21,13,0)
+88 ;;=fields below this level.
+89 ;;^DD(9.6411,.01,"DT")
+90 ;;=2940906
+91 ;;^DD(9.6411,.02,0)
+92 ;;=CHECKSUM^F^^0;2^K:$L(X)>30!($L(X)<3) X
+93 ;;^DD(9.6411,.02,3)
+94 ;;=Answer must be 3-30 characters in length.
+95 ;;^DD(9.6411,.02,21,0)
+96 ;;=^^1^1^2950330^
+97 ;;^DD(9.6411,.02,21,1,0)
+98 ;;=This field contains the checksum for this field.
+99 ;;^DD(9.6411,.02,"DT")
+100 ;;=2950330
+101 ;;^DD(9.65,0)
+102 ;;=GLOBAL SUB-FIELD^^1^2
+103 ;;^DD(9.65,0,"DT")
+104 ;;=2950105
+105 ;;^DD(9.65,0,"IX","B",9.65,.01)
+106 ;;=
+107 ;;^DD(9.65,0,"NM","GLOBAL")
+108 ;;=
+109 ;;^DD(9.65,0,"UP")
+110 ;;=9.6
+111 ;;^DD(9.65,.01,0)
+112 ;;=GLOBAL^MFXO^^0;1^D GLOBALE^XPDET(.X)
+113 ;;^DD(9.65,.01,1,0)
+114 ;;=^.1
+115 ;;^DD(9.65,.01,1,1,0)
+116 ;;=9.65^B
+117 ;;^DD(9.65,.01,1,1,1)
+118 ;;=S ^XPD(9.6,DA(1),"GLO","B",$E(X,1,30),DA)=""
+119 ;;^DD(9.65,.01,1,1,2)
+120 ;;=K ^XPD(9.6,DA(1),"GLO","B",$E(X,1,30),DA)
+121 ;;^DD(9.65,.01,2)
+122 ;;=S Y(0)=Y S Y=$TR(Y,"'","""")
+123 ;;^DD(9.65,.01,2.1)
+124 ;;=S Y=$TR(Y,"'","""")
+125 ;;^DD(9.65,.01,3)
+126 ;;=Answer must be 2-30 characters in length and not begining with "^".
+127 ;;^DD(9.65,.01,7.5)
+128 ;;=S X=$TR(X,"""","'")
+129 ;;^DD(9.65,.01,21,0)
+130 ;;=^^2^2^2950105^^^
+131 ;;^DD(9.65,.01,21,1,0)
+132 ;;=Enter a global name or a closed global root you want to transport.
+133 ;;^DD(9.65,.01,21,2,0)
+134 ;;=The global should not begin with a "^". i.e. %ZIS(2).
+135 ;;^DD(9.65,.01,"DT")
+136 ;;=2950106
+137 ;;^DD(9.65,1,0)
+138 ;;=KILL GLOBAL BEFORE INSTALL^S^y:YES;n:NO;^0;2^Q
+139 ;;^DD(9.65,1,21,0)
+140 ;;=^^5^5^2950105^
+141 ;;^DD(9.65,1,21,1,0)
+142 ;;=YES means that you want this global killed before it is installed
+143 ;;^DD(9.65,1,21,2,0)
+144 ;;=at the installing site.
+145 ;;^DD(9.65,1,21,3,0)
+146 ;;=
+147 ;;^DD(9.65,1,21,4,0)
+148 ;;=NO means you want this global install on top of the existing global
+149 ;;^DD(9.65,1,21,5,0)
+150 ;;=at the installing site.
+151 ;;^DD(9.65,1,"DT")
+152 ;;=2950105
+153 ;;^DD(9.66,0)
+154 ;;=PACKAGE NAMESPACE OR PREFIX SUB-FIELD^^1^2
+155 ;;^DD(9.66,0,"DT")
+156 ;;=2940307
