source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/ZOSFMSQ.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.6 KB
Line 
1ZOSFMSQ ;SFISC/AC - SETS UP ^%ZOSF FOR VAX M/SQL ;8/1/94 11:19
2 ;;8.0;KERNEL;;JUL 03, 1995
3 S %Y=1 K ^%ZOSF("MASTER"),^%ZOSF("SIGNOFF")
4 K ZO F I="MGR","PROD","VOL" S:$D(^%ZOSF(I)) ZO(I)=^%ZOSF(I)
5 F I=1:2 S Z=$P($T(Z+I),";;",2) Q:Z="" S X=$P($T(Z+1+I),";;",2,99) S ^%ZOSF(Z)=$S($D(ZO(Z)):ZO(Z),1:X)
6MGR W !,"NAME OF MANAGER'S UCI,DIRECTORY SET: "_^%ZOSF("MGR")_"// " R X:$S($G(DTIME):DTIME,1:9999) I X]"" X ^("UCICHECK") G MGR:Y="" S ^%ZOSF("MGR")=X
7PROD W !,"PRODUCTION (SIGN-ON) UCI,DIRECTORY SET: "_^%ZOSF("PROD")_"// " R X:$S($G(DTIME):DTIME,1:9999) I X]"" X ^("UCICHECK") G PROD:Y="" S ^%ZOSF("PROD")=Y
8VOL W !,"NAME OF THIS DIRECTORY SET: "_^%ZOSF("VOL")_"//" R X:$S($G(DTIME):DTIME,1:9999) I X]"" S:X?1.10UP ^%ZOSF("VOL")=X I X'?1.10UP W "MUST BE 1-10 characters." G VOL
9OS S $P(^%ZOSF("OS"),"^",1)="M/SQL" S:'$P(^%ZOSF("OS"),"^",2) $P(^%ZOSF("OS"),"^",2)=7
10 W !!,"ALL SET UP",!! Q
11Z ;;
12 ;;ACTJ
13 ;;S Y=$$ACTJ^%ZOSV()
14 ;;AVJ
15 ;;S Y=$$AVJ^%ZOSV()
16 ;;BRK
17 ;;B 1
18 ;;DEL
19 ;;X "ZR ZS @X" K ^UTILITY("ROU",X)
20 ;;EOFF
21 ;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:"") S:Y'["S" Y=Y_"S" U $I:("":Y:$C(13,27)) S ^($I)=Y
22 ;;EON
23 ;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:""),Y=$TR(Y,"S","") U $I:("":Y:$C(13,27)) S ^($I)=Y
24 ;;EOT
25 ;;S Y=$ZA\1024#2
26 ;;ERRTN
27 ;;^%ZTER
28 ;;ETRP
29 ;;Q
30 ;;GD
31 ;;D ^%GD
32 ;;JOBPARAM
33 ;;D JOBPAR^%ZOSV
34 ;;LABOFF
35 ;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:"") S:Y'["S" Y=Y_"S" U IO:("":Y:$C(13,27)) S ^($I)=Y
36 ;;LOAD
37 ;;S %N=0 X "ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0 S @(DIF_XCNP_"",0)"")=%"
38 ;;LPC
39 ;;S Y=$ZC(X)
40 ;;MAXSIZ
41 ;;S $ZS=X+X
42 ;;MGR
43 ;;DRA0:[MVX]
44 ;;MAGTAPE
45 ;;S %MT("BS")="*-1",%MT("FS")="*-2",%MT("WTM")="*-3",%MT("WB")="*-4",%MT("REW")="*-5",%MT("RB")="*-6",%MT("REL")="*-7",%MT("WHL")="*-8",%MT("WEL")="*-9"
46 ;;MTBOT
47 ;;S Y=$ZA\32#2
48 ;;MTERR;;MAGTAPE ERROR; FROM TABLE 9.3
49 ;;S Y=$ZA\8#2
50 ;;MTONLINE
51 ;;S Y=$ZA\64#2
52 ;;MTWPROT
53 ;;S Y=$ZA\4#2
54 ;;MTERR;;MAGTAPE ERROR
55 ;;S Y=$ZA\32768#2
56 ;;NBRK
57 ;;B 0
58 ;;NO-PASSALL
59 ;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:""),Y=$TR(Y,"IT","") U $I:("":Y:$C(13,27)) S ^($I)=Y
60 ;;NO-TYPE-AHEAD
61 ;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:"") S:Y'["F" Y=Y_"F" U $I:("":Y:$C(13,27)) S ^($I)=Y
62 ;;PASSALL
63 ;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:""),Y=$TR(Y,"IT",""),Y=Y_"I" U $I:("":Y) S ^($I)=Y
64 ;;PRIINQ;; Priority in current queue
65 ;;S Y=8
66 ;;PRIORITY;;set priority to X (1=low, 10=high)
67 ;;D @($S(X>7:"HIGH",X>3:"NORMAL",1:"LOW")_"^%PRIO")
68 ;;PROGMODE
69 ;;S Y=$ZJ#2
70 ;;PROD
71 ;;DRA0:[EXPORT]
72 ;;RD
73 ;;D ^%RD
74 ;;RM
75 ;;U $I:X
76 ;;RSEL;;ROUTINE SELECT
77 ;;K ^UTILITY($J) S %JO=$J D ^%RSET K %ST
78 ;;RSUM
79 ;;ZL @X S Y=0 F %=1,3:1 S %1=$T(+%),%3=$F(%1," ") Q:'%3 S %3=$S($E(%1,%3)'=";":$L(%1),$E(%1,%3+1)=";":$L(%1),1:%3-2) F %2=1:1:%3 S Y=$A(%1,%2)*%2+Y
80 ;;SS
81 ;;D ^%SS
82 ;;SAVE
83 ;;S XCS="F XCM=1:1 S XCN=$O(@(DIE_XCN_"")"")) Q:+XCN'=XCN S %=^(XCN,0) Q:$E(%,1)=""$"" I $E(%,1)'="";"" ZI %" X "ZR X XCS ZS @X" S ^UTILITY("ROU",X)="" K XCS
84 ;;SIZE
85 ;;S Y=0 F I=1:1 S %=$T(+I) Q:%="" S Y=Y+$L(%)+2
86 ;;TEST
87 ;;I $D(^ROUTINE(X))>1
88 ;;TMK;;MAGTAPE MARK
89 ;;S Y=$ZA\4#2
90 ;;TRAP;;S X="^%ET",@^%ZOSF("TRAP") TO SET ERROR TRAP
91 ;;$ZT=X
92 ;;TRMOFF
93 ;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:""),Y=$TR(Y,"IT","") U $I:("":Y:$C(13,27)) S ^($I)=Y
94 ;;TRMON
95 ;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:""),Y=$TR(Y,"IT",""),Y=Y_"IT" U $I:("":Y) S ^($I)=Y
96 ;;TRMRD
97 ;;S Y=$A($ZB)
98 ;;TYPE-AHEAD
99 ;;S Y=$S($D(^XUTL("ZISPARAM",$I)):^($I),1:"") S:Y["F" Y=$TR(Y,"F","") U $I:("":Y:$C(13,27)) S ^($I)=Y
100 ;;UCI
101 ;;D UCI^%ZOSV
102 ;;UCICHECK
103 ;;S Y=$$UCICHECK^%ZOSV(X)
104 ;;UPPERCASE
105 ;;S Y=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
106 ;;XY
107 ;;S $X=DX,$Y=DY
108 ;;VOL;;VOLUME SET NAME
109 ;;DRA0:[EXPORT]
110 ;;ZD
111 ;;S Y=$ZD(X)
Note: See TracBrowser for help on using the repository browser.