COPYFAX ;NEW PROGRAM [ 11/03/95  1:54 PM ]
 Set I=+$O(^TKCOPY(""),-1)+1
 Merge ^TKCOPY(I,"TKFAXC")=^TKFAXC
 Merge ^TKCOPY(I,"TKFAXT")=^TKFAXT
 Merge ^TKCOPY(I,"TKFAXF")=^TKFAXF
 Merge ^TKCOPY(I,"TKREAD")=^TKREAD
 Merge ^TKCOPY(I,"TK")=^TK
 S ^TKCOPY(I)=$H
 Q