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