Annotation of freem_fileman/DIINI003.m, revision 1.1
1.1 ! snw 1: DIINI003 ; ; 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: 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: ;;^UTILITY(U,$J,"OPT",158,"U")
! 7: ;;=VERIFY FIELDS
! 8: ;;^UTILITY(U,$J,"OPT",159,0)
! 9: ;;=DIXREF^Cross-Reference A Field^^A^^^^^^^^^n^1^^
! 10: ;;^UTILITY(U,$J,"OPT",159,1,0)
! 11: ;;=^^5^5^2890316^
! 12: ;;^UTILITY(U,$J,"OPT",159,1,1,0)
! 13: ;;=The Cross-Reference a Field sub-option of the Utility Functions option
! 14: ;;^UTILITY(U,$J,"OPT",159,1,2,0)
! 15: ;;=allows you to identify a field or sub-field for cross-referencing or
! 16: ;;^UTILITY(U,$J,"OPT",159,1,3,0)
! 17: ;;=for removing cross-referencing from an identified field.
! 18: ;;^UTILITY(U,$J,"OPT",159,1,4,0)
! 19: ;;=VA FileMan currently has seven types of cross-references -- Regular,
! 20: ;;^UTILITY(U,$J,"OPT",159,1,5,0)
! 21: ;;=KWIC, Mnemonic, MUMPS, Soundex, Trigger and Bulletin.
! 22: ;;^UTILITY(U,$J,"OPT",159,20)
! 23: ;;=S DI=2 G EN^DIU
! 24: ;;^UTILITY(U,$J,"OPT",159,"U")
! 25: ;;=CROSS-REFERENCE A FIELD
! 26: ;;^UTILITY(U,$J,"OPT",160,0)
! 27: ;;=DIIDENT^Identifier^^A^^^^^^^^^n^1^^
! 28: ;;^UTILITY(U,$J,"OPT",160,1,0)
! 29: ;;=^^4^4^2890316^
! 30: ;;^UTILITY(U,$J,"OPT",160,1,1,0)
! 31: ;;=Use the Identifier sub-option of the Utility Functions option to associate
! 32: ;;^UTILITY(U,$J,"OPT",160,1,2,0)
! 33: ;;=a field with the .01 (or NAME) field of a file. The field designated as
! 34: ;;^UTILITY(U,$J,"OPT",160,1,3,0)
! 35: ;;=an identifier can be displayed along with the selected entry to help
! 36: ;;^UTILITY(U,$J,"OPT",160,1,4,0)
! 37: ;;=a user positively identify the entry.
! 38: ;;^UTILITY(U,$J,"OPT",160,20)
! 39: ;;=S DI=3 G EN^DIU
! 40: ;;^UTILITY(U,$J,"OPT",160,"U")
! 41: ;;=IDENTIFIER
! 42: ;;^UTILITY(U,$J,"OPT",161,0)
! 43: ;;=DIRDEX^Re-Index File^^A^^^^^^^^^n^1^^
! 44: ;;^UTILITY(U,$J,"OPT",161,1,0)
! 45: ;;=^^4^4^2890316^
! 46: ;;^UTILITY(U,$J,"OPT",161,1,1,0)
! 47: ;;=The Re-index a File sub-option of the Utility Functions option allows
! 48: ;;^UTILITY(U,$J,"OPT",161,1,2,0)
! 49: ;;=you to re-index a file. This VA FileMan feature is especially helpful
! 50: ;;^UTILITY(U,$J,"OPT",161,1,3,0)
! 51: ;;=when you create a new cross reference on a field that already contains
! 52: ;;^UTILITY(U,$J,"OPT",161,1,4,0)
! 53: ;;=data.
! 54: ;;^UTILITY(U,$J,"OPT",161,20)
! 55: ;;=S DI=4 G EN^DIU
! 56: ;;^UTILITY(U,$J,"OPT",161,"U")
! 57: ;;=RE-INDEX FILE
! 58: ;;^UTILITY(U,$J,"OPT",162,0)
! 59: ;;=DIITRAN^Input Transform (Syntax)^^A^^^^^^^^^n^1^^
! 60: ;;^UTILITY(U,$J,"OPT",162,1,0)
! 61: ;;=^^4^4^2901212^^^
! 62: ;;^UTILITY(U,$J,"OPT",162,1,1,0)
! 63: ;;=The Input Transform sub-option of the Utility Functions option allows
! 64: ;;^UTILITY(U,$J,"OPT",162,1,2,0)
! 65: ;;=you to enter an executable string of MUMPS code which is used to check
! 66: ;;^UTILITY(U,$J,"OPT",162,1,3,0)
! 67: ;;=the validity of user input and will then convert the input into an
! 68: ;;^UTILITY(U,$J,"OPT",162,1,4,0)
! 69: ;;=internal form for storage.
! 70: ;;^UTILITY(U,$J,"OPT",162,20)
! 71: ;;=Q:DUZ(0)'="@" S DI=5 G EN^DIU
! 72: ;;^UTILITY(U,$J,"OPT",162,"U")
! 73: ;;=INPUT TRANSFORM (SYNTAX)
! 74: ;;^UTILITY(U,$J,"OPT",163,0)
! 75: ;;=DIEDFILE^Edit File^^A^^^^^^^^^n^1^^
! 76: ;;^UTILITY(U,$J,"OPT",163,1,0)
! 77: ;;=^^3^3^2890316^^
! 78: ;;^UTILITY(U,$J,"OPT",163,1,1,0)
! 79: ;;=This option allows the user to document and control a file. The user
! 80: ;;^UTILITY(U,$J,"OPT",163,1,2,0)
! 81: ;;=may describe the purpose of the file, assign it security, indicate
! 82: ;;^UTILITY(U,$J,"OPT",163,1,3,0)
! 83: ;;=application groups which use the file, and change the name of the file.
! 84: ;;^UTILITY(U,$J,"OPT",163,20)
! 85: ;;=S DI=6 G EN^DIU
! 86: ;;^UTILITY(U,$J,"OPT",163,"U")
! 87: ;;=EDIT FILE
! 88: ;;^UTILITY(U,$J,"OPT",164,0)
! 89: ;;=DIOTRAN^Output Transform^^A^^^^^^^^^n^1^^
! 90: ;;^UTILITY(U,$J,"OPT",164,1,0)
! 91: ;;=^^3^3^2890316^
! 92: ;;^UTILITY(U,$J,"OPT",164,1,1,0)
! 93: ;;=The Output Transform sub-option of the Utility Functions option allows
! 94: ;;^UTILITY(U,$J,"OPT",164,1,2,0)
! 95: ;;=you to enter an executable string of MUMPS code which converts internally
! 96: ;;^UTILITY(U,$J,"OPT",164,1,3,0)
! 97: ;;=stored data into a readable display.
! 98: ;;^UTILITY(U,$J,"OPT",164,20)
! 99: ;;=S DI=7 G EN^DIU
! 100: ;;^UTILITY(U,$J,"OPT",164,"U")
! 101: ;;=OUTPUT TRANSFORM
! 102: ;;^UTILITY(U,$J,"OPT",165,0)
! 103: ;;=DITEMP^Template Edit^^A^^^^^^^^^n^1^^
! 104: ;;^UTILITY(U,$J,"OPT",165,1,0)
! 105: ;;=^^4^4^2890316^
! 106: ;;^UTILITY(U,$J,"OPT",165,1,1,0)
! 107: ;;=The Template Edit sub-option of the Utility Functions option allows you
! 108: ;;^UTILITY(U,$J,"OPT",165,1,2,0)
! 109: ;;=to enter a description of any sort, print or input templates in a selected
! 110: ;;^UTILITY(U,$J,"OPT",165,1,3,0)
! 111: ;;=file. These descriptions will be printed when you request a Templates
! 112: ;;^UTILITY(U,$J,"OPT",165,1,4,0)
! 113: ;;=Only data dictionary listing.
! 114: ;;^UTILITY(U,$J,"OPT",165,20)
! 115: ;;=S DI=8 G EN^DIU
! 116: ;;^UTILITY(U,$J,"OPT",165,"U")
! 117: ;;=TEMPLATE EDIT
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DIINI003.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman