Return to DINZFRM.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINZFRM.m, revision 1.1.1.1

1.1       snw         1: DINZFRM        ;VCL/SNW-SETS ^%ZOSF FOR FREEM ;06:16 AM  28 Apr 2025
                      2:        ;;21.0;VA FileMan;;Apr 28, 2025
                      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 $P(^%ZOSF("OS"),"^")=$S($ZV["MSM":$P($ZV,","),1:"MSM")_"^8"
                      7:        K I,X,Z
                      8:        Q
                      9:        ;
                     10: Z      ;;
                     11:        ;;ACTJ
                     12:        ;;S Y=$$ACTJ^%ZOSV()
                     13:        ;;AVJ
                     14:        ;;S Y=$$AVJ^%ZOSV()
                     15:        ;;BRK
                     16:        ;;B 1
                     17:        ;;CPU
                     18:        ;;Q
                     19:        ;;DEL
                     20:        ;;X "ZR  ZS @X" K ^UTILITY("%RD",X)
                     21:        ;;EOFF
                     22:        ;;S ^$DEVICE($IO,"OPTIONS","ECHO")=0
                     23:        ;;EON
                     24:        ;;S ^$DEVICE($IO,"OPTIONS","ECHO")=1
                     25:        ;;EOT
                     26:        ;;S Y=$ZA\1024#2
                     27:        ;;ERRTN
                     28:        ;;^%ZTER
                     29:        ;;ETRP
                     30:        ;;Q
                     31:        ;;GD
                     32:        ;;D ^%GD
                     33:        ;;LABOFF
                     34:        ;;U IO:(::::1)
                     35:        ;;JOBPARAM
                     36:        ;;G JOBPAR^%ZOSV
                     37:        ;;LOAD
                     38:        ;;S %N=0 X "ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0  S @(DIF_XCNP_"",0)"")=%"
                     39:        ;;LPC;;Parity Check - ASCII sum
                     40:        ;;S Y=$ZCRC(X)
                     41:        ;;MAXSIZ
                     42:        ;;S %K=X D INT^%PARTSIZ
                     43:        ;;MAGTAPE
                     44:        ;;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"
                     45:        ;;MTBOT
                     46:        ;;S Y=$ZA#2
                     47:        ;;MTERR
                     48:        ;;S Y=($ZA\256#8)+($ZA\4096#8)
                     49:        ;;MTONLINE
                     50:        ;;S Y=$ZA\16#4=3
                     51:        ;;MTWPROT
                     52:        ;;S Y=$ZA\2048#2
                     53:        ;;NBRK
                     54:        ;;B 0
                     55:        ;;NO-PASSALL
                     56:        ;;U $I:(:::::8388608)
                     57:        ;;NO-TYPE-AHEAD
                     58:        ;;S ^$DEVICE($IO,"OPTIONS","NOTYPEAHEAD")=1
                     59:        ;;PASSALL
                     60:        ;;U $I:(::::8388608)
                     61:        ;;PRIINQ
                     62:        ;;S Y=$$PRIINQ^%ZOSV()
                     63:        ;;PRIORITY
                     64:        ;;G PRIORITY^%ZOSV
                     65:        ;;PROGMODE
                     66:        ;;S Y=$$PROGMODE^%ZOSV()
                     67:        ;;RD
                     68:        ;;D ^%RD
                     69:        ;;RESJOB
                     70:        ;;Q:'$D(DUZ)  Q:'$D(^XUSEC("XUMGR",+DUZ))  N XQZ S XQZ="^KILLJOB[MGR]" D DO^%XUCI
                     71:        ;;RM
                     72:        ;;U:IOT["TRM" $I:X
                     73:        ;;RSEL
                     74:        ;;K ^UTILITY($J) G ^%RSEL
                     75:        ;;RSUM
                     76:        ;;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
                     77:        ;;SAVE
                     78:        ;;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
                     79:        ;;SIZE
                     80:        ;;S Y=0 F I=1:1 S %=$T(+I) Q:%=""  S Y=Y+$L(%)+2
                     81:        ;;SS
                     82:        ;;D ^%SS
                     83:        ;;TEST
                     84:        ;;I $D(^ (X))
                     85:        ;;TMK
                     86:        ;;S Y=$ZA\128#2
                     87:        ;;TRAP
                     88:        ;;$ZT=X
                     89:        ;;TRMOFF
                     90:        ;;S ^$DEVICE($IO,"OPTIONS","TERMINATOR")=$C(10)
                     91:        ;;TRMON
                     92:        ;;S ^$DEVICE($IO,"OPTIONS","TERMINATOR")=$C(13,10)
                     93:        ;;TRMRD
                     94:        ;;S Y=$ZB
                     95:        ;;TYPE-AHEAD
                     96:        ;;S ^$DEVICE($IO,"OPTIONS","NOTYPEAHEAD")=0
                     97:        ;;UCI
                     98:        ;;S Y=^$JOB($J,"NAMESPACE")
                     99:        ;;UCICHECK
                    100:        ;;S Y=$$UCICHECK^%ZOSV(X)
                    101:        ;;UPPERCASE
                    102:        ;;S Y=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
                    103:        ;;XY
                    104:        ;;U $I:(::::::DY*256+DX)
                    105:        ;;ZD
                    106:        ;;S Y=$ZD(X)