144 lines
6.4 KiB
Mathematica
144 lines
6.4 KiB
Mathematica
XB1 ; IHS/ADC/GTH - XB MENUS AND DOCUMENTATION ; [ 12/29/2004 11:11 AM ]
|
|
;;4.0;XB;;Jul 20, 2009;Build 2
|
|
; XB*3*9 IHS/SET/GTH XB*3*9 10/29/2002 Cache' mods.
|
|
;
|
|
; Each label represents a menu. The label must begin with
|
|
; "M" and be followed by 1 or more 1 digit numbers 1-9.
|
|
; Each digit represents the link # of the parent option.
|
|
; E.G. 'M1' is the label for submenu options for the main
|
|
; menu option with a link # of 1. 'M11' would be the label
|
|
; for subsubmenu options for the option in 'M1' with a link
|
|
; # of 1. Within a menu options are listed and selected
|
|
; positionally. The only purpose of the link # is to link
|
|
; options to their parent menu. Example:
|
|
;
|
|
; M1 ;;FILES/DICTIONARIES
|
|
; ;;Submenu example one;;1
|
|
; ;;Submenu example two;;2
|
|
; M11 ;;SUBMENU ONE
|
|
; ;;Submenu option;;^ROUTINEX
|
|
; M12 ;;SUBMENU TWO
|
|
; ;;Submenu option;;^ROUTINEY
|
|
;
|
|
; This label naming technique allows the menu tree to go
|
|
; to seven levels. No more than nine options on one menu
|
|
; may also be menus.
|
|
;
|
|
; For menu options the 2nd ";;" piece is the title, the 3rd
|
|
; ";;" piece must be a number if the option is a submenu, a
|
|
; valid routine or label^routine or executable code if the
|
|
; 3rd piece begins with a !. The code following the ! will
|
|
; be placed in a variable and the variable will be executed.
|
|
; A P in the 4th ";;" piece indicates pause after execution.
|
|
;
|
|
M ;;MAIN XB UTILITY MENU
|
|
;;Files/dictionaries;;1
|
|
;;Globals;;2
|
|
;;Routines;;3
|
|
;;Miscellaneous;;4
|
|
;;Developers;;5
|
|
;;Check ^XB options and patch level;;CHECK^XB;;P;;IHS/SET/GTH XB*3*9 10/29/2002
|
|
M1 ;;FILES/DICTIONARIES
|
|
;;List fields;;^XBFLD
|
|
;;List 0th nodes;;^XBLZRO;;P
|
|
;;Check regular xrefs;;^XBCFXREF;;P
|
|
;;Selective RE-INDEX;;^XBRXREF
|
|
;;Compare dictionary in two UCIs/Namespaces;;^XBFCMP;;P;;IHS/SET/GTH XB*3*9 10/29/2002
|
|
;;Search for routines executed from dictionary;;^XBRSRCH
|
|
;;Fix 0th nodes;;^XBCFIX;;P
|
|
;;Count entries in file;;^XBCOUNT
|
|
;;FileMan;;P^DI
|
|
;;Delete dictionaries;;^XBKD
|
|
;;Clean dictionaries [caution];;^XBCDIC
|
|
;;List file attributes in various ways;;1;;IHS/SET/GTH XB*3*9 10/29/2002
|
|
;;Files Marked For Deletion;;!N L,DIC,BY,FLDS S L=0,DIC=1,(BY,FLDS)="[XB - FILES MARKED FOR DELETION]" D EN1^DIP;;P;;IHS/SET/GTH XB*3*9 10/29/2002
|
|
;;Fields Marked For Deletion;;^XBLFMD;;P;;IHS/SET/GTH XB*3*9 10/29/2002
|
|
;;Print File IDs, Specifiers, and Conditionals;;^XBSIC;;P;;IHS/SET/GTH XB*3*9 10/29/2002
|
|
M11 ;;LIST FILE ATTRIBUTES IN VARIOUS WAYS;;IHS/SET/GTH XB*3*9 10/29/2002
|
|
;;List Files, inc. Number, Name, Global, opt Desc.;;^XBLFD;;P;;IHS/SET/GTH XB*3*9 10/29/2002
|
|
;;List Fields for RIM Modeling;;^XBLFAM;;P;;IHS/SET/GTH XB*3*9 10/29/2002
|
|
;;List Fields for CodeSets (RTM) Modeling;;^XBLFSETS;;P;;IHS/SET/GTH XB*3*9 10/29/2002
|
|
M2 ;;GLOBALS
|
|
;;List global;;!D LG^ZIBVSS
|
|
;;Directory of selected globals;;^ZIBGD;;P
|
|
;;Count unique values;;^XBCNODE
|
|
;;List high entry number;;^XBGLDFN;;P
|
|
;;Copy to another global in same UCI/Namespace;;^XBGC;;;;IHS/SET/GTH XB*3*9 10/29/2002
|
|
;;Copy global to another UCI/Namespace;;!D CG^ZIBVSS;;;;IHS/SET/GTH XB*3*9 10/29/2002
|
|
;;Search global for value;;!D GSE^ZIBVSS
|
|
;;Global edit;;!D GE^ZIBVSS
|
|
;;Change global value;;!D GCH^ZIBVSS
|
|
;;Global size/efficiency;;!D GSZE^ZIBVSS;;P
|
|
;;Global characteristics;;!D GCHR^ZIBVSS
|
|
;;Global delete;;!D GDEL^ZIBVSS
|
|
;;Global restore;;!D GR^ZIBVSS
|
|
;;Global save;;!D GS^ZIBVSS
|
|
;;Find control chrs in globals;;^ZIBGCHR
|
|
;;Compare Two Globals;;^XBGCMP
|
|
M3 ;;ROUTINES
|
|
;;List routines in various ways;;1
|
|
;;Compare routines in two UCIs/Namespaces;;!D RCMP^ZIBVSS;;P;;IHS/SET/GTH XB*3*9 10/29/2002
|
|
;;Restore routines;;!D RR^ZIBVSS
|
|
;;Save routines;;!D RS^ZIBVSS
|
|
;;Routine size;;^XBRSIZ;;P
|
|
;;Delete routines;;!D RDEL^ZIBVSS;;P;;IHS/SET/GTH XB*3*9 10/29/2002
|
|
;;Search routines for values (OR);;!D RSE^ZIBVSS;;P;;IHS/SET/GTH XB*3*9 10/29/2002
|
|
;;Search routines for values (AND);;!D RSAND^ZIBVSS
|
|
;;Find routines by edit date;;!D NEWED^ZIBVSS;;P
|
|
;;Full screen editor;;!D REDIT^ZIBVSS
|
|
;;Routine change;;!D RCHANGE^ZIBVSS
|
|
;;Routine copy;;!D RCOPY^ZIBVSS
|
|
;;Directory of selected routines;;^ZIBRD;;P
|
|
;;Scan UCIs/Namespaces for routine;;^ZIBFR;;P;;IHS/SET/GTH XB*3*9 10/29/2002
|
|
;;Run routine;;!R " Enter routine name: ",Y:30 Q:'$T S:Y'["^" Y="^"_Y S X=$P(Y,"^",2),X=$P(X,"(",1) X ^%ZOSF("TEST") W:'$T " huh? ",*7 I $T D @Y
|
|
M31 ;;LIST ROUTINES
|
|
;;List first one/two lines;;^%ZTP1;;P
|
|
;;List to first label;;^XBRPTL;;P
|
|
;;List routines;;!D RPRT^ZIBVSS;;P
|
|
;;List routines by edit date;;^XBRPRTBD
|
|
;;VA routine lister;;^%ZTPP;;P
|
|
;;List one routine with character counts;;^XBRLL;;P
|
|
;;%INDEX;;^%INDEX
|
|
;;Flow chart from entry point;;^XTFCE
|
|
;;Flow chart entire routine;;^XTFCR
|
|
;;List routines by patch number;;^XBPATSE;;P
|
|
M4 ;;MISCELLANEOUS
|
|
;;Error report;;!D ER^ZIBVSS;;P;;IHS/SET/GTH XB*3*9 10/29/2002
|
|
;;List ^UTILITY nodes for current job;;^XBLUTL;;P
|
|
;;Kill ^UTILITY nodes for current job;;^%ZIBCLU0
|
|
;;Cleanup utility globals in all UCIs;;EN^ZIBCLU
|
|
;;Cleanup utility globals in current UCI;;EN^%ZIBCLU0
|
|
;;Fix 'PT' nodes in all files;;^XBFIXPT
|
|
;;Convert non-DINUM data global to DINUM;;^XBDINUM
|
|
;;Check UCI routines against package file;;^ZIBCKPKG;;P
|
|
;;Display FileMan installation data;;^ZIBFMD;;P
|
|
;;Renamespace routines;;^ZIBRNSPC;;P
|
|
;;Number base changer;;^XTBASE
|
|
;;Print a Help Frame manual;;^XBHFMAN
|
|
;;List Local Variables, by Namespace;;MESSAGE^XBVL;;P
|
|
;;Print XB/ZIB Technical Manual;;^XBTM
|
|
;;Check Patient Globals;;^XBPATC;;P
|
|
M5 ;;DEVELOPERS
|
|
;;Generate ^DIR call;;^XBDR;;P
|
|
;;Standardize line 1 of routines;;^XBFIXL1
|
|
;;Set version line;;^XBVLINE
|
|
;;Set dictionary version numbers;;^XBDICV;;P
|
|
;;Set no delete;;^XBNODEL;;P
|
|
;;Set audit;;^XBSAUD;;P
|
|
;;Set authorities;;^XBSAUTH;;P
|
|
;;Analyze file for specifiers;;^XBCSPC
|
|
;;Delete namespaced OPTIONS, KEYS, etc.;;RUN^XBPKDEL;;P
|
|
;;List namespaced OPTIONS, KEYS, etc.;;LIST^XBPKDEL;;P
|
|
;;Build pre-init routine;;^XBBPI
|
|
;;Build integ routine;;^XBSUMBLD
|
|
;;List callable subroutines;;^XBLCALL;;P
|
|
;;Reset file data globals *** DANGER ***;;^XBFRESET
|
|
;;Edit FM print template headers;;^XBDH
|
|
;;List retired/replaced packages;;LIST^XBPKDEL1;;P;;XB*3*8
|
|
;;Delete retired/replaced packages;;DECERT^XBPKDEL1;;P;;XB*3*8
|
|
;;Edit File attribute for selected File(s);;^XBDDEDIT;;P;;IHS/SET/GTH XB*3*9 10/29/2002
|
|
;;Move files into PACKAGE file FILE multiple;;^XBPKG;;P;;IHS/SET/GTH XB*3*9 10/29/2002
|
|
;;Set dd audit;;^XBSDDAUD;;P;;IHS/SET/GTH XB*3*9 10/29/2002
|
|
;;dd Field Numbering Conventions;;^XBFNC;;P;;IHS/SET/GTH XB*3*9 10/29/2002
|
|
;;Options and Security Keys;;^XBSECK;;P;;IHS/SET/GTH XB*3*9 10/29/2002
|