| [613] | 1 | DINZONT ;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
|
|---|
| 9 | Z ;;
|
|---|
| 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)
|
|---|
