source: WorldVistAEHR/trunk/g/%ZOSF.zwr@ 701

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

initial load of WorldVistAEHR

File size: 2.8 KB
Line 
1FirstRelease WVEHR VER VOE1.0
2Cache 31-Jan-2008 23:07:04 ZWR
3^%ZOSF("ACTJ")="S Y=$$ACTJ^%ZOSV()"
4^%ZOSF("AVJ")="S Y=$$AVJ^%ZOSV()"
5^%ZOSF("BRK")="U $I:("""":""+B"")"
6^%ZOSF("DEL")="X ""ZR ZS @X"" K ^UTILITY(""ROU"",X)"
7^%ZOSF("EOFF")="U $I:("""":""+S"")"
8^%ZOSF("EON")="U $I:("""":""-S"")"
9^%ZOSF("EOT")="S Y=$ZA\1024#2"
10^%ZOSF("ERRTN")="^%ZTER"
11^%ZOSF("ETRP")="Q"
12^%ZOSF("GD")="D ^%GD"
13^%ZOSF("JOBPARAM")="D JOBPAR^%ZOSV"
14^%ZOSF("LABOFF")="U IO:("""":""+S+I-T"":$C(13,27))"
15^%ZOSF("LOAD")="S %N=0 X ""ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0 S @(DIF_XCNP_"""",0)"""")=%"""
16^%ZOSF("LPC")="S Y=$ZC(X)"
17^%ZOSF("MAGTAPE")="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"""
18^%ZOSF("MAXSIZ")="S $ZS=X+X"
19^%ZOSF("MGR")="EHR"
20^%ZOSF("MTBOT")="S Y=$ZA\32#2"
21^%ZOSF("MTERR")="S Y=$ZA\32768#2"
22^%ZOSF("MTONLINE")="S Y=$ZA\64#2"
23^%ZOSF("MTWPROT")="S Y=$ZA\4#2"
24^%ZOSF("NBRK")="U $I:("""":""-B"")"
25^%ZOSF("NO-PASSALL")="U $I:("""":""-I+T"")"
26^%ZOSF("NO-TYPE-AHEAD")="U $I:("""":""+F"":$C(13,27))"
27^%ZOSF("OS")="OpenM-NT^18"
28^%ZOSF("PASSALL")="U $I:("""":""+I-T"")"
29^%ZOSF("PRIINQ")="N %PRIO D ^%PRIO S Y=$S('%PRIO:5,%PRIO>0:8,1:3)"
30^%ZOSF("PRIORITY")="D @($S(X>7:""NORMAL"",X>3:""NORMAL"",1:""LOW"")_""^%PRIO"") ;Don't do HIGH"
31^%ZOSF("PROD")="EHR"
32^%ZOSF("PROGMODE")="S Y=$ZJ#2"
33^%ZOSF("RD")="D ^%RD"
34^%ZOSF("RESJOB")="Q:'$D(DUZ) Q:'$D(^XUSEC(""XUMGR"",+DUZ)) N XQZ S XQZ=""^RESJOB[MGR]"" D DO^%XUCI"
35^%ZOSF("RM")="U $I:X"
36^%ZOSF("RSEL")="K ^UTILITY($J) D KERNEL^%RSET K %ST ;Special entry point for VA"
37^%ZOSF("RSUM")="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"
38^%ZOSF("RSUM1")="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"
39^%ZOSF("SAVE")="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"
40^%ZOSF("SIZE")="S Y=0 F I=1:1 S %=$T(+I) Q:%="""" S Y=Y+$L(%)+2"
41^%ZOSF("SS")="D ^%SS"
42^%ZOSF("TEST")="I X?1(1""%"",1A).7AN,$D(^$ROUTINE(X))"
43^%ZOSF("TMK")="S Y=$ZA\4#2"
44^%ZOSF("TRAP")="$ZT=X"
45^%ZOSF("TRMOFF")="U $I:("""":""-I-T"":$C(13,27))"
46^%ZOSF("TRMON")="U $I:("""":""+I+T"")"
47^%ZOSF("TRMRD")="S Y=$A($ZB),Y=$S(Y<32:Y,Y=127:Y,1:0)"
48^%ZOSF("TYPE-AHEAD")="U $I:("""":""-F"":$C(13,27))"
49^%ZOSF("UCI")="D UCI^%ZOSV"
50^%ZOSF("UCICHECK")="S Y=$$UCICHECK^%ZOSV(X)"
51^%ZOSF("UPPERCASE")="S Y=$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ"")"
52^%ZOSF("VOL")="EHR"
53^%ZOSF("XY")="S $X=DX,$Y=DY"
54^%ZOSF("ZD")="S Y=$ZD(X)"
Note: See TracBrowser for help on using the repository browser.