Return to DINZFRM.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Initial commit

DINZFRM	;VCL/SNW-SETS ^%ZOSF FOR FREEM ;06:16 AM  28 Apr 2025
	;;21.0;VA FileMan;;Apr 28, 2025
	;Per VHA Directive 10-93-142, this routine should not be modified.
	K ^%ZOSF("MASTER"),^%ZOSF("SIGNOFF")
	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
	S $P(^%ZOSF("OS"),"^")=$S($ZV["MSM":$P($ZV,","),1:"MSM")_"^8"
	K I,X,Z
	Q
	;
Z	;;
	;;ACTJ
	;;S Y=$$ACTJ^%ZOSV()
	;;AVJ
	;;S Y=$$AVJ^%ZOSV()
	;;BRK
	;;B 1
	;;CPU
	;;Q
	;;DEL
	;;X "ZR  ZS @X" K ^UTILITY("%RD",X)
	;;EOFF
	;;S ^$DEVICE($IO,"OPTIONS","ECHO")=0
	;;EON
	;;S ^$DEVICE($IO,"OPTIONS","ECHO")=1
	;;EOT
	;;S Y=$ZA\1024#2
	;;ERRTN
	;;^%ZTER
	;;ETRP
	;;Q
	;;GD
	;;D ^%GD
	;;LABOFF
	;;U IO:(::::1)
	;;JOBPARAM
	;;G JOBPAR^%ZOSV
	;;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)"")=%"
	;;LPC;;Parity Check - ASCII sum
	;;S Y=$ZCRC(X)
	;;MAXSIZ
	;;S %K=X D INT^%PARTSIZ
	;;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"
	;;MTBOT
	;;S Y=$ZA#2
	;;MTERR
	;;S Y=($ZA\256#8)+($ZA\4096#8)
	;;MTONLINE
	;;S Y=$ZA\16#4=3
	;;MTWPROT
	;;S Y=$ZA\2048#2
	;;NBRK
	;;B 0
	;;NO-PASSALL
	;;U $I:(:::::8388608)
	;;NO-TYPE-AHEAD
	;;S ^$DEVICE($IO,"OPTIONS","NOTYPEAHEAD")=1
	;;PASSALL
	;;U $I:(::::8388608)
	;;PRIINQ
	;;S Y=$$PRIINQ^%ZOSV()
	;;PRIORITY
	;;G PRIORITY^%ZOSV
	;;PROGMODE
	;;S Y=$$PROGMODE^%ZOSV()
	;;RD
	;;D ^%RD
	;;RESJOB
	;;Q:'$D(DUZ)  Q:'$D(^XUSEC("XUMGR",+DUZ))  N XQZ S XQZ="^KILLJOB[MGR]" D DO^%XUCI
	;;RM
	;;U:IOT["TRM" $I:X
	;;RSEL
	;;K ^UTILITY($J) G ^%RSEL
	;;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
	;;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("%RD",X)="" K XCS
	;;SIZE
	;;S Y=0 F I=1:1 S %=$T(+I) Q:%=""  S Y=Y+$L(%)+2
	;;SS
	;;D ^%SS
	;;TEST
	;;I $D(^ (X))
	;;TMK
	;;S Y=$ZA\128#2
	;;TRAP
	;;$ZT=X
	;;TRMOFF
	;;S ^$DEVICE($IO,"OPTIONS","TERMINATOR")=$C(10)
	;;TRMON
	;;S ^$DEVICE($IO,"OPTIONS","TERMINATOR")=$C(13,10)
	;;TRMRD
	;;S Y=$ZB
	;;TYPE-AHEAD
	;;S ^$DEVICE($IO,"OPTIONS","NOTYPEAHEAD")=0
	;;UCI
	;;S Y=^$JOB($J,"NAMESPACE")
	;;UCICHECK
	;;S Y=$$UCICHECK^%ZOSV(X)
	;;UPPERCASE
	;;S Y=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
	;;XY
	;;U $I:(::::::DY*256+DX)
	;;ZD
	;;S Y=$ZD(X)