source: FOIAVistA/trunk/g/%ZOSF.zwr@ 635

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

initial load of FOIAVistA 6/30/08 version

File size: 3.0 KB
Line 
1Globals from FOIA VistA with corrected Node problem for the cross references in the mental health files for C and AU
2Cache 13-Sep-2008 18:35:03 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"""
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("GSEL")="K ^CacheTempJ($J),^UTILITY($J) D ^%SYS.GSET M ^UTILITY($J)=CacheTempJ($J)"
14^%ZOSF("GSEL;Select Globals")="K ^UTILITY($J) D ^%GSET"
15^%ZOSF("JOBPARAM")="D JOBPAR^%ZOSV"
16^%ZOSF("LABOFF")="U IO:("""":""+S+I-T"":$C(13,27))"
17^%ZOSF("LOAD")="N %,%N S %N=0 X ""ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0 S @(DIF_XCNP_"""",0)"""")=%"""
18^%ZOSF("LPC")="S Y=$ZC(X)"
19^%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"""
20^%ZOSF("MAXSIZ")="S $ZS=X+X"
21^%ZOSF("MGR")="VISTA"
22^%ZOSF("MTBOT")="S Y=$ZA\32#2"
23^%ZOSF("MTERR")="S Y=$ZA\32768#2"
24^%ZOSF("MTONLINE")="S Y=$ZA\64#2"
25^%ZOSF("MTWPROT")="S Y=$ZA\4#2"
26^%ZOSF("NBRK")="U $I:("""":""-B"")"
27^%ZOSF("NO-PASSALL")="U $I:("""":""-I+T"")"
28^%ZOSF("NO-TYPE-AHEAD")="U $I:("""":""+F"":$C(13,27))"
29^%ZOSF("OS")="OpenM-NT^18"
30^%ZOSF("PASSALL")="U $I:("""":""+I-T"")"
31^%ZOSF("PRIINQ")="N %PRIO D ^%PRIO S Y=$S('%PRIO:5,%PRIO>0:8,1:3)"
32^%ZOSF("PRIORITY")="D @($S(X>7:""NORMAL"",X>3:""NORMAL"",1:""LOW"")_""^%PRIO"") ;Don't do HIGH"
33^%ZOSF("PROD")="VISTA"
34^%ZOSF("PROGMODE")="S Y=$ZJOB#2"
35^%ZOSF("RD")="D ^%RD"
36^%ZOSF("RESJOB")="N OLD S OLD=$ZNSPACE ZNSPACE ""%SYS"" D ^RESJOB ZNSPACE OLD Q"
37^%ZOSF("RM")="I $G(IOT)[""TRM"" U $I:X"
38^%ZOSF("RSEL")="K ^UTILITY($J) D KERNEL^%RSET K %ST ;Special entry point for VA"
39^%ZOSF("RSUM")="N %,%1,%3 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"
40^%ZOSF("RSUM1")="N %,%1,%3 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"
41^%ZOSF("SAVE")="N XCS 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"""
42^%ZOSF("SIZE")="S Y=0 F I=1:1 S %=$T(+I) Q:%="""" S Y=Y+$L(%)+2"
43^%ZOSF("SS")="D ^%SS"
44^%ZOSF("TEST")="I X?1(1""%"",1A).7AN,$D(^$ROUTINE(X))"
45^%ZOSF("TMK")="S Y=$ZA\4#2"
46^%ZOSF("TRAP")="$ZT=X"
47^%ZOSF("TRMOFF")="U $I:("""":""-I-T"":$C(13,27))"
48^%ZOSF("TRMON")="U $I:("""":""+I+T"")"
49^%ZOSF("TRMRD")="S Y=$A($ZB),Y=$S(Y<32:Y,Y=127:Y,1:0)"
50^%ZOSF("TYPE-AHEAD")="U $I:("""":""-F"":$C(13,27))"
51^%ZOSF("UCI")="D UCI^%ZOSV"
52^%ZOSF("UCICHECK")="S Y=$$UCICHECK^%ZOSV(X)"
53^%ZOSF("UPPERCASE")="S Y=$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ"")"
54^%ZOSF("VOL")="VISTA"
55^%ZOSF("XY")="S $X=DX,$Y=DY"
56^%ZOSF("ZD")="S Y=$ZD(X)"
Note: See TracBrowser for help on using the repository browser.