| 1 | XINDX7 ;ISC/RWF - SETUP ENVITOMENT ;12/01/2003 13:40
|
|---|
| 2 | ;;7.3;TOOLKIT;**20,27,48,68**;Apr 25, 1995
|
|---|
| 3 | ;To call XINDEX from elsewere.
|
|---|
| 4 | ;D SETUP^XINDX7 then load routines into ^UTILITY($J,1,<rtn name>,0,n,0)
|
|---|
| 5 | ;with @root@(0)='line count' and @root@(n,0)=a routine line
|
|---|
| 6 | ;Then for each routine S RTN="rtn name",INDLC=0 D BEG^XINDEX
|
|---|
| 7 | ;
|
|---|
| 8 | Q
|
|---|
| 9 | SETUP ;Write startup header stuff.
|
|---|
| 10 | D BUILD
|
|---|
| 11 | U IO D HDR
|
|---|
| 12 | S Q="""",U="^",INDDS=0,RTN="$",DA=INDDA,IND("TM")=$H
|
|---|
| 13 | I INDDA>0 D START^XINDX10 D:IOSL\2<$Y HDR W !!,"Routines are being processed.",!
|
|---|
| 14 | ;Build count of routines.
|
|---|
| 15 | S NRO=0,NRO(1)=0,RTN="$"
|
|---|
| 16 | F S RTN=$O(^UTILITY($J,RTN)) Q:RTN="" S NRO=NRO+1 S:RTN["|" NRO(1)=NRO(1)+1
|
|---|
| 17 | S RTN="$"
|
|---|
| 18 | W "Routines: ",NRO-NRO(1)," Faux Routines: ",NRO(1),!!
|
|---|
| 19 | Q
|
|---|
| 20 | HDR D NOW^%DTC S Y=%,DT=$P(Y,".",1) D DD^%DT S INDXDT=Y X ^%ZOSF("UCI") S INDHDR(1)="UCI: "_$P(Y,",")_" CPU: "_^%ZOSF("VOL")_" "_INDXDT,INDHDR="V. A. C R O S S R E F E R E N C E R "_$P($T(+2),";",3)
|
|---|
| 21 | W:$Y>3 @IOF W !!,?IOM-$L(INDHDR)\2,INDHDR,!,?IOM-$L(INDHDR(1))\2,INDHDR(1),!
|
|---|
| 22 | Q
|
|---|
| 23 | BUILD N IX,X,TAG,TG,TX,S,L,V K IND
|
|---|
| 24 | F TAG=1:1 S X=$T(TABLE+TAG) Q:X="" D
|
|---|
| 25 | . S TG=$P(X,";;",2),TX=$P(X,";;",3) Q:TG=""
|
|---|
| 26 | . F IX=1:1 S X=$P(TX,":",IX) Q:X="" D
|
|---|
| 27 | . . S S=$P(X,","),L=$P(X,",",2),V=$P(X,",",3)
|
|---|
| 28 | . . S IND(TG,S)=L_"^"_V,IND(TG,L)=L_"^"_V
|
|---|
| 29 | . Q
|
|---|
| 30 | Q
|
|---|
| 31 | TABLE ;;Short name, Full name, parameters (CMD default - add to GRB)
|
|---|
| 32 | CMD ;;CMD;;B,BREAK,B:C,CLOSE,C:D,DO,DG1^XINDX4:E,ELSE,E:ESTA,ESTART,:ESTO,ESTOP,:ETR,ETRIGER,:F,FOR,F:G,GOTO,G:H,HALT,H:H,HANG,H:I,IF,:J,JOB,J:K,KILL,K:L,LOCK,L
|
|---|
| 33 | ;;CMD;;M,MERGE,M:N,NEW,N:O,OPEN,O:Q,QUIT,Q:R,READ,R:S,SET,S:TC,TCOMMIT,2:TRE,TRESTART,2:TRO,TROLLBACK,2:TS,TSTART,2:U,USE,U:V,VIEW,V:W,WRITE,W:X,XECUTE,X:
|
|---|
| 34 | ;;
|
|---|
| 35 | FNC ;;FNC;;A,ASCII,1;2:C,CHAR,1;999:D,DATA,1;1:E,EXTRACT,1;3:F,FIND,2;3:G,GET,1;2:J,JUSTIFY,2;3:L,LENGTH,1;2:O,ORDER,1;2:P,PIECE,2;4:Q,QUERY,1;2:R,RANDOM,1;1:S,SELECT,1;999:T,TEXT,1;1:V,VIEW,1;999,
|
|---|
| 36 | ;;FNC;;FN,FNUMBER,2;3:NA,NAME,1;2:QL,QLENGTH,1;1:QS,QSUBSCRIPT,1;3:RE,REVERSE,1;1:ST,STACK,1;2:TR,TRANSLATE,1;3:WFONT,WFONT,4;4:WTFIT,WTFIT,6;6:WTWIDTH,WTWIDTH,5;5:
|
|---|
| 37 | ;;
|
|---|
| 38 | SVN ;;SVN;;D,DEVICE:EC,ECODE:ES,ESTACK:ET,ETRAP:H,HOROLOG:I,IO:J,JOB:K,KEY:PD,PDISPLAY:P,PRINCIPAL:Q,QUIT:S,STORAGE:ST,STACK:SY,SYSTEM:T,TEST:X,X:Y,Y
|
|---|
| 39 | ;;
|
|---|
| 40 | SSVN ;;SSVN;;C,CHARACTER:D,DEVICE:DI,DISPLAY:E,EVENT:G,GLOBAL:J,JOB:L,LOCK:R,ROUTINE:S,SYSTEM:W,WINDOW:Z,Z
|
|---|
