source: FOIAVistA/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINZONT.m@ 761

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

initial load of FOIAVistA 6/30/08 version

File size: 2.5 KB
Line 
1DINZONT ;SFISC/AC - SETS UP ^%ZOSF FOR Open M for NT ;2:45 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 ^%ZOSF("OS")="CACHE/OpenM^18"
7 K I,X,Z
8 Q
9Z ;;
10 ;;ACTJ
11 ;;S Y=$$ACTJ^%ZOSV()
12 ;;AVJ
13 ;;S Y=$$AVJ^%ZOSV()
14 ;;BRK
15 ;;U $I:("":"+B")
16 ;;DEL
17 ;;X "ZR ZS @X" K ^UTILITY("ROU",X)
18 ;;EOFF
19 ;;U $I:("":"+S")
20 ;;EON
21 ;;U $I:("":"-S")
22 ;;EOT
23 ;;S Y=$ZA\1024#2
24 ;;ERRTN
25 ;;^%ZTER
26 ;;ETRP
27 ;;Q
28 ;;GD
29 ;;D ^%GD
30 ;;JOBPARAM
31 ;;D JOBPAR^%ZOSV
32 ;;LABOFF
33 ;;U IO:("":"+S+I-T":$C(13,27))
34 ;;LOAD
35 ;;S %N=0 X "ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0 S @(DIF_XCNP_"",0)"")=%"
36 ;;LPC
37 ;;S Y=$ZC(X)
38 ;;MAXSIZ
39 ;;S $ZS=X+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 ;;MTBOT
43 ;;S Y=$ZA\32#2
44 ;;MTONLINE
45 ;;S Y=$ZA\64#2
46 ;;MTWPROT
47 ;;S Y=$ZA\4#2
48 ;;MTERR;;MAGTAPE ERROR
49 ;;S Y=$ZA\32768#2
50 ;;NBRK
51 ;;U $I:("":"-B")
52 ;;NO-PASSALL
53 ;;U $I:("":"-I+T")
54 ;;NO-TYPE-AHEAD
55 ;;U $I:("":"+F":$C(13,27))
56 ;;PASSALL
57 ;;U $I:("":"+I-T")
58 ;;PRIINQ;; Priority in current queue
59 ;;N %PRIO D ^%PRIO S Y=$S('%PRIO:5,%PRIO>0:8,1:3)
60 ;;PRIORITY;;set priority to X (1=low, 10=high)
61 ;;D @($S(X>7:"NORMAL",X>3:"NORMAL",1:"LOW")_"^%PRIO") ;Don't do HIGH
62 ;;PROGMODE
63 ;;S Y=$ZJ#2
64 ;;RD
65 ;;D ^%RD
66 ;;RESJOB
67 ;;Q:'$D(DUZ) Q:'$D(^XUSEC("XUMGR",+DUZ)) N XQZ S XQZ="^RESJOB[MGR]" D DO^%XUCI
68 ;;RM
69 ;;U $I:X
70 ;;RSEL;;ROUTINE SELECT
71 ;;K ^UTILITY($J) D KERNEL^%RSET K %ST ;Special entry point for VA
72 ;;RSUM
73 ;;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
74 ;;SS
75 ;;D ^%SS
76 ;;SAVE
77 ;;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
78 ;;SIZE
79 ;;S Y=0 F I=1:1 S %=$T(+I) Q:%="" S Y=Y+$L(%)+2
80 ;;TEST
81 ;;I X?1(1"%",1A).7AN,$D(^$ROUTINE(X))
82 ;;TMK;;MAGTAPE MARK
83 ;;S Y=$ZA\4#2
84 ;;TRAP;;S X="^%ET",@^%ZOSF("TRAP") TO SET ERROR TRAP
85 ;;$ZT=X
86 ;;TRMOFF
87 ;;U $I:("":"-I-T":$C(13,27))
88 ;;TRMON
89 ;;U $I:("":"+I+T")
90 ;;TRMRD
91 ;;S Y=$A($ZB),Y=$S(Y<32:Y,Y=127:Y,1:0)
92 ;;TYPE-AHEAD
93 ;;U $I:("":"-F":$C(13,27))
94 ;;UCI
95 ;;D UCI^%ZOSV
96 ;;UCICHECK
97 ;;S Y=$$UCICHECK^%ZOSV(X)
98 ;;UPPERCASE
99 ;;S Y=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
100 ;;XY
101 ;;S $X=DX,$Y=DY
102 ;;ZD
103 ;;S Y=$ZD(X)
Note: See TracBrowser for help on using the repository browser.