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

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

initial load of WorldVistAEHR

File size: 2.4 KB
Line 
1DINZMSM ;SFISC/AC-SETS ^%ZOSF FOR MSM-UNIX ;2:23 PM 1 Oct 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) S ^%ZOSF(Z)=X
6 S $P(^%ZOSF("OS"),"^")=$S($ZV["MSM":$P($ZV,","),1:"MSM")_"^8"
7 K I,X,Z
8 Q
9 ;
10Z ;;
11 ;;ACTJ
12 ;;S Y=$$ACTJ^%ZOSV()
13 ;;AVJ
14 ;;S Y=$$AVJ^%ZOSV()
15 ;;BRK
16 ;;B 1
17 ;;CPU
18 ;;Q
19 ;;DEL
20 ;;X "ZR ZS @X" K ^UTILITY("%RD",X)
21 ;;EOFF
22 ;;U $I:(::::1)
23 ;;EON
24 ;;U $I:(:::::1)
25 ;;EOT
26 ;;S Y=$ZA\1024#2
27 ;;ERRTN
28 ;;^%ZTER
29 ;;ETRP
30 ;;Q
31 ;;GD
32 ;;D ^%GD
33 ;;LABOFF
34 ;;U IO:(::::1)
35 ;;JOBPARAM
36 ;;G JOBPAR^%ZOSV
37 ;;LOAD
38 ;;S %N=0 X "ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0 S @(DIF_XCNP_"",0)"")=%"
39 ;;LPC;;Parity Check - ASCII sum
40 ;;S Y=$ZCRC(X)
41 ;;MAXSIZ
42 ;;S %K=X D INT^%PARTSIZ
43 ;;MAGTAPE
44 ;;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"
45 ;;MTBOT
46 ;;S Y=$ZA#2
47 ;;MTERR
48 ;;S Y=($ZA\256#8)+($ZA\4096#8)
49 ;;MTONLINE
50 ;;S Y=$ZA\16#4=3
51 ;;MTWPROT
52 ;;S Y=$ZA\2048#2
53 ;;NBRK
54 ;;B 0
55 ;;NO-PASSALL
56 ;;U $I:(:::::8388608)
57 ;;NO-TYPE-AHEAD
58 ;;U $I:(::::100663296)
59 ;;PASSALL
60 ;;U $I:(::::8388608)
61 ;;PRIINQ
62 ;;S Y=$$PRIINQ^%ZOSV()
63 ;;PRIORITY
64 ;;G PRIORITY^%ZOSV
65 ;;PROGMODE
66 ;;S Y=$$PROGMODE^%ZOSV()
67 ;;RD
68 ;;D ^%RD
69 ;;RESJOB
70 ;;Q:'$D(DUZ) Q:'$D(^XUSEC("XUMGR",+DUZ)) N XQZ S XQZ="^KILLJOB[MGR]" D DO^%XUCI
71 ;;RM
72 ;;U:IOT["TRM" $I:X
73 ;;RSEL
74 ;;K ^UTILITY($J) G ^%RSEL
75 ;;RSUM
76 ;;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
77 ;;SAVE
78 ;;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("%RD",X)="" K XCS
79 ;;SIZE
80 ;;S Y=0 F I=1:1 S %=$T(+I) Q:%="" S Y=Y+$L(%)+2
81 ;;SS
82 ;;D ^%SS
83 ;;TEST
84 ;;I $D(^ (X))
85 ;;TMK
86 ;;S Y=$ZA\128#2
87 ;;TRAP
88 ;;$ZT=X
89 ;;TRMOFF
90 ;;U $I:(::::::::$C(13,27))
91 ;;TRMON
92 ;;U $I:(::::::::$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))
93 ;;TRMRD
94 ;;S Y=$ZB
95 ;;TYPE-AHEAD
96 ;;U $I:(::::67108864:33554432)
97 ;;UCI
98 ;;S Y=$ZU(0)
99 ;;UCICHECK
100 ;;S Y=$$UCICHECK^%ZOSV(X)
101 ;;UPPERCASE
102 ;;S Y=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
103 ;;XY
104 ;;U $I:(::::::DY*256+DX)
105 ;;ZD
106 ;;S Y=$ZD(X)
Note: See TracBrowser for help on using the repository browser.