Annotation of freem_fileman/DIPKI003.m, revision 1.1
1.1 ! snw 1: DIPKI003 ; ; 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.4,11.5,21,1,0)
! 7: ;;=The name of this Package's Alpha Test site.
! 8: ;;^DD(9.4,11.5,"DT")
! 9: ;;=2940603
! 10: ;;^DD(9.4,11.6,0)
! 11: ;;=*BETA^P4'^DIC(4,^9;2^Q
! 12: ;;^DD(9.4,11.6,3)
! 13: ;;=Please enter the name of the Beta Test site.
! 14: ;;^DD(9.4,11.6,21,0)
! 15: ;;=^^1^1^2920513^^^
! 16: ;;^DD(9.4,11.6,21,1,0)
! 17: ;;=The name of this Package's Beta Test site.
! 18: ;;^DD(9.4,11.6,"DT")
! 19: ;;=2940603
! 20: ;;^DD(9.4,11.7,0)
! 21: ;;=*DELTA^9.409P^^10;0
! 22: ;;^DD(9.4,11.7,21,0)
! 23: ;;=^^1^1^2920706^^
! 24: ;;^DD(9.4,11.7,21,1,0)
! 25: ;;=The names of the Delta Test sites for this Package.
! 26: ;;^DD(9.4,11.7,"DT")
! 27: ;;=2940603
! 28: ;;^DD(9.4,12,0)
! 29: ;;=*PRIMARY HELP FRAME^P9.2'^DIC(9.2,^0;4^Q
! 30: ;;^DD(9.4,12,3)
! 31: ;;=
! 32: ;;^DD(9.4,12,21,0)
! 33: ;;=^^1^1^2920416^^^
! 34: ;;^DD(9.4,12,21,1,0)
! 35: ;;=This is the primary Help Frame for this Package.
! 36: ;;^DD(9.4,12,"DT")
! 37: ;;=2940603
! 38: ;;^DD(9.4,13,0)
! 39: ;;=CURRENT VERSION^F^^VERSION;1^K:$L(X)>8!($L(X)<1)!'(X?1N.ANP) X
! 40: ;;^DD(9.4,13,3)
! 41: ;;=Enter the version of this package currently running, (1-8 characters).
! 42: ;;^DD(9.4,13,21,0)
! 43: ;;=^^5^5^2920702^
! 44: ;;^DD(9.4,13,21,1,0)
! 45: ;;=This field holds the version number of the package currently running
! 46: ;;^DD(9.4,13,21,2,0)
! 47: ;;=at this site. When a package initialization has been run, this field
! 48: ;;^DD(9.4,13,21,3,0)
! 49: ;;=will be updated with the version number most recently installed.
! 50: ;;^DD(9.4,13,21,4,0)
! 51: ;;=This can be either using the old format (1.0, 16.04, etc.) or the new
! 52: ;;^DD(9.4,13,21,5,0)
! 53: ;;=format (18.0T4, 19.1V2, etc.)
! 54: ;;^DD(9.4,13,"DT")
! 55: ;;=2860221
! 56: ;;^DD(9.4,20,0)
! 57: ;;=AFFECTS RECORD MERGE^9.402P^^20;0
! 58: ;;^DD(9.4,20,21,0)
! 59: ;;=^^2^2^2940627^
! 60: ;;^DD(9.4,20,21,1,0)
! 61: ;;=This Multipule lists the files that will impact this package if a Record
! 62: ;;^DD(9.4,20,21,2,0)
! 63: ;;=Merge is done on any of the files in the list.
! 64: ;;^DD(9.4,22,0)
! 65: ;;=VERSION^9.49I^^22;0
! 66: ;;^DD(9.4,22,21,0)
! 67: ;;=^^1^1^2930415^^^^
! 68: ;;^DD(9.4,22,21,1,0)
! 69: ;;=The version numbers of this Package.
! 70: ;;^DD(9.4,200.1,0)
! 71: ;;=*USER TERMINATE TAG^F^^200;1^K:$L(X)>8!($L(X)<1)!'((X?1U.UN)!(X?1N.N)) X
! 72: ;;^DD(9.4,200.1,3)
! 73: ;;=Enter the entry TAG for the routine in field 200.2
! 74: ;;^DD(9.4,200.1,21,0)
! 75: ;;=^^3^3^2920306^^^
! 76: ;;^DD(9.4,200.1,21,1,0)
! 77: ;;=This field holds the entry point into the routine that will be called at
! 78: ;;^DD(9.4,200.1,21,2,0)
! 79: ;;=the time that a USER (File 200 entry with access/verify codes) is
! 80: ;;^DD(9.4,200.1,21,3,0)
! 81: ;;=terminated. See field 200.2
! 82: ;;^DD(9.4,200.1,"DT")
! 83: ;;=2940603
! 84: ;;^DD(9.4,200.2,0)
! 85: ;;=*USER TERMINATE ROUTINE^F^^200;2^K:$L(X)>8!($L(X)<2)!'(X?2U.UN) X
! 86: ;;^DD(9.4,200.2,3)
! 87: ;;=Enter a 2-8 character routine name.
! 88: ;;^DD(9.4,200.2,21,0)
! 89: ;;=^^7^7^2920306^^^
! 90: ;;^DD(9.4,200.2,21,1,0)
! 91: ;;=This field holds the name of a routine that will be called at the time
! 92: ;;^DD(9.4,200.2,21,2,0)
! 93: ;;=that a USER (File 200 entry with access/verify codes) is terminated.
! 94: ;;^DD(9.4,200.2,21,3,0)
! 95: ;;=ie. has their access/verify codes removed.
! 96: ;;^DD(9.4,200.2,21,4,0)
! 97: ;;=This is to allow each package to do their own clean-up.
! 98: ;;^DD(9.4,200.2,21,5,0)
! 99: ;;=
! 100: ;;^DD(9.4,200.2,21,6,0)
! 101: ;;=At the time the call is made DA will hold the IFN of the user being
! 102: ;;^DD(9.4,200.2,21,7,0)
! 103: ;;=terminated. This normally runs in the background without an IO device.
! 104: ;;^DD(9.4,200.2,"DT")
! 105: ;;=2940603
! 106: ;;^DD(9.4,913,0)
! 107: ;;=*ENVIRONMENT CHECK ROUTINE^F^^PRE;1^K:$L(X)>8!($L(X)<3) X
! 108: ;;^DD(9.4,913,.1)
! 109: ;;=DEVELOPERS ROUTINE RUN BEFORE 'INIT' QUESTIONS ASKED
! 110: ;;^DD(9.4,913,3)
! 111: ;;=Enter name of developer's environment check routine (3-8 characters) that runs before any user questions are asked. This routine should be used for environment check only and should not alter data.
! 112: ;;^DD(9.4,913,21,0)
! 113: ;;=^^4^4^2921202^
! 114: ;;^DD(9.4,913,21,1,0)
! 115: ;;=The name of the developer's routine which is run at the beginning of
! 116: ;;^DD(9.4,913,21,2,0)
! 117: ;;=the NAMESPACE_INIT routine. This should just check the environment
! 118: ;;^DD(9.4,913,21,3,0)
! 119: ;;=and should not alter any data, since the user has no way to exit out of
! 120: ;;^DD(9.4,913,21,4,0)
! 121: ;;=the INIT process until this program runs to completion.
! 122: ;;^DD(9.4,913,23,0)
! 123: ;;=^^2^2^2921202^^^^
! 124: ;;^DD(9.4,913,23,1,0)
! 125: ;;= A call to this routine gets inserted, by DIFROM at the beginning of the
! 126: ;;^DD(9.4,913,23,2,0)
! 127: ;;=NAMESPACE_INIT routine, before the EN entry point.
! 128: ;;^DD(9.4,913,"DT")
! 129: ;;=2940606
! 130: ;;^DD(9.4,913.5,0)
! 131: ;;=*ENVIRONMENT CHECK DONE DATE^D^^PRE;2^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
! 132: ;;^DD(9.4,913.5,3)
! 133: ;;=
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DIPKI003.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman