> Outlook Express decided that the RSA file was dangerous
Outlook Express is dangerous.
I don't know what to do about the Hebrew.
---------------------------
Cache for Windows NT^INT^Export of 1 routines from namespace %SYS^~Format=Cache.S~
%RO on Jul 2 2004 9:06 AM
%ZFRMT^INT^1^58865,47491^
%ZFRMT ;GN-2000 ����;S.G;[ 01/30/2001 4:42 PM ]
G BG
ER W /CUP(24,1),/EL(0),/RBA,$P($T(@("M"_M)),";",2),/NRM Q
DT(Z1,Z2,Z3,Z4) ;$$ ; FORMAT DATES
; Z1 - INPUT VALUE. LEGAL VALUES : IF ""-> "". IF INPUT YEAR IS YY ASUUMED
<50:20,1:19_YY) ; *** MUST BE LEGAL ***
; IF Z4=0 : {{D}D}{/{M}M}{/{YY}YY} (OR '.'), DDMM{{YY}YY}, {D}D-MMM{-{YY}YY},
+/-{N} FOR TODAY +/- N DAYS (DEF IS 0)
; IF Z4=1 : .N
; IF Z4=2 : {YY}YYMMDD
; Z2 - OUTPUT YEAR AS: <0>- YY, 1- YYYY
; Z3 - OUTPUT FORMAT: <0>- DD/MM/YY, 1-MM/DD/YY, 2- DD-MMM-YY, 3-YYMMDD, 4-$H,
5-DDMMYY
; Z4 - INPUT TYPE: <0>- Z1 IS NOT $H, 1- Z1 IS $H, 2- Z1 IS {YY}YYMMDD
;
N Y1,Y2,Y3,DY,MN,YR I Z1="" Q ""
S:'$D(Z2) Z2=0 S:'$D(Z3) Z3=0 S:'$D(Z4) Z4=0
I Z4=2 S
Z1=$S($L(Z1)=8:$E(Z1,7,8)_$E(Z1,5,6)_$E(Z1,1,4),1:$E(Z1,5,6)_$E(Z1,3,4)_$E(Z1,1,2)) S
Z4=0
S Y2=Z1,Y1=$S(Z1?1"+".N:4,Z1?1"-".N:5,$F(Z1,"/"):1,$F(Z1,"."):2,$F(Z1,"-"):3,1:0)
S:Z1="" Z1=+$H,Z4=1 S:Y1=4!(Y1=5) Z1=$H+$S(Y1=4:$E(Z1,2,999),1:-$E(Z1,2,999)),Z4=1
I Y1=3,Z1'?1.2N1"-"3U.E S
Z1=$P(Z1,"-",1)_"-"_$TR($P(Z1,"-",2),"��������������������������","ABCDEFGHIJKLMNOPQRSTUVWXYZ")_$S($P(Z1,"-",3)="":"",1:"-"_$P(Z1,"-",3))
I Z4=1 Q:Z3=4 Z1 S Y1=0,Z1=$$HTD(Z1),Z1=$E(Z1,7,8)_$E(Z1,5,6)_$E(Z1,1,4)
S:Y1=2 Y1=1,Z1=$TR(Z1,".","/")
S:Y1=1 DY=$P(Z1,"/",1),MN=$P(Z1,"/",2),YR=$P(Z1,"/",3) S:Y1=3
DY=$P(Z1,"-",1),MN=$F("JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC",$P(Z1,"-",2))-1/3,YR=$P(Z1,"-",3)
S:'Y1 DY=$E(Z1,1,2),MN=$E(Z1,3,4),YR=$E(Z1,5,8) S:YR?.2N
YR=$S(YR<50:20,1:19)_$E(100+YR,2,3)
;I MN=""!(YR="") S Y3=$$HTD(+$H) S:MN="" MN=$E(Y3,5,6) S:YR="" YR=$E(Y3,1,4)
S:'Z2 YR=$E(YR,3,4) S
DY=$S(DY="":"",1:$E(100+DY,2,3)),MN=$S(MN="":"",1:$E(100+MN,2,3))
S:Z3=4!'Z3 Z1=DY_"/"_MN_"/"_YR S:Z3=1 Z1=MN_"/"_DY_"/"_YR S:Z3=2
Z1=DY_"-"_$P("JAN-FEB-MAR-APR-MAY-JUN-JUL-AUG-SEP-OCT-NOV-DEC","-",MN)_"-"_YR S:Z3=3
Z1=YR_MN_DY S:Z3=5 Z1=DY_MN_YR I Z3=4 S
Z1=$$DTH($P(Z1,"/",3)_$P(Z1,"/",2)_$P(Z1,"/",1))
Q Z1
HTD(Z1) ; $H -> YYYYMMDD
N %A,%B,%D,%F,%I,%M,%Y
S %A=$S(Z1<21915:0,1:Z1-21914\36524+1),%A=Z1+%A-(%A+2\4),%B=%A#1461
S %F=$E(%B*.00273785,1),%Y=%A\1461*4+1841+%F
S %M=101,%D=%B-(%F*365) I %D=0 S %M=112,%Y=%Y-1,%D=31
E F %I=31,$S(%Y#100:%Y#4=0,1:%Y#400=0)+28,31,30,31,30,31,31,30,31,30 Q:%I'<%D S
%M=%M+1,%D=%D-%I
Q %Y_$E(%M+100,2,3)_$E(%D+100,2,3)
DTH(Z1) ; YYYYMMDD -> $H
N %B,%M,%D,%Y,%DAT
S:Z1?6N Z1=$S($E(Z1,1,2)<50:20,1:19)_Z1
S %M=$E(Z1,5,6),%D=$E(Z1,7,8),%Y=$E(Z1,1,4)
S %B=%Y-1841
S
%DAT=%B*365+(%B\4)-(%B+40\100)+(%B+240\400)+$P("0,31,59,90,120,151,181,212,243,273,304,334",",",%M)+%D
I %M>2 S %DAT=%DAT+$S(%Y#100:%Y#4=0,1:%Y\100#4=0)
Q %DAT
MN(Z1,Z2,Z3,Z4) ;$$ ; FORMAT MONTH
; Z1 - INPUT VALUE. LEGAL VALUES : IF ""-> "". IF INPUT YEAR IS YY ASUUMED
$S(YR<50:20,1:19)_YY
; IF Z4=0 : {M}M{/{YY}YY} (OR '.'), MM{{YY}YY}, MMM{-{YY}YY}
; IF Z4=2 : {YY}YYMMDD
; Z2 - OUTPUT YEAR AS: <0>- YY, 1- YYYY
; Z3 - OUTPUT FORMAT: <0>- MM/YY, 2- MMM-YY, 3-YYMM
; Z4 - <0> - Z1 IN NORMAL, 2- Z1 IS {YY}YYMM
;
S:'$D(Z2) Z2=0 S:'$D(Z3) Z3=0 S:'$D(Z4) Z4=0
N Y1,Y2,Y3,MN,YR I Z1="" Q ""
I 'Z4 S Z1=$TR(Z1,".","/") I $P(Z1,"/",3)'="" S Z1=$P(Z1,"/",2,3)
I Z4=2 S:$L(Z1)=6 Z1=$E(Z1,5,6)_$E(Z1,1,4) S:$L(Z1)=4 Z1=$E(Z1,3,4)_$E(Z1,1,2) S Z4=0
S Y2=Z1,Y1=$S($F(Z1,"/"):1,$F(Z1,"."):2,Z1?3A.E:3,1:0) S:Z1=""
Z1=$P($$DT(""),"/",2,3),Y1=1
I Y1=3,Z1'?3U.E S
Z1=$TR($P(Z1,"-",1),"��������������������������","ABCDEFGHIJKLMNOPQRSTUVWXYZ")_$S($P(Z1,"-",2)="":"",1:"-"_$P(Z1,"-",2))
S:Y1=2 Y1=1,Z1=$TR(Z1,".","/")
S:Y1=1 MN=$P(Z1,"/",1),YR=$P(Z1,"/",2) S:Y1=3
MN=$F("JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC",$P(Z1,"-",1))-1/3,YR=$P(Z1,"-",2) S:'Y1
MN=$E(Z1,1,2),YR=$E(Z1,3,6) S:YR?1.2N YR=$S(YR<50:20,1:19)_$E(100+YR,2,3)
;I YR="" S Y3=$$HTD(+$H),YR=$E(Y3,1,4)
S:'Z2 YR=$E(YR,3,4) S MN=$E(100+MN,2,3)
S:'Z3 Z1=MN_"/"_YR S:Z3=2
Z1=$P("JAN-FEB-MAR-APR-MAY-JUN-JUL-AUG-SEP-OCT-NOV-DEC","-",MN)_"-"_YR S:Z3=3 Z1=YR_MN
Q Z1
YR(Z1,Z2,Z3,Z4) ;$$ ; FORMAT YEAR
; Z1 - INPUT VALUE. LEGAL VALUES : IF ""-> PRESENT MONTH. IF INPUT YEAR IS YY ASUUMED
$S(YR<50:20,1:19)_YY
; IF Z4=0 : {{YY}YY} , {{YY}YY}, {{YY}YY}
; IF Z4=2 : {YY}YY
; Z2 - OUTPUT YEAR AS: <0>- YY, 1- YYYY
; Z3 - OUTPUT FORMAT: <0>- YY, 2- YY, 3-YY
; Z4 - <0> - Z1 IN NORMAL, 2- Z1 IS {YY}YY
;
S:'$D(Z2) Z2=0 S:'$D(Z3) Z3=0 S:'$D(Z4) Z4=0
;N Y1,Y2,Y3,MN,YR I Z1=""!($L(Z1)'=2) Q Z1
N Y1,Y2,Y3,MN,YR I Z1="" Q Z1
;Q $S(Z1<50:20,1:19)_Z1
;I Z4=2 S:$L(Z1)=6 Z1=$E(Z1,5,6)_$E(Z1,1,4) S:$L(Z1)=4 Z1=$E(Z1,3,4)_$E(Z1,1,2) S Z4=0
S Y2=Z1,Y1=$S($F(Z1,"/"):1,$F(Z1,"."):2,Z1?3A.E:3,1:0) S:Z1=""
Z1=$P($$DT(""),"/",2,3),Y1=1
;I Y1=3,Z1'?3U.E S
Z1=$TR($P(Z1,"-",1),"��������������������������","ABCDEFGHIJKLMNOPQRSTUVWXYZ")_$S($P(Z1,"-",2)="":"",1:"-"_$P(Z1,"-",2))
S:Y1=2 Y1=1,Z1=$TR(Z1,".","/")
S:Y1=1 MN=$P(Z1,"/",1),YR=$P(Z1,"/",2) S:Y1=3
MN=$F("JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC",$P(Z1,"-",1))-1/3,YR=$P(Z1,"-",2) S:'Y1
MN=$E(Z1,1,2),YR=$E(Z1,3,6),YR=$S(YR'="":YR,1:Z1) S:YR?1.2N
YR=$S(YR<50:20,1:19)_$E(1E2+YR,2,3)
;I YR="" S Y3=$$HTD(+$H),YR=$E(Y3,1,4)
S:'Z2 YR=$E(YR,3,4) S MN=$E(100+MN,2,3)
S:'Z3 Z1=MN_"/"_YR S:Z3=2
Z1=$P("JAN-FEB-MAR-APR-MAY-JUN-JUL-AUG-SEP-OCT-NOV-DEC","-",MN)_"-"_YR S:Z3=3 Z1=YR_MN
Q YR
ACC(%Z,TYPE,READ) ;
; INPUT Z1 - ACCONT NO#
; Z2 - 0=EDIT ONLY,1=HELP,CHEK,SHOW,EDIT
; Z3 - 0=NO READ,1=READ
N DS,X1,Y,NUM
S ACC=$S($E(%)'="A":"A",1:"")_%Z,TYPE=$S($D(TYPE):TYPE,1:0) G:'TYPE FIN
I ANS="?" S L=ER D ACCH^ACGNHE8 S %ER=1 Q "" Q
I %Z'="",$D(^ACCTAB("SHR",FIRM,%Z)) S %Z=$P(^(%Z),D,1)
S NUM=%Z,MD="U" D CD11^%GEN S %ER='VL I %ER S M=3 D ER G FIN
I '$D(^ACC(FIRM,"O",ACC)) S %ER=1,M=4 D ER G FIN
S DS=$P($G(^ACC(FIRM,"O",ACC)),D,1),X1=%X1(I)-$L(DS)-13,Y=%Y(I) W
/CUP(Y,X1),/RVR,DS," ",/NRM,$$ACC^AC20GN(ACC,0)
I $G(READ) S STA="O" D RAC^ACRW
FIN Q $E(ACC,2,3)_"-"_$E(ACC,4,6)_"-"_$E(ACC,7,8)_"/"_$E(ACC,9)
;
M3 ;����� �� ����� ����
M4 ;�� ���� ��� ���� �� �����
