TKFAXH5 ;PG&A,TK-FAX,2.10,TRANS ENCODING;8JUN94 2:41P [ 11/22/2000  11:30 AM ]
 ;Copyright (C) 1992, Patterson, Gray and Associates Inc.
CVT D:'$D(^TKFAXC(.8)) COMP^TKFAXH D:'$D(^TKFAXF(FNT\10*10,.7)) FONT^TKFAXH S CVR=0,OMG=$S($D(OMG):OMG,1:MG) D OMG
 S E=$C(1) F J=2:2:31 S E=E_$C(J,J+1)
 S AL=E_AL,ORR=$S("MSM,PSM"[^TK("OS"):"LM8",^("OS")="DTM":"LM8A",1:"LM6") I ORR="LM6" D OR
 D ^TKFAXH6
 S AL=$E(AL,32,255) K LL1,LL2,LL1H,LL2H,LL1L,LL2L,NT1,NT2,NT1L,NT2L,NT1H,NT2H,OR,ORR,KK,OMG,LXA,LXB,LOV
 Q:$D(OVRF)  S TFXL=TFXL+FXL,@TKFAXS@(PG)=FXL,PGN=PG,@TKFAXS=+$H_","_TFXL_","_PG G:$D(CVRP) CVR^TKFAXH1 Q
 ;
LS F i=1:8:$L(L)\8*8 S LX=LX_$C(B($E(L,i,i+3))+C($E(L,i+4,i+7)))
 S L=$E(L,$L(L)>7*(i+8),255) Q
LSX S LX=LX_$C(B($E(L,1,4))+C($E(L,5,8)))_$C(B($E(L,9,12))+C($E(L,13,16)))_$C(B($E(L,17,20))+C($E(L,21,24)))_$C(B($E(L,25,28))+C($E(L,29,32))),L=$E(L,33,255) Q
 ;
OR S OR="ABCDEFGHIJKLMNOAACCEEGGIIKKMMOOBCBCFGFGJKJKNONOCCCCGGGGKKKKOOOODEFGDEFGLMNOLMNOEEGGEEGGMMOOMMOOFGFGFGFGNONONONOGGGGGGGGOOOOOOOOHIJKLMNOHIJKLMNOIIKKMMOOIIKKMMOOJKJKNONOJKJKNONOKKKKOOOOKKKKOOOOLMNOLMNOLMNOLMNOMMOOMMOOMMOOMMOONONONONONONONON"
 S E="",LO=$C(1),HI=$C(0),$P(E,$C(15),18)="" F J=2:2:254 S LO=LO_$C(J#16,J+1#16),HI=HI_$C(J\16,J+1\16)
 S OR=$TR(OR,$E(OR,1,16),LO)_E Q
OMG S (LXA,LXB)="",LMG=MG S:MG<OMG $P(LXB,$C(0),OMG-MG\8)="" S:OMG<MG&(OMG>0) LMG=OMG,LXA=$J("",MG-OMG\16) S LX="",L=EOL_$S(LMG<32:wht(LMG),1:^TKFAXC(.1,LMG))_^TKFAXC(0,1,0),L=$E("00000000",1,-$L(L)#8)_L D LS S PEOL=LX Q