Annotation of freem_fileman/DIPKI008.m, revision 1.1
1.1 ! snw 1: DIPKI008 ; ; 22-DEC-1994
! 2: ;;21.0;VA FileMan;;Dec 28, 1994
! 3: ;Per VHA Directive 10-93-142, this routine should not be modified.
! 4: Q:'DIFQ(9.4) 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
! 5: Q Q
! 6: ;;^DD(9.44,222.7,"DT")
! 7: ;;=2940502
! 8: ;;^DD(9.44,222.8,0)
! 9: ;;=MERGE OR OVERWRITE SITE'S DATA^S^m:MERGE;o:OVERWRITE;^222;8^Q
! 10: ;;^DD(9.44,222.8,3)
! 11: ;;=
! 12: ;;^DD(9.44,222.8,21,0)
! 13: ;;=^^7^7^2920513^^^^
! 14: ;;^DD(9.44,222.8,21,1,0)
! 15: ;;=
! 16: ;;^DD(9.44,222.8,21,2,0)
! 17: ;;=If the data being sent is to be MERGED, then only data which is not
! 18: ;;^DD(9.44,222.8,21,3,0)
! 19: ;;=already on file at the recipient site will be put in place.
! 20: ;;^DD(9.44,222.8,21,4,0)
! 21: ;;=
! 22: ;;^DD(9.44,222.8,21,5,0)
! 23: ;;=If the data being sent is to OVERWRITE, then the data included in
! 24: ;;^DD(9.44,222.8,21,6,0)
! 25: ;;=the initialization routines will be put in place regardless of what
! 26: ;;^DD(9.44,222.8,21,7,0)
! 27: ;;=is on file at the recipient site.
! 28: ;;^DD(9.44,222.8,"DT")
! 29: ;;=2890627
! 30: ;;^DD(9.44,222.9,0)
! 31: ;;=MAY USER OVERRIDE DATA UPDATE^S^y:YES;n:NO;^222;9^Q
! 32: ;;^DD(9.44,222.9,3)
! 33: ;;=
! 34: ;;^DD(9.44,222.9,21,0)
! 35: ;;=^^7^7^2920513^^^^
! 36: ;;^DD(9.44,222.9,21,1,0)
! 37: ;;=YES means that the user has the option to determine whether or not
! 38: ;;^DD(9.44,222.9,21,2,0)
! 39: ;;=to bring in the data that has been sent with the package. However,
! 40: ;;^DD(9.44,222.9,21,3,0)
! 41: ;;=he does not get the ability to change from merge to overwrite or
! 42: ;;^DD(9.44,222.9,21,4,0)
! 43: ;;=from overwrite to merge.
! 44: ;;^DD(9.44,222.9,21,5,0)
! 45: ;;=
! 46: ;;^DD(9.44,222.9,21,6,0)
! 47: ;;=No means that the developer of the INIT will control whether the data
! 48: ;;^DD(9.44,222.9,21,7,0)
! 49: ;;=will be installed at the target site.
! 50: ;;^DD(9.44,222.9,"DT")
! 51: ;;=2940502
! 52: ;;^DD(9.44,223,0)
! 53: ;;=SCREEN TO DETERMINE DD UPDATE^KX^^223;E1,245^K:$L(X)>240 X I $D(X) D ^DIM
! 54: ;;^DD(9.44,223,3)
! 55: ;;=This is Standard MUMPS code from 1 to 240 characters in length.
! 56: ;;^DD(9.44,223,9)
! 57: ;;=@
! 58: ;;^DD(9.44,223,21,0)
! 59: ;;=^^7^7^2920513^^
! 60: ;;^DD(9.44,223,21,1,0)
! 61: ;;=This field contains standard MUMPS code which is used to determine
! 62: ;;^DD(9.44,223,21,2,0)
! 63: ;;=whether or not a data dictionary should be updated. This code must
! 64: ;;^DD(9.44,223,21,3,0)
! 65: ;;=set $T. If $T=1, the DD will be updated. If $T=0, it will not.
! 66: ;;^DD(9.44,223,21,4,0)
! 67: ;;=
! 68: ;;^DD(9.44,223,21,5,0)
! 69: ;;=This code will be executed within VA FileMan which may be being called
! 70: ;;^DD(9.44,223,21,6,0)
! 71: ;;=from within MailMan which is being called from within MenuMan.
! 72: ;;^DD(9.44,223,21,7,0)
! 73: ;;=Namespace your variables.
! 74: ;;^DD(9.44,223,"DT")
! 75: ;;=2890927
! 76: ;;^DD(9.444,0)
! 77: ;;=*STATUS SUB-FIELD^NL^2^4
! 78: ;;^DD(9.444,0,"NM","*STATUS")
! 79: ;;=
! 80: ;;^DD(9.444,0,"UP")
! 81: ;;=9.4
! 82: ;;^DD(9.444,.01,0)
! 83: ;;=DATE^DX^^0;1^S %DT="E" D ^%DT S (DINUM,X)=Y K:Y<1 X,DINUM
! 84: ;;^DD(9.444,.01,3)
! 85: ;;=Please enter the date at which the current status took effect.
! 86: ;;^DD(9.444,.01,21,0)
! 87: ;;=^^1^1^2851008^^
! 88: ;;^DD(9.444,.01,21,1,0)
! 89: ;;=This is the date at which the current status took effect.
! 90: ;;^DD(9.444,.01,"DT")
! 91: ;;=2840814
! 92: ;;^DD(9.444,1,0)
! 93: ;;=STATUS^S^A:ASSIGNED;P:PENDING;T:TEMPORARY;X:NO LONGER USED;^0;2^Q
! 94: ;;^DD(9.444,1,21,0)
! 95: ;;=^^2^2^2851008^
! 96: ;;^DD(9.444,1,21,1,0)
! 97: ;;=This specifies the current status of the namespace, i.e. Temporary,
! 98: ;;^DD(9.444,1,21,2,0)
! 99: ;;=Pending, Assigned, etc.
! 100: ;;^DD(9.444,1,"DT")
! 101: ;;=2840814
! 102: ;;^DD(9.444,1.5,0)
! 103: ;;=EXPIRATION DATE^D^^2;1^S %DT="E" D ^%DT S X=Y K:Y<1 X
! 104: ;;^DD(9.444,1.5,3)
! 105: ;;=Please enter the date at which the namespace was de-assigned.
! 106: ;;^DD(9.444,1.5,21,0)
! 107: ;;=^^2^2^2851008^^
! 108: ;;^DD(9.444,1.5,21,1,0)
! 109: ;;=This is the date at which the assignment of the namespace to
! 110: ;;^DD(9.444,1.5,21,2,0)
! 111: ;;=this Package expired.
! 112: ;;^DD(9.444,1.5,"DT")
! 113: ;;=2840815
! 114: ;;^DD(9.444,2,0)
! 115: ;;=COMMENTS^9.454^^1;0
! 116: ;;^DD(9.444,2,21,0)
! 117: ;;=^^1^1^2851008^
! 118: ;;^DD(9.444,2,21,1,0)
! 119: ;;=These are any comments about the status of this Package's namespace.
! 120: ;;^DD(9.45,0)
! 121: ;;=FIELD SUB-FIELD^NL^.01^1
! 122: ;;^DD(9.45,0,"IX","B",9.45,.01)
! 123: ;;=
! 124: ;;^DD(9.45,0,"NM","FIELD")
! 125: ;;=
! 126: ;;^DD(9.45,0,"UP")
! 127: ;;=9.44
! 128: ;;^DD(9.45,.01,0)
! 129: ;;=FIELD^MFX^^0;1^S %=+^DIC(9.4,DA(2),4,DA(1),0),X=$S($L(X)>30:X,$D(^DD(%,"B",X)):X,X'?.NP:0,'$D(^DD(%,X,0)):0,1:$P(^(0),U,1)) K:X=0 X
! 130: ;;^DD(9.45,.01,.1)
! 131: ;;=FIELDS REQUIRED FOR THE PACKAGE
! 132: ;;^DD(9.45,.01,1,0)
! 133: ;;=^.1
! 134: ;;^DD(9.45,.01,1,1,0)
! 135: ;;=9.45^B
! 136: ;;^DD(9.45,.01,1,1,1)
! 137: ;;=S ^DIC(9.4,DA(2),4,DA(1),1,"B",X,DA)=""
! 138: ;;^DD(9.45,.01,1,1,2)
! 139: ;;=K ^DIC(9.4,DA(2),4,DA(1),1,"B",X,DA)
! 140: ;;^DD(9.45,.01,3)
! 141: ;;=Please enter the name of a field.
! 142: ;;^DD(9.45,.01,21,0)
! 143: ;;=^^4^4^2920513^^^^
! 144: ;;^DD(9.45,.01,21,1,0)
! 145: ;;=The name of a FileMan field required by this Package. This field is
! 146: ;;^DD(9.45,.01,21,2,0)
! 147: ;;=only to be filled in if you wish to send only selected fields in
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DIPKI008.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman