FirstRelease WVEHR VER VOE1.0
Cache 31-Jan-2008 23:07:04 ZWR
^%ZOSF("ACTJ")="S Y=$$ACTJ^%ZOSV()"
^%ZOSF("AVJ")="S Y=$$AVJ^%ZOSV()"
^%ZOSF("BRK")="U $I:("""":""+B"")"
^%ZOSF("DEL")="X ""ZR  ZS @X"" K ^UTILITY(""ROU"",X)"
^%ZOSF("EOFF")="U $I:("""":""+S"")"
^%ZOSF("EON")="U $I:("""":""-S"")"
^%ZOSF("EOT")="S Y=$ZA\1024#2"
^%ZOSF("ERRTN")="^%ZTER"
^%ZOSF("ETRP")="Q"
^%ZOSF("GD")="D ^%GD"
^%ZOSF("JOBPARAM")="D JOBPAR^%ZOSV"
^%ZOSF("LABOFF")="U IO:("""":""+S+I-T"":$C(13,27))"
^%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)"""")=%"""
^%ZOSF("LPC")="S Y=$ZC(X)"
^%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"""
^%ZOSF("MAXSIZ")="S $ZS=X+X"
^%ZOSF("MGR")="EHR"
^%ZOSF("MTBOT")="S Y=$ZA\32#2"
^%ZOSF("MTERR")="S Y=$ZA\32768#2"
^%ZOSF("MTONLINE")="S Y=$ZA\64#2"
^%ZOSF("MTWPROT")="S Y=$ZA\4#2"
^%ZOSF("NBRK")="U $I:("""":""-B"")"
^%ZOSF("NO-PASSALL")="U $I:("""":""-I+T"")"
^%ZOSF("NO-TYPE-AHEAD")="U $I:("""":""+F"":$C(13,27))"
^%ZOSF("OS")="OpenM-NT^18"
^%ZOSF("PASSALL")="U $I:("""":""+I-T"")"
^%ZOSF("PRIINQ")="N %PRIO D ^%PRIO S Y=$S('%PRIO:5,%PRIO>0:8,1:3)"
^%ZOSF("PRIORITY")="D @($S(X>7:""NORMAL"",X>3:""NORMAL"",1:""LOW"")_""^%PRIO"") ;Don't do HIGH"
^%ZOSF("PROD")="EHR"
^%ZOSF("PROGMODE")="S Y=$ZJ#2"
^%ZOSF("RD")="D ^%RD"
^%ZOSF("RESJOB")="Q:'$D(DUZ)  Q:'$D(^XUSEC(""XUMGR"",+DUZ))  N XQZ S XQZ=""^RESJOB[MGR]"" D DO^%XUCI"
^%ZOSF("RM")="U $I:X"
^%ZOSF("RSEL")="K ^UTILITY($J) D KERNEL^%RSET K %ST ;Special entry point for VA"
^%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"
^%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"
^%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"
^%ZOSF("SIZE")="S Y=0 F I=1:1 S %=$T(+I) Q:%=""""  S Y=Y+$L(%)+2"
^%ZOSF("SS")="D ^%SS"
^%ZOSF("TEST")="I X?1(1""%"",1A).7AN,$D(^$ROUTINE(X))"
^%ZOSF("TMK")="S Y=$ZA\4#2"
^%ZOSF("TRAP")="$ZT=X"
^%ZOSF("TRMOFF")="U $I:("""":""-I-T"":$C(13,27))"
^%ZOSF("TRMON")="U $I:("""":""+I+T"")"
^%ZOSF("TRMRD")="S Y=$A($ZB),Y=$S(Y<32:Y,Y=127:Y,1:0)"
^%ZOSF("TYPE-AHEAD")="U $I:("""":""-F"":$C(13,27))"
^%ZOSF("UCI")="D UCI^%ZOSV"
^%ZOSF("UCICHECK")="S Y=$$UCICHECK^%ZOSV(X)"
^%ZOSF("UPPERCASE")="S Y=$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ"")"
^%ZOSF("VOL")="EHR"
^%ZOSF("XY")="S $X=DX,$Y=DY"
^%ZOSF("ZD")="S Y=$ZD(X)"