Annotation of freem_fileman/DIPKI00A.m, revision 1.1
1.1 ! snw 1: DIPKI00A ; ; 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.47,.01,21,1,0)
! 7: ;;=The name of an Input Template being sent with this Package.
! 8: ;;^DD(9.47,.01,21,2,0)
! 9: ;;=This multiple is used to send non-namespaced templates in an INIT.
! 10: ;;^DD(9.47,.01,21,3,0)
! 11: ;;=Namespaced templates are sent automatically and need not be listed
! 12: ;;^DD(9.47,.01,21,4,0)
! 13: ;;=separately.
! 14: ;;^DD(9.47,.01,"DT")
! 15: ;;=2821117
! 16: ;;^DD(9.47,2,0)
! 17: ;;=FILE^RP1'^DIC(^0;2^Q
! 18: ;;^DD(9.47,2,21,0)
! 19: ;;=^^1^1^2920513^^
! 20: ;;^DD(9.47,2,21,1,0)
! 21: ;;=The name of the FileMan file for this Input Template.
! 22: ;;^DD(9.47,2,"DT")
! 23: ;;=2821126
! 24: ;;^DD(9.48,0)
! 25: ;;=*SORT TEMPLATE SUB-FIELD^NL^2^2
! 26: ;;^DD(9.48,0,"NM","*SORT TEMPLATE")
! 27: ;;=
! 28: ;;^DD(9.48,0,"UP")
! 29: ;;=9.4
! 30: ;;^DD(9.48,.01,0)
! 31: ;;=SORT TEMPLATE^MF^^0;1^K:$L(X)>50!($L(X)<2) X
! 32: ;;^DD(9.48,.01,1,0)
! 33: ;;=^.1^^0
! 34: ;;^DD(9.48,.01,3)
! 35: ;;=Please enter the name of a Sort Template (2-50 characters).
! 36: ;;^DD(9.48,.01,21,0)
! 37: ;;=^^4^4^2920513^^^
! 38: ;;^DD(9.48,.01,21,1,0)
! 39: ;;=The name of a Sort Template being sent with this Package.
! 40: ;;^DD(9.48,.01,21,2,0)
! 41: ;;=This multiple is used to send non-namespaced templates in an INIT.
! 42: ;;^DD(9.48,.01,21,3,0)
! 43: ;;=Namespaced templates are sent automatically and need not be listed
! 44: ;;^DD(9.48,.01,21,4,0)
! 45: ;;=separately.
! 46: ;;^DD(9.48,.01,"DT")
! 47: ;;=2821117
! 48: ;;^DD(9.48,2,0)
! 49: ;;=FILE^RP1'^DIC(^0;2^Q
! 50: ;;^DD(9.48,2,21,0)
! 51: ;;=^^1^1^2920513^^
! 52: ;;^DD(9.48,2,21,1,0)
! 53: ;;=The FileMan file for this Sort Template.
! 54: ;;^DD(9.485,0)
! 55: ;;=*SCREEN TEMPLATE (FORM) SUB-FIELD^^2^2
! 56: ;;^DD(9.485,0,"DT")
! 57: ;;=2910320
! 58: ;;^DD(9.485,0,"NM","*SCREEN TEMPLATE (FORM)")
! 59: ;;=
! 60: ;;^DD(9.485,0,"UP")
! 61: ;;=9.4
! 62: ;;^DD(9.485,.01,0)
! 63: ;;=SCREEN TEMPLATE (FORM)^MF^^0;1^K:$L(X)>50!($L(X)<2) X
! 64: ;;^DD(9.485,.01,1,0)
! 65: ;;=^.1^^0
! 66: ;;^DD(9.485,.01,3)
! 67: ;;=Please enter the name of a Screen Template (Form), (2-50 characters).
! 68: ;;^DD(9.485,.01,21,0)
! 69: ;;=^^2^2^2920513^^^^
! 70: ;;^DD(9.485,.01,21,1,0)
! 71: ;;=The name of a Screen Template (from the FORM file) associated with
! 72: ;;^DD(9.485,.01,21,2,0)
! 73: ;;=this Package.
! 74: ;;^DD(9.485,.01,23,0)
! 75: ;;=^^3^3^2910320^^^^
! 76: ;;^DD(9.485,.01,23,1,0)
! 77: ;;=This list is originally created by the user for building an INIT, and allows
! 78: ;;^DD(9.485,.01,23,2,0)
! 79: ;;=the user to send FORMS on an INIT that are outside the Package namespace.
! 80: ;;^DD(9.485,.01,23,3,0)
! 81: ;;=All BLOCKS associated with the FORMS are also sent automatically.
! 82: ;;^DD(9.485,.01,"DT")
! 83: ;;=2910320
! 84: ;;^DD(9.485,2,0)
! 85: ;;=FILE^RP1'^DIC(^0;2^Q
! 86: ;;^DD(9.485,2,21,0)
! 87: ;;=^^1^1^2920513^^
! 88: ;;^DD(9.485,2,21,1,0)
! 89: ;;=The name of the FileMan file for this Screen Template (FORM).
! 90: ;;^DD(9.485,2,23,0)
! 91: ;;=^^1^1^2910320^
! 92: ;;^DD(9.485,2,23,1,0)
! 93: ;;=This field must match the PRIMARY FILE field on the FORM file.
! 94: ;;^DD(9.485,2,"DT")
! 95: ;;=2910320
! 96: ;;^DD(9.49,0)
! 97: ;;=VERSION SUB-FIELD^NL^1105^10
! 98: ;;^DD(9.49,0,"DT")
! 99: ;;=2940607
! 100: ;;^DD(9.49,0,"ID",1)
! 101: ;;=W:$D(^("0")) " ",$E($P(^("0"),U,2),4,5)_"-"_$E($P(^("0"),U,2),6,7)_"-"_$E($P(^("0"),U,2),2,3)
! 102: ;;^DD(9.49,0,"IX","B",9.49,.01)
! 103: ;;=
! 104: ;;^DD(9.49,0,"NM","VERSION")
! 105: ;;=
! 106: ;;^DD(9.49,0,"UP")
! 107: ;;=9.4
! 108: ;;^DD(9.49,.01,0)
! 109: ;;=VERSION^FX^^0;1^K:'(X?1.3N.1".".2N.1A.2N)!(X>999)!(X'>0) X
! 110: ;;^DD(9.49,.01,1,0)
! 111: ;;=^.1
! 112: ;;^DD(9.49,.01,1,1,0)
! 113: ;;=9.49^B
! 114: ;;^DD(9.49,.01,1,1,1)
! 115: ;;=S ^DIC(9.4,DA(1),22,"B",$E(X,1,30),DA)=""
! 116: ;;^DD(9.49,.01,1,1,2)
! 117: ;;=K ^DIC(9.4,DA(1),22,"B",$E(X,1,30),DA)
! 118: ;;^DD(9.49,.01,3)
! 119: ;;=Please enter the Version Number of this release. This can be either the old method (1.0, 16.04, etc.) or the new (17T1, 6.0V2, etc.).
! 120: ;;^DD(9.49,.01,21,0)
! 121: ;;=^^2^2^2930415^^^^
! 122: ;;^DD(9.49,.01,21,1,0)
! 123: ;;=The version number of this Package. This number is updated automatically
! 124: ;;^DD(9.49,.01,21,2,0)
! 125: ;;=when an INIT is built for this package.
! 126: ;;^DD(9.49,.01,"DT")
! 127: ;;=2910322
! 128: ;;^DD(9.49,1,0)
! 129: ;;=DATE DISTRIBUTED^D^^0;2^S %DT="E" D ^%DT S X=Y K:Y<1 X
! 130: ;;^DD(9.49,1,21,0)
! 131: ;;=^^2^2^2911209^^^
! 132: ;;^DD(9.49,1,21,1,0)
! 133: ;;=The date this release was distributed. This field is updated automatically
! 134: ;;^DD(9.49,1,21,2,0)
! 135: ;;=when an INIT is built for this package.
! 136: ;;^DD(9.49,1,"DT")
! 137: ;;=2840227
! 138: ;;^DD(9.49,2,0)
! 139: ;;=DATE INSTALLED AT THIS SITE^D^^0;3^S %DT="ET" D ^%DT S X=Y K:Y<1 X
! 140: ;;^DD(9.49,2,21,0)
! 141: ;;=^^2^2^2911209^^^
! 142: ;;^DD(9.49,2,21,1,0)
! 143: ;;=The date this release was installed at this site. This field is updated
! 144: ;;^DD(9.49,2,21,2,0)
! 145: ;;=automatically when an INIT is installed for this package.
! 146: ;;^DD(9.49,2,"DT")
! 147: ;;=2840302
! 148: ;;^DD(9.49,3,0)
! 149: ;;=INSTALLED BY^P200'^VA(200,^0;4^Q
! 150: ;;^DD(9.49,3,21,0)
! 151: ;;=^^1^1^2940607^
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DIPKI00A.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman