Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XPDIN007

XPDIN007.m

Go to the documentation of this file. 
  1. XPDIN007 ; ; 03-JUL-1995
  1.  ;;8.0;KERNEL;;JUL 10, 1995
  1.  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
  1. Q Q
  1.  ;;^DD(9.641,.01,21,11,0)
  1.  ;;= 
  1.  ;;^DD(9.641,.01,21,12,0)
  1.  ;;=After selecting a valid DD NUMBER you will then be prompted to select
  1.  ;;^DD(9.641,.01,21,13,0)
  1.  ;;=field number(s).
  1.  ;;^DD(9.641,.01,21,14,0)
  1.  ;;= 
  1.  ;;^DD(9.641,.01,21,15,0)
  1.  ;;=If a DD NUMBER is selected and no fields are selected, KIDS will send all
  1.  ;;^DD(9.641,.01,21,16,0)
  1.  ;;=the fields contained within, including multiple fields below the selected
  1.  ;;^DD(9.641,.01,21,17,0)
  1.  ;;=level.
  1.  ;;^DD(9.641,.01,"DT")
  1.  ;;=2940829
  1.  ;;^DD(9.641,.02,0)
  1.  ;;=CHECKSUM^F^^0;2^K:$L(X)>30!($L(X)<3) X
  1.  ;;^DD(9.641,.02,3)
  1.  ;;=Answer must be 3-30 characters in length.
  1.  ;;^DD(9.641,.02,21,0)
  1.  ;;=^^1^1^2950330^
  1.  ;;^DD(9.641,.02,21,1,0)
  1.  ;;=This field contains the checksum for this subDD
  1.  ;;^DD(9.641,.02,"DT")
  1.  ;;=2950330
  1.  ;;^DD(9.641,1,0)
  1.  ;;=FIELD NUMBER^9.6411^^1;0
  1.  ;;^DD(9.641,1,"DT")
  1.  ;;=2940525
  1.  ;;^DD(9.6411,0)
  1.  ;;=FIELD NUMBER SUB-FIELD^^.02^2
  1.  ;;^DD(9.6411,0,"DT")
  1.  ;;=2950330
  1.  ;;^DD(9.6411,0,"NM","FIELD NUMBER")
  1.  ;;=
  1.  ;;^DD(9.6411,0,"UP")
  1.  ;;=9.641
  1.  ;;^DD(9.6411,.01,0)
  1.  ;;=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)
  1.  ;;^DD(9.6411,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(9.6411,.01,1,1,0)
  1.  ;;=9.64^APDD^MUMPS
  1.  ;;^DD(9.6411,.01,1,1,1)
  1.  ;;=S ^XPD(9.6,DA(3),4,"APDD",DA(2),DA(1),DA)=""
  1.  ;;^DD(9.6411,.01,1,1,2)
  1.  ;;=K ^XPD(9.6,DA(3),4,"APDD",DA(2),DA(1),DA)
  1.  ;;^DD(9.6411,.01,1,1,"%D",0)
  1.  ;;=^^2^2^2950117^
  1.  ;;^DD(9.6411,.01,1,1,"%D",1,0)
  1.  ;;=Used to create an array structure containing Partial DDs.  This array
  1.  ;;^DD(9.6411,.01,1,1,"%D",2,0)
  1.  ;;=is passed to FIA^DIFROMSU as a list of DD numbers and fields to transport.
  1.  ;;^DD(9.6411,.01,1,1,"DT")
  1.  ;;=2940525
  1.  ;;^DD(9.6411,.01,3)
  1.  ;;=Enter a valid field NUMBER.
  1.  ;;^DD(9.6411,.01,4)
  1.  ;;=D DDIOLFLD^DIFROMSD(D2,"M")
  1.  ;;^DD(9.6411,.01,21,0)
  1.  ;;=^^13^13^2940903^
  1.  ;;^DD(9.6411,.01,21,1,0)
  1.  ;;= 
  1.  ;;^DD(9.6411,.01,21,2,0)
  1.  ;;=Select field(s) to be sent for this Partial Data Dictionary.
  1.  ;;^DD(9.6411,.01,21,3,0)
  1.  ;;= 
  1.  ;;^DD(9.6411,.01,21,4,0)
  1.  ;;=Only the attributes for the field(s) selected are sent.  Attributes such
  1.  ;;^DD(9.6411,.01,21,5,0)
  1.  ;;=as identifers, "ID" nodes for a field, are not sent when sending a
  1.  ;;^DD(9.6411,.01,21,6,0)
  1.  ;;=partial. Some attributes are considered file attributes, such as
  1.  ;;^DD(9.6411,.01,21,7,0)
  1.  ;;=identifiers, and are only sent with a Full Data Dictionary.
  1.  ;;^DD(9.6411,.01,21,8,0)
  1.  ;;= 
  1.  ;;^DD(9.6411,.01,21,9,0)
  1.  ;;=If the .01 field for a sub-file, multiple, is selected, the field at the
  1.  ;;^DD(9.6411,.01,21,10,0)
  1.  ;;=level above, which points to the multiple, is automatically sent.
  1.  ;;^DD(9.6411,.01,21,11,0)
  1.  ;;= 
  1.  ;;^DD(9.6411,.01,21,12,0)
  1.  ;;=If no field is selected, all fields will be sent, as well as the multiple
  1.  ;;^DD(9.6411,.01,21,13,0)
  1.  ;;=fields below this level.
  1.  ;;^DD(9.6411,.01,"DT")
  1.  ;;=2940906
  1.  ;;^DD(9.6411,.02,0)
  1.  ;;=CHECKSUM^F^^0;2^K:$L(X)>30!($L(X)<3) X
  1.  ;;^DD(9.6411,.02,3)
  1.  ;;=Answer must be 3-30 characters in length.
  1.  ;;^DD(9.6411,.02,21,0)
  1.  ;;=^^1^1^2950330^
  1.  ;;^DD(9.6411,.02,21,1,0)
  1.  ;;=This field contains the checksum for this field.
  1.  ;;^DD(9.6411,.02,"DT")
  1.  ;;=2950330
  1.  ;;^DD(9.65,0)
  1.  ;;=GLOBAL SUB-FIELD^^1^2
  1.  ;;^DD(9.65,0,"DT")
  1.  ;;=2950105
  1.  ;;^DD(9.65,0,"IX","B",9.65,.01)
  1.  ;;=
  1.  ;;^DD(9.65,0,"NM","GLOBAL")
  1.  ;;=
  1.  ;;^DD(9.65,0,"UP")
  1.  ;;=9.6
  1.  ;;^DD(9.65,.01,0)
  1.  ;;=GLOBAL^MFXO^^0;1^D GLOBALE^XPDET(.X)
  1.  ;;^DD(9.65,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(9.65,.01,1,1,0)
  1.  ;;=9.65^B
  1.  ;;^DD(9.65,.01,1,1,1)
  1.  ;;=S ^XPD(9.6,DA(1),"GLO","B",$E(X,1,30),DA)=""
  1.  ;;^DD(9.65,.01,1,1,2)
  1.  ;;=K ^XPD(9.6,DA(1),"GLO","B",$E(X,1,30),DA)
  1.  ;;^DD(9.65,.01,2)
  1.  ;;=S Y(0)=Y S Y=$TR(Y,"'","""")
  1.  ;;^DD(9.65,.01,2.1)
  1.  ;;=S Y=$TR(Y,"'","""")
  1.  ;;^DD(9.65,.01,3)
  1.  ;;=Answer must be 2-30 characters in length and not begining with "^".
  1.  ;;^DD(9.65,.01,7.5)
  1.  ;;=S X=$TR(X,"""","'")
  1.  ;;^DD(9.65,.01,21,0)
  1.  ;;=^^2^2^2950105^^^
  1.  ;;^DD(9.65,.01,21,1,0)
  1.  ;;=Enter a global name or a closed global root you want to transport.
  1.  ;;^DD(9.65,.01,21,2,0)
  1.  ;;=The global should not begin with a "^". i.e.  %ZIS(2).
  1.  ;;^DD(9.65,.01,"DT")
  1.  ;;=2950106
  1.  ;;^DD(9.65,1,0)
  1.  ;;=KILL GLOBAL BEFORE INSTALL^S^y:YES;n:NO;^0;2^Q
  1.  ;;^DD(9.65,1,21,0)
  1.  ;;=^^5^5^2950105^
  1.  ;;^DD(9.65,1,21,1,0)
  1.  ;;=YES means that you want this global killed before it is installed
  1.  ;;^DD(9.65,1,21,2,0)
  1.  ;;=at the installing site.
  1.  ;;^DD(9.65,1,21,3,0)
  1.  ;;= 
  1.  ;;^DD(9.65,1,21,4,0)
  1.  ;;=NO means you want this global install on top of the existing global
  1.  ;;^DD(9.65,1,21,5,0)
  1.  ;;=at the installing site.
  1.  ;;^DD(9.65,1,"DT")
  1.  ;;=2950105
  1.  ;;^DD(9.66,0)
  1.  ;;=PACKAGE NAMESPACE OR PREFIX SUB-FIELD^^1^2
  1.  ;;^DD(9.66,0,"DT")
  1.  ;;=2940307