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

XPDIN005.m

Go to the documentation of this file. 
  1. XPDIN005 ; ; 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.64,222.2,21,3,0)
  1.  ;;=only be installed if the file is new at the installing site.
  1.  ;;^DD(9.64,222.2,21,4,0)
  1.  ;;= 
  1.  ;;^DD(9.64,222.2,21,5,0)
  1.  ;;=NO means you do not want to include security codes.
  1.  ;;^DD(9.64,222.2,"DT")
  1.  ;;=2940211
  1.  ;;^DD(9.64,222.3,0)
  1.  ;;=SEND FULL OR PARTIAL DD^S^f:FULL;p:PARTIAL;^222;3^Q
  1.  ;;^DD(9.64,222.3,1,0)
  1.  ;;=^.1
  1.  ;;^DD(9.64,222.3,1,1,0)
  1.  ;;=^^TRIGGER^9.64^222.7
  1.  ;;^DD(9.64,222.3,1,1,1)
  1.  ;;=X ^DD(9.64,222.3,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^XPD(9.6,D0,4,D1,222)):^(222),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X="n" X ^DD(9.64,222.3,1,1,1.4)
  1.  ;;^DD(9.64,222.3,1,1,1.3)
  1.  ;;=K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(9.64,222.3,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="PARTIAL"
  1.  ;;^DD(9.64,222.3,1,1,1.4)
  1.  ;;=S DIH=$S($D(^XPD(9.6,DIV(0),4,DIV(1),222)):^(222),1:""),DIV=X S $P(^(222),U,7)=DIV,DIH=9.64,DIG=222.7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
  1.  ;;^DD(9.64,222.3,1,1,2)
  1.  ;;=Q
  1.  ;;^DD(9.64,222.3,1,1,"%D",0)
  1.  ;;=^^2^2^2941220^
  1.  ;;^DD(9.64,222.3,1,1,"%D",1,0)
  1.  ;;=This cross-reference sets the DATA COMES WITH FILE field to 'NO' if the
  1.  ;;^DD(9.64,222.3,1,1,"%D",2,0)
  1.  ;;=Data Dictionary is a PARTIAL.
  1.  ;;^DD(9.64,222.3,1,1,"CREATE CONDITION")
  1.  ;;=SEND FULL OR PARTIAL DD="PARTIAL"
  1.  ;;^DD(9.64,222.3,1,1,"CREATE VALUE")
  1.  ;;="n"
  1.  ;;^DD(9.64,222.3,1,1,"DELETE VALUE")
  1.  ;;=NO EFFECT
  1.  ;;^DD(9.64,222.3,1,1,"DT")
  1.  ;;=2941220
  1.  ;;^DD(9.64,222.3,1,1,"FIELD")
  1.  ;;=#222.7
  1.  ;;^DD(9.64,222.3,1,2,0)
  1.  ;;=9.64^AC^MUMPS
  1.  ;;^DD(9.64,222.3,1,2,1)
  1.  ;;=K:X="f" ^XPD(9.6,DA(1),4,DA,2),^XPD(9.6,DA(1),4,"APDD",DA)
  1.  ;;^DD(9.64,222.3,1,2,2)
  1.  ;;=Q
  1.  ;;^DD(9.64,222.3,1,2,"%D",0)
  1.  ;;=^^2^2^2941220^
  1.  ;;^DD(9.64,222.3,1,2,"%D",1,0)
  1.  ;;=This cross-reference is to clean up the partial DD information when
  1.  ;;^DD(9.64,222.3,1,2,"%D",2,0)
  1.  ;;=you send a Full DD.
  1.  ;;^DD(9.64,222.3,1,2,"DT")
  1.  ;;=2941220
  1.  ;;^DD(9.64,222.3,5,1,0)
  1.  ;;=9.64^222.7^1
  1.  ;;^DD(9.64,222.3,"DT")
  1.  ;;=2941220
  1.  ;;^DD(9.64,222.5,0)
  1.  ;;=RESOLVE POINTERS^S^y:YES;n:NO;^222;5^Q
  1.  ;;^DD(9.64,222.5,21,0)
  1.  ;;=^^4^4^2941108^
  1.  ;;^DD(9.64,222.5,21,1,0)
  1.  ;;=YES means you want to have all pointer type fields values resolved at the
  1.  ;;^DD(9.64,222.5,21,2,0)
  1.  ;;=installing site.
  1.  ;;^DD(9.64,222.5,21,3,0)
  1.  ;;= 
  1.  ;;^DD(9.64,222.5,21,4,0)
  1.  ;;=NO means you want any pointer type field values resolved.
  1.  ;;^DD(9.64,222.5,"DT")
  1.  ;;=2940601
  1.  ;;^DD(9.64,222.6,0)
  1.  ;;=DATA LIST^FX^^222;6^S X=$$SEL^DIFROMSS(D1,X) K:X="" X
  1.  ;;^DD(9.64,222.6,3)
  1.  ;;=Select Sort Template containing the list of records to transport, for this file.
  1.  ;;^DD(9.64,222.6,4)
  1.  ;;=D HELP^DIFROMSS(D1)
  1.  ;;^DD(9.64,222.6,12)
  1.  ;;=Must be a sort list
  1.  ;;^DD(9.64,222.6,12.1)
  1.  ;;=S DIC("S")="I $P(^(0),U,4)=D1,$D(^(1))>9"
  1.  ;;^DD(9.64,222.6,21,0)
  1.  ;;=^^2^2^2940720^^^^
  1.  ;;^DD(9.64,222.6,21,1,0)
  1.  ;;=This is the results of a search, which is stored in a Sort template.  This
  1.  ;;^DD(9.64,222.6,21,2,0)
  1.  ;;=Sort list will contain the records to be transported.
  1.  ;;^DD(9.64,222.6,"DT")
  1.  ;;=2940720
  1.  ;;^DD(9.64,222.7,0)
  1.  ;;=DATA COMES WITH FILE^S^y:YES;n:NO;^222;7^Q
  1.  ;;^DD(9.64,222.7,1,0)
  1.  ;;=^.1
  1.  ;;^DD(9.64,222.7,1,1,0)
  1.  ;;=^^TRIGGER^9.64^222.3
  1.  ;;^DD(9.64,222.7,1,1,1)
  1.  ;;=X ^DD(9.64,222.7,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^XPD(9.6,D0,4,D1,222)):^(222),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X="f" X ^DD(9.64,222.7,1,1,1.4)
  1.  ;;^DD(9.64,222.7,1,1,1.3)
  1.  ;;=K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(9.64,222.7,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="YES"
  1.  ;;^DD(9.64,222.7,1,1,1.4)
  1.  ;;=S DIH=$S($D(^XPD(9.6,DIV(0),4,DIV(1),222)):^(222),1:""),DIV=X S $P(^(222),U,3)=DIV,DIH=9.64,DIG=222.3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
  1.  ;;^DD(9.64,222.7,1,1,2)
  1.  ;;=Q
  1.  ;;^DD(9.64,222.7,1,1,"%D",0)
  1.  ;;=^^2^2^2941220^
  1.  ;;^DD(9.64,222.7,1,1,"%D",1,0)
  1.  ;;=This cross-reference sets the SEND FULL OR PATIAL DD field to FULL
  1.  ;;^DD(9.64,222.7,1,1,"%D",2,0)
  1.  ;;=when sending data with a file.
  1.  ;;^DD(9.64,222.7,1,1,"CREATE CONDITION")
  1.  ;;=DATA COMES WITH FILE="YES"
  1.  ;;^DD(9.64,222.7,1,1,"CREATE VALUE")
  1.  ;;="f"
  1.  ;;^DD(9.64,222.7,1,1,"DELETE VALUE")
  1.  ;;=NO EFFECT
  1.  ;;^DD(9.64,222.7,1,1,"DT")
  1.  ;;=2941220
  1.  ;;^DD(9.64,222.7,1,1,"FIELD")
  1.  ;;=#222.3
  1.  ;;^DD(9.64,222.7,5,1,0)
  1.  ;;=9.64^222.3^1
  1.  ;;^DD(9.64,222.7,21,0)
  1.  ;;=^^4^4^2920513^^^^
  1.  ;;^DD(9.64,222.7,21,1,0)
  1.  ;;=YES means that the data should be included in the initialization
  1.  ;;^DD(9.64,222.7,21,2,0)
  1.  ;;=routines.
  1.  ;;^DD(9.64,222.7,21,3,0)
  1.  ;;= 
  1.  ;;^DD(9.64,222.7,21,4,0)
  1.  ;;=NO means that the data should be left out.
  1.  ;;^DD(9.64,222.7,"DT")
  1.  ;;=2941220
  1.  ;;^DD(9.64,222.8,0)
  1.  ;;=SITE'S DATA^S^a:ADD ONLY IF NEW FILE;m:MERGE;o:OVERWRITE;r:REPLACE;^222;8^Q