cyuu0 ;Copyright (c) 1988 CyberTools, Inc. ;07:09 PM  31 Mar 1991 [ 05/13/93  2:41 PM ]
AFK S TABLE="afk" G APP1
APP S TABLE="app"
APP1 K APP S SCR="cyuapp",SNL=10 K csc D ^cysr
 I $D(APP),APP]"" N escr S escr=$S(APP?1"cy".E:"cys",1:"") S csc=2,SCR="cyu"_TABLE,SNL=20 D LANG^cyss,^cysr K lan
 Q
 ;
cyur I $E(urv,6) S go="cyur" G cysr
 ;D OPT
 G 257^cyur
 ;
cysr D OPT I $D(REFRESH) G uu0cysr^cyuu1
 G 257^@go
 ;
cyt D:smb clear^cyt11 D PUSHCYT,OPT G uu0cyt^cyuu1
 ;
PUSHCYT S a=$P(sx,"`",21) I $D(^cyz($J,"t",a))
 S ^(a)=$P(sx,"`",1,21)_"`"_sc0_"`"_sr0_"`"_srn_"`"_ln
 E  S ^(a,1)=sfe,^(2)=sne,^(3)=spr,^(4)=spu
 K sls S $P(sls,",",sr0)=sn1 I '$P(sx,"`",4) F k=sn1+1:1:sn2 S sls=sls_","_k
 E  D P1 S a=$P(sx,"`",21)
 S:$P(sx,"`",13) ^cyz($J,"t",a,5)=sta(1)
 S ^cyz($J,"t",a,6)=sls,^(7)=%C_"`"_%R_"`"_ln_"`"_sl1_"`"_sn0_"`"_snn_"`"_xc
 Q
 ;
P1 S ls=sn0 F k=sr0+1:0:srn X sne S sls=sls_","_ls
 S ls=$P(sls,",",%R)
 Q
 ;
OPT K Y S Y=$C(%C,%R) N X,%C,%R S %C=$A(Y),%R=$A(Y,2)
 S Y=$P($H,",",2),Y=Y\3600_":"_$E(100+(Y#3600\60),2,3),l=cu(7)
 S k=^cy0("km",l),Y="5\BHLRY"_$S(cu("zz","sys")="cyss":"D",1:"E")_"\2\"_$P(k,"^",2)_" - "_Y,Y(1)=$P(k,"^"),z=1
 S a="" F b=0:0 S a=$O(cu("zz","man",a)) Q:a=""  S z=z+1,Y(z)=$S($D(^cyst("MANUAL",a,"l",cu(7))):^(cu(7)),1:a),uot(z)="m`"_a
 F b="app","sys" I cu("zz",b)]"" F a=0:0 S a=$O(^cy0("app",cu("zz",b),a)) Q:'a  I $D(^(a,"l",l)) S z=z+1,Y(z)=$P(^(l),"`"),uot(z)=b_"`"_a
 S (z,Y(0))=z+1,Y(z)=$P(k,"^",4)
 ;D ^cyupop
 ;S uot=X K X,Y
 I uot=1 K uot G KMP0^cyuu002
 I uot>1,$D(uot(uot)) S uot=uot(uot),a=$P(uot,"`"),b=$P(uot,"`",2) K uot S:"as"[$E(a) a=cu("zz",a) G:a="m" ^cysp04 S a=^cy0("app",a,b),b=$P(a,"`") I b]"" G:$F("MS",b) APPS S a=$S($P(a,"`")="X":$P(a,"`",2),1:$P(a,"`")_" "_$P(a,"`",2)) X a
 K uot
 Q
 ;
APPS K REFRESH
 N csc,SCR,SN,SNL S SCR=$P(a,"`",2) G menu^cysr:$E(a)="M",^cysr
 ;
DECODEAT G D1:$E(X)="$" S x1="" F i=1:1:$L(X) S $P(x1,",",i)=$A($E(X,i))
 S X="$C("_x1_")" Q
D1 S x1="""" F i=1:1:$L(X) S x2=$E(X,i),x1=x1_x2 S:x2="""" x1=x1_""""
 S X=x1_"""" Q
 ;
NONOTE ;invoked from screen cyunote-10, field NOTE, error processing
 S NAME=X,%R=%R+1,Y="20\CRHL\2\No such note.  Add?\\Yes,No" D ^cyupop
 I X=1 S (^cyun(cu("id")),X)=$S($D(^cyun(cu("id")))#10:^cyun(cu("id"))+1,1:1),^cyun(cu("id"),1,X)=NAME_"^^0^0^"_$H_"^"_$H,^cyun(cu("id"),2,NAME,X)="",RX=1000,opi="PS;NOTE;X" X op
 E  S X=NAME,RX=0
 Q
 ;