SL ;test [ 03/16/95  10:56 AM ]
 ;
T1 ;HBP=""
T2 ;MBH=$$F("J",6)
T3 ;LT=$$F("J",7)
T4 ;IDN=$$F(2,25)
T5 ;PRN=$$F(0,1)
T6 ;FST=$$F(0,14)
T7 ;RES=$P($$F(2,9),"#",2)
T8 ;REK=$P($$F(2,9),"#",3)
T9 ;TOS=$P($$F(0,17),"#",2)
T10 ;TOK=$P($$F(0,17),"#",3)
T11 ;TST=$$F(0,14)-$$F(2,9)+$$F(0,17)
T12 ;PST=$$F(0,14)-$$F(2,9)
T13 ;PSN=$$F(1,20)
 ;
 K  D ^A508,^cA604
 W @F11,@F1
 S HULP(1)="test"
 S DL(1)="LD"
 S LD(1)="^KPR1"
 ;S LD(2)=$TR(^LD("L","CWSLP1"),":",$C(179))
 S LD(2)=$TR(^LD("L","CWSLP1"),":","|")
 ;S LD(2)=$$REPLACE^vhRtn1(^LD("L","CWSLP1"),":",$C(14,120,15))
 S LD(2,"CWSLT1")=^LD("L","CWSLT1")
 S LD(2,"CWSLT2")=^LD("L","CWSLT2")
 S LD(2,"CWSLT3")=^LD("L","CWSLT3")
 S LD(2,"CWSLT4")=^LD("L","CWSLT4")
 ;S R=$TR(^LD("L","CWSLH1"),":",$C(179))
 S R=$TR(^LD("L","CWSLH1"),":","|")
 S LD(2,"CWSLH2")=R
 S X="" F I=1:1:$L(R,D) S K="",K=$TR($J("",$P($P(R,D,I),U,4))," ","-"),X=X_K_$P($P(R,D,I),U,6)
 ;S X=$TR(X,$C(179),$C(194)),$E(X)=$C(218),$E(X,$L(X))=$C(191)
 S R=""""_X_""";C;L;"_$L(X)
 S LD(2,"CWSLH1")=R
 ;S X=$TR(X,$C(194),$C(197)),$E(X)=$C(195),$E(X,$L(X))=$C(180)
 S R=""""_X_""";C;L;"_$L(X)
 S LD(2,"CWSLH3")=R
 ;S X=$TR(X,$C(197),$C(193)),$E(X)=$C(192),$E(X,$L(X))=$C(217)
 S R=""""_X_""";C;L;"_$L(X)
 S LD(2,"CWSLF1")=R
 S LD(3)=5
 S LD(8)=$TR(^LD("L","CWSLH1"),":",$C(179))
 S LD(8)=^LD("L","CWSLH1")
 S LD(10)="CB^SL"
 D ^OUTPUT("PM","","B")
 Q
F(N,P) 
 Q $P(A(N),D,P)
 ;
CB(R,T,L,M,B) 
 S DLal="40;5;5;35;2;40"
 S BLZ=B
 I R="T" Q ";CWSLT1\;CWSLT2\;CWSLT3\;CWSLT4\;CWSLT4"
 I R="H" Q ";CWSLH1\;CWSLH2\;CWSLH3"
 I R="F" Q ";CWSLF1"
 I $L(R)=1 Q ""
 S PR=$P(@R,D,1) I '$D(^KPR(PR)) Q "SK"
 K A F I=0:1:10 Q:'$D(^KPR(PR,I))  S A(I)=^KPR(PR,I)
 S A("I")="" I $E($O(^KPR(PR,"I")))="I" S A("I")=^KPR(PR,$O(^KPR(PR,"I")))
 S A("J")="" I $E($O(^KPR(PR,"J")))="J" S A("J")=^KPR(PR,$O(^KPR(PR,"J")))
 F I=1:1 S X=$P($T(@("T"_I)),U,2) Q:X=""  X "S "_X
 Q ""