| 1 | FirstRelease WVEHR VER VOE1.0
|
|---|
| 2 | Cache 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)"
|
|---|
