I '(\"UNAVAILABLEPASSREFUSED\"[$$UP^XLFSTR(X)) K:X'?2.3N0.1\"/\"0.3N0.1\"/\"0.3N&(X'?2.3N0.1\"/\"0.3N) X I $D(X),X>0 K:$P(X,\"/\",1)>300!($P(X,\"/\",2)>300)!(+$P(X,\"/\",3)>300) X I $D(X),$P(X,\"/\")'>$P(X,\"/\",$L(X,\"/\")) K X
I '(\"UNAVAILABLEPASSREFUSED\"[$$UP^XLFSTR(X)) S GMR=$E($P(X,+X,2)) S X=$S(GMR=\"\":0,\"Kk\"[GMR:+$J(2.2*(+X),0,2),\"Ll\"[GMR:+X,1:0) K:X>1500!(X=0)!(X<0) X K GMR