source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINZVXD.m@ 1710

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

initial load of WorldVistAEHR

File size: 2.4 KB
RevLine 
[613]1DINZVXD ;SFISC/MVB-SETS %ZOSF FOR VAX DSM(V6) ;1:10 PM 30 Sep 1998
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 K ^%ZOSF("MASTER"),^%ZOSF("SIGNOFF")
5 F I=1:2 S Z=$P($T(Z+I),";;",2) Q:Z="" S X=$P($T(Z+1+I),";;",2,99),^%ZOSF(Z)=X
6 K I,X,Z
7 Q
8 ;
9Z ;
10 ;;OS
11 ;;DSM for OpenVMS^16
12 ;;ACTJ
13 ;;S Y=$$ACTJ^%ZOSV()
14 ;;AVJ
15 ;;S Y=$$AVJ^%ZOSV()
16 ;;BRK
17 ;;U $I:CENABLE
18 ;;DEL
19 ;;X "ZR ZS @X"
20 ;;EOFF
21 ;;U $I:NOECHO
22 ;;EON
23 ;;U $I:ECHO
24 ;;EOT
25 ;;S Y=$ZA\1024#2
26 ;;ERRTN
27 ;;^%ZTER
28 ;;ETRP
29 ;;Q
30 ;;GD
31 ;;G ^%GD
32 ;;JOBPARAM
33 ;;S Y=$$INFO^%SY(X),Y=$P(Y,",",1,2)
34 ;;LABOFF
35 ;;U IO:NOECHO
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(%LPC,X)
40 ;;MAGTAPE
41 ;;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"
42 ;;MAXSIZ
43 ;;Q
44 ;;MTBOT
45 ;;S Y=$ZA\32#2
46 ;;MTERR
47 ;;S Y=$ZA\32768#2
48 ;;MTONLINE
49 ;;S Y=$ZA\64#2
50 ;;MTWPROT
51 ;;S Y=$ZA\4#2
52 ;;NBRK
53 ;;U $I:NOCENABLE
54 ;;NO-PASSALL
55 ;;G NOPASS^%ZOSV
56 ;;NO-TYPE-AHEAD
57 ;;U $I:NOTYPE
58 ;;PASSALL
59 ;;G PASSALL^%ZOSV
60 ;;PRIINQ
61 ;;S Y=$$PRIINQ^%ZOSV()
62 ;;PRIORITY
63 ;;Q ;G PRIORITY^%ZOSV
64 ;;PROGMODE
65 ;;S Y=$$PROGMODE^%ZOSV()
66 ;;RD
67 ;;G ^%RD
68 ;;RESJOB
69 ;;Q:'$D(DUZ) Q:'$D(^XUSEC("XUMGR",+DUZ)) N XQZ S XQZ="^FORCEX[MGR]" D DO^%XUCI
70 ;;RM
71 ;;U $I:WIDTH=$S(X<256:X,1:0)
72 ;;RSEL
73 ;;K ^UTILITY($J) D ^%RSEL M ^UTILITY($J)=%UTILITY K %UTILITY
74 ;;RSUM
75 ;;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
76 ;;SS
77 ;;G ^%SY
78 ;;SAVE
79 ;;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
80 ;;SIZE
81 ;;S Y=0 F I=1:1 S %=$T(+I) Q:%="" S Y=Y+$L(%)+2
82 ;;TEST
83 ;;I $D(^ (X))!$D(^!(X))
84 ;;TMK
85 ;;S Y=$ZA\16384#2
86 ;;TRAP
87 ;;$ZT=X
88 ;;TRMOFF
89 ;;U $I:TERM=""
90 ;;TRMON
91 ;;U $I:TERM=$C(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,127)
92 ;;TRMRD
93 ;;S Y=$ZB
94 ;;TYPE-AHEAD
95 ;;U $I:TYPE
96 ;;UCI
97 ;;S Y=$ZC(%UCI),Y=$P(Y,",",1)_","_$P(Y,",",4)
98 ;;UCICHECK
99 ;;S Y=$$UCICHECK^%ZOSV(X)
100 ;;UPPERCASE
101 ;;S Y=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
102 ;;XY
103 ;;S $X=DX,$Y=DY
104 ;;ZD
105 ;;N % S Y=$ZC(%CDATASC,+X,1) F %=1:1:3 I $L($P(Y,"/",%))<2 S $P(Y,"/",%)=0_$P(Y,"/",%)
Note: See TracBrowser for help on using the repository browser.